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ldr 
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1432 
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1482 
1612 
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1153 
1432 
1484 
1542 
1632 
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1363 
1482 
1616 
1675 
1728 
1899 
1921 
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2171 
2304 
2331 
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2409 
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2618 
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1433 
1484 
1546 
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1197 



1158 
1441 
1486 
1546 
1641 



560 
1374 
1483 
1618 
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actual_tfr type 

kernel 451 465 

act tfr 

~ srm^drv 1195 1342 
kernel 465 

lolib 1136 1287 

ac chars 

~ srmdarn 542 589 

ac char_arr 

srmdarn 540 542 

ac__createlmk 

packets 186 

srmdarn 178 188 292 540 586 587 

ac_execute 

packets 187 

ac_genencQ9 

packets 188 

ac_genericl 

packets 188 

ac genericlO 

packets 189 

ac generic 11 

packets 190 

ac_gener icl2 

packets 191 

ac_genencl3 

packets 192 

ac_genencl4 

packets 193 
ac_genericl5 

packets 194 
ac_genericl6 

packets 195 
ac_genericl7 

packets 188 
ac_genericl8 

packets 189 
ac__genericl9 

packets 190 

ac_genenc2 

packets 189 
ac_generic20 

packets 191 
ac_gener ic2 1 

packets 192 
ac_generic2 2 

packets 193 
ac_generic2 3 

packets 194 
ac_generic24 

packets 195 
ac_generic25 

packets 196 

ac_genenc3 

packets 190 
ac_generic4 

packets 191 

ac_genenc5 

packets 192 
ac_gener ic6 

packets 193 
ac_generic7 

packets 194 
ac_generic8 

packets 195 
ac_manager 

packets 181 

srmdarn 
ac_purgelink 

packets 185 
srmdarn 1005 1039 1073 
ac_read 

packets 182 

ac_search 

packets 184 
ac_write 

packets 18 3 
add 

in it load 
liprarian 
add it 

loader 
librarian 



addr 



mini 
bootdam 

load-:- ■■ 

isr 
misc 

Id- 
kbd 

keys 

crt 

ctable 

convert 
srm_drv 

srmdam 



srmam 

librarian 

hminit 

qmini t 

xminit 

rniui 

tapebkup 

heapt 

kernel 

h drv 

dl_drv 

dma_drv 

g_drv 

dc drv 



178 188 292 540 587 1005 1039 1072 
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1605 
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134 
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1697 
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132 
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481 
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443 
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339 


351 


































129 


115 


175 
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359 


375 
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886 
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900 
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1087 
1360 


1088 
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1093 
1400 
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1414 


1099 
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1107 
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1575 
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77 
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202 
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609 
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658 


671 
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755 


780 


1032 
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1659 


































166 
56 


486 
83 
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116 


450 
139 


521 
169 


213 


8C7 


808 


876 


965 


976 


1057 


1095 












139 




































S12 


1123 


1160 


1161 






























217 


235 


243 
































217 


229 


237 
































211 


215 


228 


234 






























216 


223 
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247 


255 


265 
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572 


582 


590 
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rs drv 


210 


220 


228 




























loTib 


1269 


1283 


1319 


1344 


1390 


1418 






















printer 


293 


295 


299 


325 


























f 9885 


213 


254 


281 




























dischpib 


100 


111 


251 


279 


286 


302 


347 


356 


378 


412 


430 


502 










amigo 


235 


269 


292 


312 


335 


414 


563 


623 


839 


845 


950 












C580 
addrec 


314 


333 


350 


367 


404 


432 


454 


470 


488 


506 


545 


1070 


1111 


1151 


1180 


1190 


loader 


884 
1392 


917 
1422 


999 
1477 


1013 
1504 


1020 
1568 


1023 
1590 


1028 
1602 


1030 


1039 


1045 


1050 


1054 


1056 


1083 


1136 


1226 1248 1250 


ldr 


947 


949 


959 




























ctable 


259 
































librarian 


53 


56 


61 


67 


82 


83 


86 


309 


310 


315 


1243 


1355 


1401 


1429 


1451 


1556 1563 1565 




1567 


1570 


1716 


1717 


1737 


1798 


1800 


1809 


1888 


1934 


1945 


1951 


2081 


2091 


2219 


2266 2380 2407 




2428 


2807 


2900 


2903 


3031 


3143 


3283 




















addref 


































librarian 


1569 


1648 


1649 


1657 


























address 


































loader 


1099 


1107 


1108 


1209 


























librarian 


34 


84 


309 


1941 


2093 


2198 


2429 


2430 


















tapebkup 


26 


89 


115 




























lolib 


1649 


1663 


1665 


1721 


1723 


1833 


1835 


1841 


1843 
















cs80 


293 


512 


640 




























addressl 


































packets 


260 
































srm drv 


149? 
































addressee! 


































kernel 


394 


408 


422 


1131 


























iolib 


338 


340 


417 


494 


























printer 


245 
































dischpib 


266 


324 


386 




























address bounds 


































csSo 


127 


602 






























address__for^msge ir 


i 
































dischpib 


316 


348 


379 


436 


























address_for nisge out 
































dischpib 


258 


280 


303 


441 


























addr record 


































amigo 


151 


392 


688 


958 


























add r_ reco rd_cmd 


































amigo 


51 


401 






























addr_record cmd buf 


































amigo 


394 


400 


401 




























addr to listen 


































iolib 


302 


475 


546 


619 


787 


864 


896 


909 


1282 
















addr_to talk 


































ioTib 


300 


399 


469 


570 


720 


808 


839 


883 


922 


943 


1268 












loader 


854 
































librarian 
afl 


183 


186 


190 


191 


192 


1586 


1588 


1605 


1655 


1656 


1657 


1697 


1699 


2454 


2457 


2465 2483 


cs80 


208 
































all 


































loader 


1082 


1206 


1336 




























alienabilities 


































srmdam 


63 


288 






























allists 


































heapt 


58 


73 


124 


134 


192 
























allocate 


































1 if darn 


697 


728 


740 


764 


























allocate bkgnd info 


































hminit 


417 
































qminit 


857 


975 






























tapebkup 


246 


277 


300 


344 


506 


700 


732 




















dischpib 


62 


105 






























amigo 


580 


596 






























cs8 


1050 


1227 






























allocate bkgnd info 


proc 
































ctable 


837 


885 


921 


931 


























allow_modif ication 


































qminit 


898 


935 


938 


939 


























alloui release timeout 
































cs80 


220 


804 






























allresolved 


































loader 


1060 


1191 


1191 


1311 


1311 


1334 


1624 


1627 


















ldr 


1013 


1016 


1027 


1033 


1038 
























all present 


































ctable 


658 


663 


665 


666 


666 


667 






















alpha50 


































globals 


286 
































kbd 


335 
































alphabet 


































keys 


78 


370 






























alphalist 


































loader 


1212 


1243 






























alphastate 


































kbd 


113 
































keys 


218 


226 






























crt 


204 


204 


206 


207 


217 


218 


437 


438 


















alreadyopen 


































srmdam 


633 


681 


793 


796 


816 


822 






















altmode 


































kbd 


69 


l r . 7 


211 




























alvinisr 


































dc drv 


129 


237 






























alvinit 


































dc drv 


128 


606 






























am 


































globals 


97 
































bootdam 


713 


714 






























loader 


1120 


1611 






























misc 


450 


451 


452 


453 


454 
























1 if dam 


284 


3C3 


901 


903 


904 
























5rrridam 


919 


920 


921 


1458 


























librarian 


129 


135 


2812 




























amigodvr 


































amigo 


422 
































ami^ninit 


































amigo 


32 
































amigoio 


































amigo 


430 


554 






























amigo_class 


































ctable 


863 


888 






























amigo class type 
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ctable 853 863 

anugo dev type _ „ 

Imigo 43 137 160 205 493 506 
amrequesttype 

globals 66 68 

mini 309 384 

bootdam 544 747 



m lsc 



464 496 515 



imtunits 713 722 726 730 802 

keys 55 137 

crt 48 317 

ascii 6 13 

srmam 40 178 

printer 40 49 

£9885 40 

anugo 430 
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am table 
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bootdam 713 714 

initload 1704 
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ascii 344 

llfdam 284 901 903 904 

srmdam 919 920 321 
amtableptrtype 
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amtabletype 

globals 168 173 
amtype 

globals 68 97 145 168 279 

initunit5 757 

ctable 316 
ansuie r 

midecs 43 47 48 49 50 50 

tapebkup 775 779 780 781 781 782 783 

anychange^ ^ ^ ^ 3gg ^ ^ ^ BSQ 6gQ Bg4 1Q75 n04 u50 

anychar 

keys 63 254 256 312 384 453 
anycharsavehook 

keys 66 257 313 
anypt r 

globals 240 241 244 245 

loader 1066 1089 1567 

ldr 897 

kbd 330 340 

keys 448 

C rt 160 426 434 435 

srm drv 1099 1112 1372 1417 1419 1445 1447 1448 1995 2081 

srmaam 49 8 

rnnunit 99 109 
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cs80 915 923 924 925 1222 1278 1288 1299 
any to_ucsd 

convert 35 40 
an isrib 

~ dma_drv 126 127 139 156 
aoff 

librarian 1890 1904 1907 1914 
areyoualivepack 

srm_drv 1003 1524 

srmam 155 
an thop 

librarian 558 1131 
anthoptype 

librarian 546 558 

3rP loader 917 1164 1393 1603 

ldr 950 

librarian 3032 
asciiam 

ascii 6 13 344 
asciif ile 

globals 50 

ascii 344 345 346 
asciimodule 

ascii 3 342 
asm 

mini 304 

bootdam 535 

loader 809 

initload 1664 

isr 34 

misc 153 

imtunits 709 

ldr 844 

init 1088 

kbd 3 4 

keys 33 

crt 33 

clock 3 3 

tail 32 

convert 27 

librarian 27 

mm init 61 

printer 37 

cs80 885 
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564 
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amigo 
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tapabkup 

cs80 
auto_volume 

ctable 
ayastatusptr 

srm_drv 
ayastatustype 

srm_drv 
ayatimeout 

srm drv 
b 

mini 

keys 

ctable 

lifdam 

srmdam 

librarian 

hminit 

kernel 

arnigo 

cs80 
bO 

crt 

librarian 
bl 

kbd 

crt 

bat 



blO 
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bl4 

bl5 

b2 
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b5 

b6 
b7 
b8 
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crt 

crt 

kbd 
crt 

crt 
miui 

kbd 
crt 
bat 

kbd 
crt 
bat 

crt 

bat 

crt 

bat 
crt 
crt 
crt 



kbd 
crt 

b9826in£o 
kbd 

ba 
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lnitload 
ini tunits 
ctable 



srm drv 

srmdam 

srmam 

miui 

tapebkup 

printer 

dischpib 
backspace 

kbd 
backwardlist 

librarian 
backura rdpa tches 

librarian 
badch 

kbd 
badcheckword 

f 9885 
badcommand 

£9885 
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179 

57 

1397 
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1121 

334 
359 
43 
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224 
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161 
613 
231 
311 

103 

1891 
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37 
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37 
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141 
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49 
48 



85 

646 
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1405 
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360 
468 
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167 

236 
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1894 

259 
64 



343 
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468 
652 
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794 
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1896 

271 

74 



409 
259 

64 
259 

64 

64 
64 



272 
75 

273 
76 

77 



335 



96 

462 

563 

1173 



168 

35 
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70 

2490 

1751 

153 

230 
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98 

466 

567 

1174 



199 
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159 

2492 

2492 

207 

236 



629 
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344 
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346 
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345 
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346 
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47 



300 323 326 331 333 



xminit 1236 1420 1425 1427 1429 1430 1432 

badf ile 

globals 

Sisc 685 686 

lifdam "OS 
badl °Uf d a™ 86 103 17! 177 184 216 297 378 469 489 490 863 877 1045 1048 1051 1053 1066 

1142 
badverif y 

£9885 «9 

bad_blocks 

packets 346 
bad_track 

hminit 
bat 

bat 32 95 

clock 3 3 

bat8041cmdreg 

bat 44 73 

bat8041datareg 

bat « 67 85 

bat8041statusreg 

bat 43 51 59 

batbytereceived 

bat 38 82 85 

clock 195 196 200 201 202 

batcommand 

cfock 143 144 194 195 196 200 201 202 

batdataout ,. 7 . 

bat 66 74 75 76 77 78 

batinit 

bat 39 88 98 

batstatus 

bat 
batterypresent 

bat 35 70 



48 51 52 56 59 60 



bba 
bcb 



bed 



clock 188 

tapebkup 486 

cs80 212 

h drv 136 

dl dry 137 

a d>v 139 

dc~ dru 184 338 346 

rs_drv 14 

bootdam 555 556 
lifdam 37 41 



miui 



383 384 



bcdl2 

miui 



cs80 712 841 946 979 

384 398 407 420 
bed product number 

- CS 8 " 709 838 841 943 976 979 
bdattype 

srmdam 66 911 1018 
bdx chain semaphore 

- discRpib 52 470 482 485 

bdX " n dlschpib 54 445 497 498 500 500 501 513 518 

bd *- P d!schpib 53 514 515 517 518 

amigo 813 941 

CS80 1270 1307 

bdX - P df S ch P lb 55 446 526 

**'*" k bd 126 219 233 302 

rSarian IS 1550 3«8 3470 3473 3475 3477 3479 3480 3483 3484 3487 3489 3491 3493 3497 3499 3501 
3503 3505 3507 3510 

beeP6 kbd 127 221 282 
bell 

misc 162 
bellchar 

raise 162 369 

crt 

bep 



_ . 390 

librarian 91 96 
printer 46 



44 214 221 

78 86 87 89 



printer 
bia_ptr 

dischpib 
bia_type 

dischpib 7 5 7 8 
biggraphics 

globals 285 

cYt 169 184 

kernel 929 

bi951 heapt 71 103 112 

"^"kernel 878 1063 1064 

bi9te ke 3 rnel 879 1008 1010 1070 1071 
binand 

iolib 1 2176 2197 2504 2522 2573 2638 

toinemp 

kernel 620 

iolib 2176 2197 
bineor 

kernel 618 
binior 

kernel 616 

iolib 2U3 2134 

blP dischpib 94 100 107 111 114 116 116 
bip_type 

hminit 2bs 
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qminit 673 720 

tapebkup 570 

dischpib 58 94 107 129 130 149 157 158 165 431 481 492 510 

amigo 598 673 700 718 764 775 797 937 

CS80 1211 1229 1252 1264 1280 1290 1307 
bip_valid 

dischpib 94 98 101 129 157 165 
bit 

qminit 848 883 

tapebkup 336 370 

cs80 717 850 
bit8 

librarian 434 696 881 1047 1052 1097 1139 1140 1155 1159 1165 1168 1179 
bitcount 

librarian 783 796 807 819 825 825 834 834 
bitmap 

loader 911 995 
bitop 

librarian 682 712 717 
bitopstates 

librarian 685 713 718 
bitoptype 

librarian 680 682 
bit set 

kernel 612 920 

iolib 361 376 452 460 461 529 537 538 1997 2007 2016 2026 2271 2319 
bi_type 

dischpib 37 58 75 
bkgnd 

hminit 137 198 

qminit 466 792 

miui 11 

tapebkup 14 225 761 

dischpib 28 189 537 

amigo 37 425 

csSO 34 63 554 885 
bkgnd_and dischpib_p resent 

c table 847 879 931 
block 

loader 1118 1120 

misc 518 537 540 572 605 606 630 630 634 635 638 640 

librarian 127 129 133 135 

cs80 1017 1021 1023 1033 
blocks 

librarian 127 129 
blocksize 

loader 813 1142 1145 1147 1148 1149 1152 1153 1154 1322 1325 1326 1328 1330 

librarian 1449 2063 2063 2067 2067 2186 2186 2244 2244 2276 2276 2281 2281 2285 2285 2300 2301 2323 
2329 2339 2340 2358 2359 2360 2363 2371 2584 2592 2594 2919 2920 2937 2952 3221 3258 3258 

blocktime 

cs80 101 
blockwrite 

librarian 127 2068 2188 2277 2282 2302 2341 2938 2953 3181 
block address 

cs80 915 1222 1236 
block_boundaries 

ctable 218 410 412 413 1217 
block os 

ctable 231 232 475 481 487 494 
bmp 

loader 911 

librarian 190 394 395 1656 1772 1773 1773 1873 
bnode 

bootdam 782 789 789 790 790 791 
boff 

librarian 1SS9 1910 1913 1914 
boffset 

srm_drv 1087 1103 1939 1952 2020 2032 
boolean 

9"l° b «l= „J9 80 81 82 83 85 86 87 88 89 116 159 160 161 163 208 286 291 

mini 409 

bootdam 564 576 579 581 587 589 592 628 649 

load f r _ ,? 6 ? 92 * 925 94S " 5 1005 1016 1019 1060 1074 1082 1088 H 7 ° 117S 1206 1208 



1494 



1565 1566 1569 



initload 1711 

raise 259 263 

initunits 768 774 

ldr 848 898 980 

kbd 44 47 48 89 89 97 100 107 113 114 169 290 291 319 324 

Keys 52 53 62 63 73 75 106 209 211 

crt 68 97 101 103 163 

bat 35 

ctable 212 214 260 298 301 304 622 638 658 695 713 738 847 975 978 988 1000 1070 

convert 47 Z21 "* 23? 3 " 564 6U 6U 613 B59 697 U7 "o 997 1043 

packets 201 209 247 296 

srm drv 1065 1072 1075 1102 1125 1126 1299 1786 1860 1878 2019 

srradam 171 174 190 324 359 360 440 445 480 485 546 621 632 633 641 880 882 930 

942 989 1006 1483 1484 1485 1590 1591 

srmam 147 

librarian 51 139 148 152 280 301 420 434 448 451 507 622 771 785 1453 

1572 1807 1888 1949 2088 2202 2439 3187 

midecs 35 37 41 

hminit 142 171 176 298 299 365 

qminit 517 685 806 842 848 902 957 958 964 

xminit 1223 1236 1241 1268 

miui 32 128 218 289 408 

tapebkup 243 297 330 336 388 390 396 539 549 585 592 593 727 773 803 815 850 899 

95 8 

heapt 61 70 79 

lockmod 7 14 

kernel 329 331 356 457 468 478 493 613 753 877 

h drv 142 143 

dl dry 143 144 

g_3rv 143 

dc drv 171 344 

i°1ib 296 299 311 357 372 386 387 705 707 1115 1117 1526 1535 1582 1613 1614 1889 1899 

1901 1903 1906 1923 1995 2006 2014 2024 2080 2218 2222 

printer 73 74 75 76 145 148 149 150 

£9885 62 

dischpib 40 41 44 45 46 52 53 66 94 163 192 226 246 344 375 407 

ar,1 9° 98 99 100 104 107 108 109 110 111 112 113 138 139 177 183 281 559 716 

=S80 192 557 557 565 565 572 573 707 717 941 1019 1045 1224 1301 
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librarian 2806 2840 2841 2842 2842 2868 2870 2877 2879 2888 2891 

xminit 1157 1158 

miui 447 457 482 486 486 488 490 

printer 40 49 299 

£9885 40 110 281 

amigo 431 623 

Cs80 900 1111 
buffered_ transfer 

dischpib 4 5 

amigo 679 684 685 721 
buf fersize 

crt 162 174 180 187 
buf f er_busy 

iolib 1114 1525 1529 1530 
buf f er_data 

iolib 1100 1152 1157 1186 1251 1277 1405 1428 1490 
buf fer_reset 

iolib 1097 1163 1187 1251 
buf fer_space 

iolib 1098 1181 1188 1263 1360 1408 1455 1511 
buf fsize 

miSC «" 472 484 486 497 602 506 507 516 568 568 570 576 576 579 583 583 590 
bub blD 616 618 654 
buf length 

ascii 10 21 22 290 
bufparams 

ascii 18 49 85 291 320 330 
bufptr 

lifdam 372 387 428 431 

x m in r it rian mt 1111 un nit mi mi mi 2ssi 2863 m4 2864 **** **** 2883 ^ ^ ^ 

"885 82 178 213 213 281 282 

bufsize 80 913 915 1122 U3 * U5 ° 1151 U51 1169 U66 1179 118 ° 118 ° 1189 1190 U90 U" 1222 123 ? 

globals 69 

bootdam 545 748 757 764 773 

<!>isc 523 527 528 528 529 536 541 542 542 544 544 545 548 

mitunits 714 723 727 731 803 

ascii 7 14 182 190 195 202 219 222 226 239 245 248 

srroarn 42 180 195 202 
buf_empty 

srm_drv 1198 1267 1279 1374 1419 1447 

kernel 474 

dc drv 375 377 377 

iolib 1139 1157 1170 1442 1444 1444 

dischpib 463 
buf_fill 

srm_drv 1199 1267 1278 1291 1376 1420 1448 

kernel 475 

dc drv 394 396 396 406 406 424 425 425 428 442 442 

iolib 1140 1157 1169 1188 1469 1471 1471 

dischpib 464 
buf_inf o 

dischpib 56 448 492 502 510 
buf_in£o_type 

srm_drv 1124 1264 1271 1284 

kernel 462 

dc drv 339 

ioTib 1064 1069 1075 1081 1088 1093 1095 1097 1098 1100 1102 1104 1107 1111 1114 1124 115? 11s? 

1181 1195 1221 1306 1330 1356 1399 1424 1451 1479 1507 1525 

dischpib 56 
buf_ptr 

srra_drv 1194 1278 1279 1291 1372 1417 1445 

kernel 472 

iolib 1134 1139 1140 1169 1170 1188 

dischpib 461 
buf_read_cmd 

amigo 58 724 
buf_size 

srm_drv 1197 1291 1373 1418 1446 

kernel 47 3 

iolib 1138 1188 

dischpib 462 
buf_type 

kernel 460 472 
buf__urite_crad 

amigo 59 725 
buildchar 

keys 64 316 399 399 405 
buildcount 

keys 65 315 400 400 401 
burst tfr 

Kernel 454 
busadd r 

xminit 1160 1154 1171 1175 
busy 

kbd 89 256 

crt 163 

bat 52 
bus_address 

ctable 971 1124 1126 

printer 71 115 246 294 
bus_addre5sed 

Printer 73 238 248 268 300 
bx_bufptr 

dischpib 49 

amigo 623 766 839 842 950 950 

CS80 1237 1282 
bx_length 

dischpib 50 

amigo 624 747 748 951 951 954 

CS80 1238 1269 1271 1282 
bx_strt_rcrd 

dischpib 48 

cs80° 1236 1269 ^ ?38 81 * "^ 839 8 " 91? 9 * 9 9 " 9 958 959 
bx_tfr length 

dischpib 51 

amigo 748 749 766 842 863 864 917 949 950 951 
bx_tnes 

dischpib 47 

amigo 621 828 828 830 849 856 867 903 903 904 

globals 29 146 147 148 149 206 207 
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mini 



412 

bootdam 570 571 572 E 73 

loader 8*3 926 944 1171 

40 41 42 



call 



mini 



misc 



47 48 49 52 62 63 64 80 81 82 111 



^ 39 96 99 124 127 132 132 133 137 168 242 259 259 262 282 288 289 

323 

keys 42 43 105 209 444 

crt 66 194 

bat 37 37 38 64 64 66 82 

^° fc le Js 226 229 230 231 232 233 234 235 236 237 288 289 290 291 444 457 

475 487 500 509 532 554 567 862 

packets 297 299 300 301 302 303 304 

srm_drv 1393 1394 

librarian 438 

hminit 142 161 171 178 179 287 

qminit 847 882 

xminit 1154 1157 1291 

tapebkup 335 3 69 

!3' Ib l % 19 » 2 " "* i« "" °« » s »* 245 2 « 278 279 508 

cs80 38 

byte °clock 55 75 80 141 142 143 143 196 202 

bytel clock 54 76 81 141 142 143 143 195 201 
byte2 

clock 53 77 141 143 200 
byte3 

clock 52 
bytecount 

bootdam 591 

srmam 
byteext 

librarian 450 526 
byteof fset 

globals 150 

mini 514 

initload 1683 

misc 265 

initunits 784 

ctable 340 671 

502 507 507 



52 59 65 73 84 88 99 106 112 120 



miui 

£9885 286 

amigo 622 

CS80 1111 
bytereceived 

kbd 168 247 308 



"^"librarian 412 413 545 688 689 714 718 719 725 745 916 946 1048 1090 119* 
bytesize 

heapt 44 45 286 307 

b>,teS librarian 421 470 471 471 1323 1342 1348 
byte offset 

"packets 681 755 

srm_drv 1952 2032 

b - ln£ sVn, drv 1264 1266 1271 1273 1284 1286 1288 1290 

?oTib U 1064 1069 1075 1081 1088 1093 1095 1097 1098 1100 1102 1104 1107 1111 1114 1124 1129 1152 

i,?I tiSS iHS ill. tiSS t. 1 !! ii iHS ii.1 i § »" »" "» "" "» 

1428 1434 1451 1455 1461 1479 1490 1498 1507 1511 1519 1525 1528 
b_u_mode 

srm_drv 1344 

kernel 467 

dc drv 353 

lolib 1289 1339 

dischpib 456 

initload 1737 1749 1750 1750 1751 

"**= HI \U ilJ 124 III 124 \U 111 291 291 292 304 305 305 305 307 307 308 
319 375 379 396 396 398 399 401 402 405 

convert 91 96 97 100 103 104 104 107 111 111 114 115 118 

librarian 1455 1458 1459 

hminit 275 

miui 15 177 201 34; 468 

dc drv 131 

amigo 113 914 

C s80 344 349 350 350 
calc rate 

"iolib 2391 2411 2422 



526 



loader 1120 1391 1610 



235 267 443 479 484 486 502 529 545 558 597 637 



^ s "I HI HI 203 218 219 225 226 275 318 334 339 420 



crt 361 416 

ctable ' 

ascii 

lifdam 

srm drv 1230 1350 

srm3am 1458 

swvol 2 4 

librarian 129 135 2812 

miui 



605 872 885 886 887 898 900 910 1098 

244 303 336 337 428 431 453 509 511 1124 1125 



246 486 488 490 522 526 



tapebkup 92 7 

lockmod 26 49 67 

kernel 844 860 1204 

h dru 261 

dl drv 255 

dma drv 149 166 

g drv 251 

dc drv 469 

loHb" 174 183 194 206 220 »« "0 734 736 742 744 794 817 848 870 928 949 1040 

1204 1317 1342 1388 1416 
printer 96 113 115 116 137 

f 9885 178 298 

1-12 



325 


390 


734 


736 


742 


744 


794 


1593 


1604 


1617 


1944 


2139 


2202 


2324 


242 


245 


246 


250 


255 
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dischpib 

cs80 
candown scroll 

kbd 
canupscroll 

kbd 
cap 

srmdam 
capabilities 

packets 

srrndam 
capslock 

keys 
card_addr 

kernel 
ca rd_id 

srmarfi 

kernel 

h drv 

dl_drv 

dma_d rv 

9_di"v 

dc_drv 

rs drv 

ioTib 

£9885 

dischpib 
card_ptr 

miui 

kernel 

hjdrv 

dTjdrv 

dma_d rv 

9„drv 

dc_drv 

rs drv 

f 9^85 
ca rd_type 

kernel 

dc drv 

iolib 

printer 

dischpib 
casecodestart 

librarian 
casetable 

librarian 
cat 

lifdam 
catalog 

globals 

lifdam 

srmdam 
catalogue_organization 

packets 

srm_drv 
catarray 

lifdam 

srmdam 
catarrayptr 

srmdam 
catentry 

misc 

lifdarn 

srmdam 

miui 
catentryindx 

srmdam 
catentryptr 

srmdam 
catindx 

srmdam 
catpack 

srm drv 

s rm3am 
catpasspack 

srm drv 

srmcJam 
catpasswords 

globals 

srmdam 
catr 

cs80 
cat_info 

packets 

srmdam 
cblocksize 

misc 

lifdam 

srrndarn 
cb_index 

amigo 
cb_ptr 

amigo 
ccreatedate 

misc 

lifdam 

srmdam 
ccreatetime 

misc 

lifdam 
srmdam 
cd 

tapebkup 
cdate 

lifdam 
cef t 

misc 

lifdam 
srmdam 
centisecond 
globals 
clock 



139 

325 

1214 


220 
326 


251 

328 


264 
336 


266 
353 


257 
354 


268 
359 


270 
360 


285 
382 


289 
383 


290 
385 


291 

386 


306 
412 


307 
416 


308 
502 


309 
515 


322 
525 


324 
526 


44 


181 


































44 


180 


































176 


251 


282 
































284 
279 


315 
288 


411 
295 


461 


515 


588 


1036 


1040 


1041 


1072 


1073 


1356 














52 


292 


292 


350 


370 


455 


























388 


402 


416 


1127 






























150 
435 
213 
214 
193 
213 
205 
207 
2099 
262 
229 


948 
214 
253 

249 

206 

238 

2119 


956 
259 

207 
21S2 


960 
259 

223 
2182 


981 

321 
2228 


1001 

322 
2276 


1007 

561 
2419 


1015 

562 
2430 


1021 

563 
2465 


1039 

565 
2494 


1059 

569 
2561 


601 
2569 


609 
2602 


610 
2622 


616 
266E 


2673 


2701 


2708 


467 


494 
































345 
436 
239 
233 
224 
232 
586 
224 
263 


766 
230 


785 


805 


824 


964 


982 


992 


1127 




















433 
566 
359 
121 
237 


951 
617 
374 
240 


976 

419 
254 


980 

443 
308 


1000 

496 


1006 

520 


1014 

580 


1020 
630 


1027 
1979 


1040 
2097 


1060 
2160 


1073 
2226 


2417 


2463 


2547 


2600 


2664 


2699 


305 


1299 


1304 


1309 


1309 




























295 


1300 


1302 
































463 


470 


542 


545 


561 


588 


























136 
1132 
1605 


1654 


































338 
1493 




































76 
434 


561 
435 


475 


476 


538 


539 


























435 


457 


476 


512 


539 


573 


























180 

76 

356 

369 


463 
424 


542 
538 


960 






























444 


484 


490 


500 


510 


512 


519 


519 


530 


550 


553 


559 


571 


573 


603 


603 


613 




960 


967 


































443 


483 


499 


503 


526 


526 


549 


558 


562 


610 


610 
















1004 
561 


1542 


































1012 
502 


1580 


































138 
1606 


1556 


































102 




































386 
573 




































190 
549 
385 


596 
583 


































793 


840 


841 


844 


846 


846 


























792 


839 


842 


844 


845 


845 


























191 
555 
386 


597 
410 


581 
































192 
555 
387 


597 
410 


581 
































183 


198 


199 


200 


201 


202 


203 


204 


205 


206 


207 


208 


209 


210 


211 


212 


213 


213 


54 


496 


555 
































182 
591 
576 


591 


































226 
126 


167 
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lifdam 


125 


126 


538 


569 








srmdam 


350 


363 












librarian 


231 














miui 


84 














certify 
















tapebkup 


1074 


1129 












cextral 
















misc 


193 














lifdam 


485 


552 


599 










srmdam 


380 


584 












miui 


515 














cextra2 
















misc 


135 














lifdam 


553 


599 












srmdam 


383 


585 












ch 

srmdam 


1482 


1506 


1511 


1516 


1523 


1533 


1541 


swvol 


6 


24 


25 


25 


26 






librarian 


261 


273 


274 


274 








qminit 


922 














tapebkup 


767 


769 


769 


769 


769 


1115 


1125 


chl 
















keys 


140 














ch2 
















keys 


140 














chainf lag 
















globals 


208 














chan 
















f9885 


112 


154 


155 


156 


156 


178 


178 


changed 
















lifdam 


373 


401 


408 


416 


423 


439 




changefname 
















lifdam 


1040 


1113 












changeha rdua re 
















kbd 


107 


338 












crt 


444 














changename 
















globals 


134 














lifdam 


1113 














srmdam 


1613 


1720 












changep ro tec tpack 
















srm drv 


1020 


1618 












s rmdam 


465 


1359 












changevolpack 
















srm drv 


1028 


1653 












channel_parity_error 














tapebkup 


414 


614 












cs80 


122 


595 












Chan indep clr 
















cs80 


276 


319 


335 


819 








char 

globals 


10 


32 


60 


129 


155 


281 




mini 


390 














bootdam 


553 


733 


734 


781 








loader 


851 


916 


937 


943 


1585 






initload 


1734 


1737 












misc 


246 


520 












kbd 


52 


53 


56 


66 


68 


69 


71 


keys 

crt 


73 


75 


117 


140 


141 


212 


- 262 


51 


98 


99 


106 


114 


153 


157 


bat 


43 


44 


45 










ctable 


204 


234 


235 


296 


509 


532 


696 


ascii 


89 


153 












lifdam 


35 


36 












convert 


33 


45 


91 










packets 


230 


307 


723 


809 








srmdam 


187 


192 


193 


540 


638 


639 


1398 


srmam 


47 














swvol 


6 














librarian 


52 


103 


261 


294 


1455 






midecs 


43 














qminit 


496 


922 












xminit 


1192 


1228 












miui 


314 


314 


390 


403 








tapebkup 


767 


775 


1115 










kernel 


312 


314 


391 


395 


405 


409 


419 




883 


884 


885 


886 


887 


888 




h drv 


128 


129 


137 


138 








dl drv 


129 


130 


138 


139 








g_3rv 


131 


132 












dc drv 


176 


177 


242 


252 








rs drv 


132 


133 












ioTib 


136 


138 


180 


191 


291 


322 


672 




1425 


1426 


1452 


1453 


1941 


1956 




printer 


145 














dischpib 


260 


318 


373 


508 








amigo 


124 


428 


439 


445 


450 






cs80 


895 


938 












character 
















kbd 


93 














keys 


180 


181 


189 


198 


274 


418 




crt 


108 


123 












iolib 


707 


709 












printer 


145 


250 


251 










chard el 
















kbd 


67 


154 


208 










charptr 
















globals 


32 


205 












mini 


392 














bootdam 


781 


786 


787 


788 








isr 


39 


46 


61 


79 








kbd 


351 














keys 


142 














crt 


321 














convert 


45 


67 












srm_drv 


2099 














srmam 


53 


100 












xminit 


1349 














dc^drv 


428 














printer 


70 


81 












f9885 


82 


110 












dischpib 


49 


195 


197 


201 


251 


274 


341 


amigo 


792 














cs80 


913 


1122 













1126 1128 1139 1145 



90 93 110 111 166 
161 279 279 319 
746 748 812 823 850 868 966 996 1065 1069 



1482 



460 497 690 705 723 802 803 821 822 881 



686 707 832 837 917 919 941 1084 1103 1105 1352 



424 
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che V- 



check2 

lifdam 
checkentry 

lifdam 
checkf title 

lifdam 
checkinref 

librarian 
check rev 

loader 

ldr 
checkspace 

lifdam 
checktextbuf 

librarian 
checkvolid 

lifdam 
check_dsj 

amigo 
check_io result 

miui 
check qstat 

cs80 
check status 

h"minit 
check_tapebuf 

cs80 



chr 



ci 

cic 

cinfo 



mini 
bootdam 
loader 
initload 

misc 

initunits 

kbd 



keys 

crt 

bat 

ascii 

lifdam 

convert 

srm drv 

s rmdam 

librarian 

miui 

tapebkup 

kernel 

dc drv 

iolib 
printer 
dischpib 
amigo 

librarian 

cs80 



misc 

lifdam 

srmdam 
cinfoO 

crt 
cinfol 

crt 
cinfo2 

crt 
cinfo3 

crt 
c i_c 1 r 

cs80 
ci_switch 

tail 
ckind 

misc 

lifdam 

srmdam 
cl 

qminit 
clastdate 

misc 

lifdam 

srmdam 
clasttime 

misc 

lifdam 

srmdam 
cleandir 

lifdam 
cleanup 

lifdam 
clear 

crt 

librarian 

iolib 
clearanychar 

keys 
cleariohook 

globals 

init 

ctable 

kernel 
clearline 

kbd 
clearlogs 

qminit 
clearscr 



249 


446 


459 


460 


461 


468 


469 


470 


479 


480 


482 


491 


492 


493 


495 


502 


503 


504 


513 


514 


515 


516 


525 


527 


536 


537 


538 


547 


549 


559 


560 


561 


562 


576 


577 


578 


579 




































720 


734 


741 


761 






























786 


858 


































214 


651 


950 


1046 


1067 


1144 


























2349 


2711 


































1085 


1578 


1623 
































1012 


1030 


































717 


791 


837 


874 






























2311 


2732 


2739 


2746 


2752 


2759 


2780 
























295 


377 


482 


544 


573 


651 


949 


1046 


1065 




















548 


776 


782 
































373 


487 


489 


491 


527 




























925 


1273 


1293 


1299 






























264 


322 


395 
































998 


1008 


1026 
































387 




































779 


7B7 


































1289 


1290 


































1687 




































159 


160 


162 


163 


164 


165 


166 


167 


168 


170 


171 


172 


251 


548 


585 








788 




































150 


151 


152 


152 


153 


154 


154 


155 


156 


156 


157 


158 


159 


160 


160 


184 


185 


186 


187 


188 


189 


190 


192 


193 


204 


205 


206 


206 


207 


208 


208 


209 


210 


210 


211 


212 


213 


214 


214 


263 


270 


278 


























176 


180 


190 


199 


266 


266 


268 


268 


293 


294 


295 


297 


298 


321 


322 


338 


341 


344 


345 


361 


362 


368 


380 


405 


414 


436 






















124 


165 


196 


197 


304 


308 


335 


345 


355 


395 


















67 


73 


































108 


108 


115 


116 


134 


134 


225 


242 


242 


295 


331 


331 














556 




































97 




































1363 


1364 


1365 


1366 


1369 


1371 


1415 
























197 


199 


































502 


503 


1478 


1535 


3465 




























68 


69 


70 


71 






























769 




































144 


145 


199 


200 


201 


202 


203 


204 


205 


206 


207 


208 


209 


210 


211 


212 


832 


1128 


1186 




































428 




































422 


424 


499 


501 


1694 


1723 


1764 


1787 


1835 


1843 


















62 


63 


64 


115 


116 


245 


246 
























266 


267 


268 


307 


308 


324 


325 


326 


386 




















466 


470 


































27 




































325 


331 


332 


333 


333 




























198 




































556 


556 


600 


600 






























390 


392 


586 


589 


591 


593 


593 


594 


594 


598 


598 


599 


599 












102 


442 


































102 




































102 




































102 




































328 


332 


































38 




































183 




































591 




































577 




































624 


632 


633 


634 


635 


636 


636 
























191 




































554 


598 


































388 


411 


582 
































192 




































554 


598 


































389 


411 


582 
































343 


379 


953 


964 


1071 


1079 


























206 


1138 


1151 


1154 






























245 


391 


392 


393 






























3350 


3357 


3360 


3368 


3414 


3422 


3427 


3433 


3439 


3442 


3448 


3450 














1647 


1705 


































252 


329 


388 


394 


404 




























273 




































1117 




































1098 




































1165 




































56 


193 


































628 


634 
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misc 


167 










crt 


393 










tapebkup 


963 


1046 


1081 


1134 


1152 


clearscreen 












kbd 


55 


192 








clearunit 












globals 


66 










mini 


496 










keys 


155 










crt 


331 










ctable 


606 










srinam 


187 


205 








miul 


490 










printer 


315 










£9885 
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ami go 


575 










cs80 


1077 










clear and escape 












T9885" 


94 


132 


188 


202 


209 225 245 


clear^hpib 












To lib 


1578 


1600 


1687 


1688 


1696 1738 1740 


clear_logs 












qminit 


512 


615 


638 


1002 




clear logs_option_ 


byte 










qminit 


809 


928 


939 


1002 




clear serial 












To lib 


2076 


2153 








clear_unlt 












mini 


395 


497 








printer 


108 


316 








£9885 


85 


269 








amigo 


490 


582 








cs80 


1043 


1080 








clock 












clock 


32 


218 








lif dam 


26 










librarian 


27 










miui 


11 










clock init 












clock 


30 










close 












ldr 


862 


863 


864 


365 


874 882 


librarian 


3006 


3007 


3030 


3182 


3197 3210 3341 


xminit 


1656 










closedirectory 












globals 


136 










lif dam 


1134 










srmdam 


1604 


1649 








closed_share_code 












packets 


164 










close f 












lif dam 


971 


1110 








closef ile 












globals 


135 










bootdam 


721 










loader 


1391 










misc 


429 










lif dam 


1110 










srmdam 


1612 


1715 








closef iles 












loader 


1090 


1385 


1561 


1647 




ldr 


1064 










librarian 


3074 


3541 


3557 






close in 












librarian 


3024 


3073 


3098 


3146 


3174 3538 3541 


closeout 












librarian 


3172 


3483 








closepack 












srm drv 


1032 


1676 








srmdam 


315 


900 








clsize 












misc 


186 










lifdam 


551 


593 


594 






srmdam 


382 


579 








cntd 












kbd 


132 


259 


268 


268 


270 277 


bat 


37 


64 


73 






CS80 


293 


339 


346 


349 


349 354 362 


cmdl 












CS80 


230 










cmdlOO 












cs80 


255 
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255 










cmdl02 












cs80 


255 










cmdl03 
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256 
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232 
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258 
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cs80 
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cmdllB 

cs80 259 

crndll? 

cs80 259 

cmdll8 

cs80 259 

cmdll9 

cs80 259 

cmdl2 

csBO 233 

cmdl20 

csSO 250 

cradl21 

cs80 260 

cmdl22 
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cmdl23 

cs80 260 

cmdl24 

cs80 261 

cmdl25 

cs80 261 

cmdl26 

cs80 261 

cmdl27 

cs80 261 

cmdl28 
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cmdl9 

cs80 234 

cmd20 

cs80 235 

cmd21 
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cmd22 
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cmd23 

CS80 235 

cmd25 

cs80 236 

cmd26 

cs80 236 

cmd27 

cs80 236 

cmd28 

cs80 237 

cmd29 

cs80 237 

cmd3 

cs80 230 

cmd30 
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defdelta 

loader 1476 1479 1484 1486 
defective_track 

amigo 7 7 875 

def erredaction 

globals 27 7 

raise 235 

kbd 232 236 

def inecaseword 

librarian 1226 1298 1307 
def ineword 

librarian 491 1221 1284 
def limit 

librarian 1242 1246 1247 1264 
def modpt r 

loader 1179 1182 1183 1185 1187 1188 1189 1189 
de f p t r 

loader 1248 1262 1264 1265 1269 1276 

librarian 1557 1655 1657 1660 1660 1660 1661 1662 

xminit 1240 1276 1394 1473 1473 1474 1480 1676 1576 1577 1583 1610 1614 

dS£S1 loader 958 1014 1188 1258 1258 1259 1250 1262 1264 1265 1310 1349 1432 1467 

librarian 370 1246 1410 1643 2101 2125 2184 2185 2186 
def sout 

librarian 49 2184 3041 3417 3475 3475 
def table 
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loader 


1172 




































xminit 


1238 


1277 


1480 


1583 


1616 


1621 


























def tablelength 






































loader 


1175 




































del 






































misc 


173 




































keys 


322 




































qminit 


656 


664 


665 


666 


667 


668 


668 
























dell 






































srmdant 


192 


200 


638 


647 


657 


662 


664 


670 






















del2 






































srmdam 


193 


201 


639 


647 


662 




























delim 






































srmdam 


187 


197 


199 


204 


226 


241 


252 


254 






















delta2 






































librarian 


2437 


2523 


2524 


2524 


2564 




























dend 






































lif dam 


194 


272 


399 


850 






























dentry 






































bootdam 


613 


665 


668 


671 


673 


674 


711 
























lifdam 


195 


288 


402 


403 


405 


409 


409 


412 


418 


421 


422 


437 


441 


449 


450 


515 


516 


578 




579 


582 


583 


583 


588 


620 


621 


627 


645 


645 


788 


801 


836 


841 


841 


857 


896 


897 




916 


917 


918 


919 


920 


921 


922 


922 


923 


924 


925 


926 


935 


937 


980 


983 


990 


1002 




1003 


1006 


1012 


1018 


1029 


1030 


1031 


1031 


1032 


1033 


1036 


1056 


1057 


1058 


1073 


1074 


1074 


1075 




1145 




































deovblk 






































loader 


833 




































librarian 


3177 


3228 


































describe 






































qminit 


867 


1096 


































tapebkup 


354 




































cs80 


281 


423 


434 


831 


962 




























describe_bytes 






































qminit 


805 


821 


822 


828 


867 


879 


882 


925 


936 


943 


991 


1021 


1096 












tapebkup 


229 


354 


366 


369 


968 


983 


1083 
























cs80 


281 


423 


432 


432 


708 


831 


835 


942 


962 


966 


















describe type 






































qminit 


805 




































tapebkup 


229 




































cs80 


89 


281 


423 


708 


942 




























dest 






































librarian 


543 


954 


































destaddr 






































packets 


300 




































dest fid 






































srrn^drv 


1037 


1700 


1713 
































destination file id 






































packets 


475 




































srm^drv 


1713 




































destinatIon_is_a_tape 




































tapebkup 


958 


985 


989 


1000 


1011 


1025 


























destination lun 






































tapebkup 


956 


975 


976 


977 


981 


982 


























destination offset 






































packets 


477 




































srm^drv 


1714 




































destination size 






































tapebkup 


959 


986 


990 
































destination_uep 






































tapebkup 


29 


175 


208 


209 


237 


536 


575 


575 


707 


957 


976 


979 


1002 


1005 


1009 


1012 


1016 


1026 


destof f 






































srm_drv 


1038 


1701 


1714 
































deststates 






































librarian 


568 


579 


851 


896 


914 




























dev 






































ctable 


716 


768 


774 
































miui 


314 


316 


































amigo 


506 


511 


519 


520 


534 




























device 






































hminit 


439 




































miui 


20 
201 


170 
324 


171 
342 


172 
346 


173 
466 


174 


175 


176 


177 


178 


179 


180 


181 


182 


190 


192 


196 


197 


iolib 


300 


303 


305 


308 


399 


405 


407 


420 


422 


436 


476 


482 


484 


497 


501 


513 


563 


568 




570 


573 


611 


617 


619 


623 


664 


666 


669 


673 


675 


678 


681 


684 


687 


689 


699 


720 




780 


787 


803 


808 


833 


839 


859 


864 


879 


883 


892 


896 


905 


909 


918 


922 


938 


943 




1066 


1072 


1078 


1085 


1090 


1218 


1227 


1227 


1228 


1268 


1282 


1303 


1312 


1327 


1336 


1353 


1361 


1396 




1410 


1647 


1650 


1664 


1656 


1659 


1660 


1666 


1705 


1708 


1709 


1728 


1731 


1733 


1737 


1756 


1759 


1761 




1764 


1767 


1775 


1779 


1780 


1794 


1797 


1798 


1810 


1813 


1815 


1819 


1822 


1848 


1850 


1892 


1953 


1958 


amigo 


137 

687 


160 

957 


163 


164 


165 


166 


167 


168 


169 


170 


171 


179 


185 


207 


315 


511 


657 


583 


devicename 






































qminit 


843 


853 


854 


880 


880 


884 


884 


885 


885 


887 


887 


891 


891 


893 










miui 


130 


191 


192 


194 






























tapebkup 


331 


340 


341 


367 


367 


371 


371 


372 


372 


374 


374 


378 


378 


380 










device address 






































packets 


340 




































srm drv 


1495 




































device aHdress present 




































packets 


339 




































srm drv 


1494 




































device aHdress type 






































packets 


259 


340 


































device_dav 






































ctable 


996 


1005 


1011 


1014 


1017 


1020 


1025 


1031 


1039 


1046 


1054 


1065 


1074 


1081 










device_ident 






































amigo 


495 


519 


































device_ident_type 






































amigo 


492 


495 


































device letter 






































ctable 


868 


872 


873 


996 


1004 


1008 


1024 


1045 






















device_maps 






































amigo 


195 


215 


































device maps type 






































amigo 


191 


195 


































device table 






































amigo 


454 


484 


503 


534 






























device_table_type 






































amigo 


446 


454 


493 


503 






























devid 






































globals 


151 




































initload 


1684 




































initunits 


785 




































ctable 


341 


813 


824 


904 


910 


913 


974 


1215 


1270 


1289 


1291 


1469 


1478 












hminit 


228 
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qminit 

tapebkup 

printer 

amigo 

cs80 
dev_name 

miui 
dev_name T type 

miui 
dev_type 

ctable 
de_log 

qminit 
de_log_type 

qminit 
dfirstblk 

loader 

librarian 
dfkind 

loader 

librarian 
di 

lifdam 



854 
341 
296 
209 
842 

106 

103 

708 

514 

477 

828 
2798 

830 
2963 

563 



318 
868 

192 

107 

716 

642 

514 

1318 
2800 

3225 

575 



diagnostic re lease_ required 



tapebkup 

cs80 
diagnostic request 

tapebkup 

cs80 
diagnostic result 

tapebKup 

cs80 
diagnostic_to_be_run 

qminit 
dindex 

lifdam 



436 
148 



443 
173 



417 
145 



dir 



630 
636 



637 
643 



617 
598 



194 
711 
980 

79 

516 

1032 

srm_drv 1297 

dircatentry 

srmdam 356 

miui 359 

direction 

srm_drv/ 1345 

kernel 469 

dc drv 356 

iolib 1291 

dischpib 45 8 

directory 

loader 1030 

librarian 319 

direc torysize 

loader 946 

librarian 347 

direc to ry_password 

packets 45 7 

srm_drv 1686 

direc to r y_ reco rds 

packets 159 

srmdam 979 

directsize 

loader 113 7 

direc t_control 

dc_drv 13 7 

di rec t_s ta tus 

dc_drv 135 

direntry 

bootdam 557 

loader 827 

lifdam 59 

librarian 2792 

direntryp 

bootdam 557 

dirf ile 

lifdam 77 

dirf ilec ode 

srmdam 962 

dirid 

srmdam 357 

dirname 

ctable 978 

dir range 

loader 82 2 

dirty 

heapt 7 9 

d i r_is_dv r temp 

srmdam 360 

dir_len 

miui 394 

dir_of_t£r 

srm_drv 1297 

kernel 45 5 

iolib 1068 

dischpib 42 7 

dir_sa 

miui 391 

disable auto_release 

csSO 225 

disassemble 

librarian 1492 

dischpib 

hrninit 13 7 

qminit 466 

tapebkup 14 

dischpib 186 

amigo 3 7 

cs80 63 

discid 

lifdam 43 

discint drivers 



319 
897 



748 
665 
642 



925 933 



288 
712 
980 

239 

575 

1056 

1308 

368 
509 



370 

1437 

501 

1258 
322 

1326 
2048 



1094 
1146 

304 

203 

558 

1033 

77 

585 
79 
979 
394 
983 
834 
122 
401 
429 



469 
1074 



426 

804 

1543 

198 
792 
225 

425 
885 

246 



398 
748 
990 

244 

578 

1058 

1324 

424 
521 



460 

1464 

512 

1264 
390 

1328 

2063 



613 



987 
396 



321 
931 



959 
651 



684 
933 



1020 

959 



2927 2931 2960 3224 



605 606 



402 

749 

1001 

273 

618 

1075 

1345 

426 



478 
522 



1283 

1358 



403 

770 

1029 

288 

620 

1102 



408 

771 

1032 

303 
645 



416 

793 

1050 

303 
676 



1124 1125 



443 

806 

1075 

336 

679 

1162 



443 
839 



337 

689 

1162 



444 
846 



349 
690 



618 
847 



351 
694 



618 
859 



359 
847 



623 
859 



391 
857 



637 
860 



402 
926 



637 
871 



441 

980 



638 
913 



450 
990 



645 
926 



509 
1012 



704 
978 



511 
1029 



1321 

1360 



1323 
1465 



1325 
1764 



1332 
1777 



1376 
2019 



1408 
2021 



1439 
2409 



1441 
2680 



1521 
2682 



1523 
2819 



1580 
2822 



1330 1332 



1147 1148 1149 1154 1159 



1146 
195 



1094 
402 



199 



1080 1087 1092 1220 1305 1329 1355 1398 



1544 1545 1546 



1-26 



Pascal Cross-reference 


RELEASE2 . 


O.TEXT 






13- 


-Jan-83 


Page 25 












di_drv 


164 


189 


190 


217 






















discint_initialize 






























di_drv 


100 




























discunit 






























xminit 


1195 


1414 


1457 


1551 


1562 


1586 


1627 
















displ 






























librarian 


428 


1111 


1114 


1118 


1124 




















display 






























ctable 


854 


893 


























dispose 






























heapt 


45 


302 


























division code 






























packets 


218 




























dkvid 






























globals 


266 




























ldr 


892 




























ctable 


1538 




























dl 






























bootdam 


586 




























dlast 






























lifdam 


194 


271 


352 


363 


403 


444 


447 


606 


623 638 


674 


860 


871 


1009 




dlastblk 






























loader 


829 




























librarian 


2798 


2927 


2931 


2962 


3224 




















dlastboot 






























loader 


836 




























librarian 


3229 




























dlastbyte 






























loader 


839 




























librarian 


2956 




























die 






























misc 


169 




























convert 


97 




























dloadtime 






























loader 


835 




























librarian 


3229 




























dmachanneltype 






























£9885 


109 




























dma channel 






























f 9885 


109 




























dma_ch_0 






























kernel 


487 




























dma drv 


142 


149 


179 


180 






















dma_ch_l 






























kernel 


489 




























dma drv 


159 


166 


182 


183 






















dma_he re 






























kernel 


493 


966 


























dma drv 


192 


198 


220 
























£9855 


119 




























dischpib 


229 


453 


























dma_initialize 






























dma drv 


99 




























dma_isc_C 






























kernel 


488 


1215 


1217 
























drna drv 


149 


181 


























dma_isc_T 






























kernel 


490 


1220 


1222 
























dma drv 


166 


184 


























dma_isriEO 






























kernel 


491 


1141 


























dma drv 


209 


211 


228 
























dma isriEl 






























kernel 


492 


1142 


























dma drv 


213 


215 


234 
























dma_isr 7J 






























dma drv 


126 


139 


223 
























drna_isr_T 






























dma drv 


127 


156 


229 
























dma port 






























£9885 


178 




























dma_priority 






























srm drv 


1204 




























kernel 


478 




























iolib 


1146 




























dischpib 


467 




























dma_release 






























kernel 


611 


1217 


1222 
























£9885 


184 




























dma_request 






























kernel 


610 




























£9885 


154 




























dma_tf r 






























kernel 


453 




























dn 






























cs80 


97 


711 


838 


838 


945 


976 


976 
















dnum 






























lifdam 


563 


574 


576 
























dnumf iles 






























loade r 


834 


1146 


1622 
























ldr 


1011 


1026 


























librarian 


3087 


3096 


3103 


3131 


3166 


3178 


3228 


3324 














docat 






























lifdam 


561 


1132 


























dochar 






























librarian 


1455 


1480 


1484 
























doit 






























kbd 


319 


324 


























dokey 






























kbd 


97 


290 


296 


313 






















keys 


209 


280 


























domakedi rectory 






























lifdam 


463 


1135 


























done 






























initload 


1711 


1720 


1722 
























ldr 


898 


908 


917 


921 






















keys. 


211 

402 


217 
410 


224 


231 


237 


250 


284 


292 


296 311 


320 


328 


333 


339 


358 359 


lifdam 


564 


575 


576 


579 


606 


659 


729 


798 


817 855 


860 


860 


861 






srmdam 


440 


480 


491 


500 


508 


524 


546 


554 


559 564 


569 


608 


641 


645 


646 648 


librarian 


148 


180 


194 


197 


1566 


1638 


1644 


1645 


1652 1665 


1667 


1807 


1839 


1845 


1853 1854 




1868 


1875 


1877 


1878 


2088 


2123 


2129 


2140 


2141 2143 


2147 


2161 


2163 


2175 


2176 


dc drv 


344 


387 


398 


410 


430 


445 


453 
















doopendi rectory 































1856 1859 
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lifdam 542 1133 

doopenpack 

srmdara 873 951 1121 1126 1379 

dooropen 

f9835 48 219 

dooropened 

f 3885 62 134 

doo ve ruritefile 

lifdam 1063 1109 
dopref ix 

ctable 983 

dopurgename 

lifdam 649 1128 

dor 

C580 210 

dotimer 

kbd 100 291 299 300 301 

double 

kernel 877 896 985 988 1041 1048 

down 

kbd 66 152 206 

downcha r 

misc 165 

crt 388 

doy 

lit dan 115 117 118 

do buffer data 

" srm_d>v 1264 1267 1288 1309 1320 1336 
do buffer reset 

~ srm_arv 1271 1290 1321 
do buffer space 

srm 3rv 1284 1291 1311 1328 
do transfer 

~ srm_drv 1296 1377 1424 1429 1434 1*39 1449 
dr 

lifdam 566 568 568 568 
driv 

f9885 60 116 126 148 

drive rkey 

bootdam 576 637 639 641 664 666 677 772 774 
driver__name 

packets 337 

srm_drv 1492 
drivetype 

xminit 1192 1355 1423 1423 1424 1424 1426 1426 1428 1428 
drive attention 

Rminit 274 

amigo 84 911 

drp 

loader 909 1258 1264 1283 1323 1325 1376 1408 1439 1521 1580 

librarian 319 390 1358 1465 1764 2019 2041 2181 2600 2680 2819 2950 2953 
drs_line 

kernel 303 

iolib 2107 2127 2170 2190 2242 2290 

drv 

f9885 58 164 

drvasm 

dischpib 189 

amigo 425 

cs80 885 

drve 

f 9885 63 131 201 

drv misc 

kernel 395 409 423 

drv table type 

~ kernll 335 431 651 652 

h drv 163 

dl drv 164 

g_3rv 165 

dc drv 515 

rs~drv 163 

drv tmp_ptr 

srm_drv 1200 1341 

kernel 463 

dc drv 464 

ioTib 1142 1286 

dischpib 450 
ds 

bootdam 586 .„ ,„„ ,„„ 

ctable 224 230 231 232 233 234 235 236 237 368 370 426 428 444 447 475 483 487 

496 500 505 509 528 532 550 554 563 567 580 
ds9895 map 

amigo 193 211 

dsa 

heapt 74 75 120 126 

dsap 

heapt 74 127 136 194 217 263 292 

dsize 

bootdam 584 612 638 665 

lifdam 48 248 271 272 282 485 486 486 490 548 552 

librarian 2404 
dsj 

hminit 311 318 345 350 355 376 391 399 424 

amigo 145 229 236 473 477 521 528 613 800 940 

dsj byte 

~ amigo 231 235 235 236 

dsj_sec 

amigo 233 235 

dsr_line 

kernel 302 

iolib 2247 2295 

dstart 

bootdam 584 611 638 665 

lifdam 45 248 272 279 484 490 548 563 574 585 603 603 

ds tVDS 

~ ctable 197 224 230 231 232 233 234 235 236 237 368 426 444 475 487 500 509 532 

554 567 
dt 

qminit 879 925 936 943 991 

tapebkup 366 970 985 1083 

CS80 95 855 
dtid 

librarian 1369 1407 1435 1468 2796 2797 2798 2964 2965 2965 3106 3134 3135 3135 3327 3328 3445 
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dtr_line 

kernel 305 

iolib 2105 2125 2168 2188 2237 2285 
du 

globals 148 

mini 489 492 492 

initload 1681 

initunits 782 

ctable 92 96 98 100 104 106 109 226 230 231 232 233 234 235 236 237 338 360 

444 446 447 457 461 461 462 475 480 483 487 493 496 500 504 505 509 515 

528 532 538 550 554 561 563 567 578 580 645 645 756 766 785 883 883 357 

1006 1006 1006 1032 1035 1035 1038 1075 1081 1081 1088 1088 1089 1118 1173 1174 1178 1190 

1191 1196 1197 1240 1250 1260 1268 1290 1310 1311 1330 1340 1341 1346 1347 

srm drv 1497 

srmdam 39 2 

qminit 534 

miui 36 36 200 345 346 

tapebkup 45 204 209 573 575 810 810 883 

£9885 126 131 148 164 201 

araigo 268 

CS80 331 389 535 
dumbuf 

srm drv 1124 1192 1216 1303 1309 1311 1320 1321 1328 1330 1336 1338 1350 1372 1373 1374 1376 1417 
1418 1419 1420 1445 1446 1447 1448 
dummy 

misc 299 357 

keys 43 468 

crt 153 

librarian 433 449 

miui 393 428 

kernel 723 728 733 738 743 748 753 876 912 919 920 940 941 941 941 942 994 995 
995 997 997 1037 1045 1051 1067 1068 

h drv 180 

dT_drv 181 

dma_drv 172 191 

g drv 183 

Iolib 2093 2112 2113 2113 2114 2133 2134 2134 2135 2156 2175 2176 2176 2177 2196 2197 2197 2198 
2220 2270 2271 2318 2319 2390 2422 2423 2424 2425 2433 2434 2435 2459 2521 2522 2522 2523 
2543 2572 2573 2573 2574 2596 2637 2638 2638 2639 
dummyl 

1 if dam 46 247 479 
dummy2 

lifdam 47 247 479 
dummy3 

lifdam 50 247 479 
dummy4 

lifdam 57 505 
dummycleario 

init 1104 1117 
dummydebug 

init 1103 1116 
dummykbdhook 

kbd 318 349 
dumm ykbd re lease 

keys 439 451 
dummykbdwait 

keys 434 450 
dummytimerhook 

kbd 323 350 
dummyuord 

dc_drv 194 203 206 207 288 319 321 533 608 609 610 633 634 

rs_drv 180 
dummy boolean 

ctable 975 1523 1525 
dummy byte 

Fminit 161 167 168 168 
dummy char 

3ischpib 260 270 318 328 
dummy driver 

Kernel 718 725 730 735 740 745 750 755 1100 1101 1202 
dummy drivers 

Kernel 652 1099 1123 1152 
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g_3rv 192 

dc_drv 543 

rs_drv 189 
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dummy driver c 
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Kernel 738 1107 
dummy driver ui 

Kernel 733 1105 
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amigo 508 521 
dummy isc 
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dc 3rv 466 
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srm_drv 1201 

kernel 361 1134 1189 

dma drv 180 183 

iolib 1143 
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Kernel 441 
dummy tfr_2 

Kernel 445 
dumpa 

crt 111 446 
dumpalpha 

keys 229 308 323 
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eh_rdui 

h drv 
eh_sen3~ 

h_drv 
eh_set 

h_drv 
eh_test 

h_drv 
ehtf r 

h_drv 
eh_wtb 

h_drv 
ehutc 

h_drv 
eh_uttu> 

h_drv 
eirbyte 

kernel 
emitardef 

librarian 
emitardisp 

librarian 
emitdir 

librarian 

era i tea 

librarian 



1033 1034 1124 

499 63? 993 
1172 
1211 



130 194 
137 200 

140 202 

141 204 
136 199 
129 193 
134 197 

131 195 

391 405 419 1128 1186 

601 609 613 619 661 

607 664 703 708 

592 603 628 629 659 
1083 1125 1149 1162 1181 

647 714 719 733 752 
967 1048 1090 1100 1143 
ernitimm 

librarian 635 974 990 
emitindx 

librarian 522 655 670 
emitint 

librarian 454 496 499 
•emitpostincr 

librarian 612 662 1172 
eraitpredecr 

librarian 617 663 1211 
eraitreglist 

librarian 770 937 954 
emitunop 

librarian 844 898 899 905 911 
emptydsa 

heapt 119 127 

enable auto release 

c!80 226 

enable byte 

£9"885 108 

enable report_changes 

tapebkup 821 967 982 1049 1086 
endblock 

raise 518 634 635 640 

endbytes 

raise 519 616 617 618 642 

enddefs 

loader 1422 1432 1453 
endioerrs 

globals 196 
endisrhook 

globals 253 
endline 

convert 47 59 62 76 77 

endmod 

loader 1073 1360 1361 1374 1406 

ldr 963 1006 

endofproc 

librarian 295 1291 1312 
endp 

loader 1568 1570 1571 
end re f 5 

librarian 2806 2842 2844 
endsysvars 

globals 294 
end text 

librarian 2264 2675 2782 
end_error_link 

kernel 867 894 
end_mode 

srm_drv 1348 

kernel 468 

dc drv 380 408 443 

iolib 1290 1413 

dischpib 501 
end_o £_c y 1 inde r 

amigo 75 808 

end_of_f lie 

tapebkup 42 4 

cs80 165 616 

end_of_volume 

tapebkup 419 

cs80 166 503 

end set 

~ iolib 310 385 393 

enter bdx chain 

HiscFSpib 420 471 479 519 
enter data 

3c_drv 130 247 265 394 424 

enter transfer chain 

amigo ~ 544 691 698 960 963 

CS80 921 1242 1250 1311 

entry 

bootdam 585 

librarian 2792 2794 

qminit 497 1016 1032 

entrypoint 

loader 1069 1126 1132 1426 1444 

initload 1714 1716 1767 1786 

ldr 901 906 928 938 1056 

tail 86 

entrysize 

1 if dam 33 485 

librarian 32 3258 3259 
environ 

kbd 77 84 173 329 
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1183 



757 
1147 



704 
1198 



848 
1162 



707 
1198 



884 
1181 



713 
1200 



885 
1200 



889 
1202 



920 
1202 



931 997 1002 
1206 1206 



926 939 



1008 1057 1065 
946 955 961 



1429 1482 1521 1600 



1445 1485 1485 
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kbd 


68 


156 


210 












eoi_line 
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dischpib 


289 


306 
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dischpib 


344 
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355 


375 
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384 






eol 
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507 
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keys 
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357 
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convert 
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1458 


1484 
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convert 
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eor 
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kbd 


50 
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kbd 


51 


187 














err 


















librarian 
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errcode 
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61 
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errlnk_type 


















kernel 
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1792 
















errorbits 
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410 
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201 
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errorbit_type 
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395 
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cs80 
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192 


571 












errorcode 
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208 


363 


371 
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375 


411 






kernel 


268 


867 














errorhandle 


















xminit 


1247 


1463 


1512 


1558 


1592 


1632 






errorline 


















librarian 


95 


266 


2418 


2855 


3155 


3239 
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3516 


errors 


















librarian 
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2417 


2417 


3049 


3077 


3529 






£9885 


48 


61 














errortype 


















xminit 


1235 


1253 


1382 












error_byte 


















qminit 


488 
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table 
















mini 


341 


379 














er rtype 


















xminit 


1162 


1167 


1173 


1178 










ert 


















qminit 


478 


692 


704 


706 


707 


708 


709 
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712 
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qminit 
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715 


725 
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esc 
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escape 
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ext rastates 






































librarian 


582 


589 


895 


915 


1186 




























extsize 






































loader 


955 


1285 


1285 


1286 


1287 


1288 


1291 
























librarian 


367 


367 


368 


393 


394 


554 


644 


1771 


1772 


2066 


2821 
















extsiztype 






































librarian 


545 


554 


































exttable 






































loader 


1172 




































e_rcrd 






































amigo 
globals 


794 


814 


815 


826 


835 


839 


848 


848 


862 


916 


917 


920 














140 




































bootdam 


543 


544 


607 


692 


696 


696 


697 


697 


699 


699 


700 


700 


700 


705 


705 


705 


707 


709 




710 


711 


712 


712 


712 


713 


713 


714 


714 


747 


752 


773 














loader 


1118 


1120 


1120 
































misc 


211 


261 


265 


266 


266 


267 


267 


267 


270 


421 


426 


431 


432 


443 










initunits 


715 


734 


739 


806 


830 




























kbd 


323 


336 


337 
































c table 


243 


422 


422 


422 


428 


434 


440 


440 


447 


447 


453 


453 


462 


471 


471 


483 


483 


496 




496 


505 


505 


528 


550 


563 


563 


580 


580 


597 


600 


605 














lifdam 


28 


189 


216 


216 


217 


217 


297 


378 


469 


574 


574 


574 


576 


587 


587 


588 


617 


617 




627 


627 


896 


897 


898 


898 


899 


899 


900 


900 


901 


901 


903 


903 


903 


904 


912 


916 




917 


918 


935 


939 


940 


941 


942 


950 


950 


951 


954 


956 


961 


976 


982 


985 


986 


987 




1002 


1033 


1036 


1045 


1052 


1057 


1066 


1068 


1072 


1088 


1090 


1090 


1107 


1108 


1110 


1113 


1116 


1121 




1129 


1130 


1132 


1133 


1135 


1139 


1142 


1144 


1145 




















srmdam 


43 


117 


120 


131 


138 


140 


421 


427 


431 


451 


453 


472 


492 


494 


535 


555 


618 


643 




684 


848 


853 


855 


874 


890 


927 


944 


946 


951 


957 


967 


984 


1009 


1047 


1083 


1121 


1126 




1132 


1145 


1147 


1149 


1172 


1184 


1186 


1188 


1207 


1213 


1215 


1225 


1233 


1241 


1265 


1271 


1284 


1297 




1310 


1314 


1315 


1327 


1339 


1349 


1379 


1385 


1393 


1419 


1427 


1430 


1451 


1454 


1458 


1458 


1474 


1494 




1579 


1597 


1644 


1654 


1657 


1660 


1667 


1670 


1679 


1682 


1694 


1697 


1706 


1709 


1716 


1718 


1720 


1722 




1726 


1729 


1735 


1737 


1739 


1741 


1743 


1745 


1747 


1752 


















srmam 


50 


60 


97 


107 


144 


149 


























librarian 


102 
233 


112 
234 


114 
2408 


115 
2410 


117 
2810 


127 
2812 


129 
2812 


129 


133 


135 


135 


217 


220 


227 


228 


229 


231 


232 


hminit 


176 


184 


430 
































miui 


15 


176 


197 


329 


345 


469 


























heapt 


133 
183 


145 
184 


146 
185 


150 


156 


157 


159 


160 


162 


163 


164 


165 


167 


168 


174 


177 


179 


182 


lockmod 


7 


8 


9 


14 


17 


26 


39 


42 


49 


55 


58 


67 














amigo 


112 


662 


886 


899 































ctable 
ctable 
ctable 
ctable 
ctable 
ctable 
ctable 



fO 
fl 
f2 
f3 
f4 
f5 
f6 

£7 

ctable 
f9885dvr 

£9885 
£9885init 

f9885 
f9885io 

£9885 
fakeaddr 

heapt 
fakeone 

heapt 
false 

mini 

bootdam 

loader 

initload 

misc 

initunits 

ldr 

kbd 

keys 

crt 

tail 

ctable 

ascii 

lifdam 

convert 
srm drv 
s rmHam 



srmam 
librarian 



705 



706 767 



76 

466 
637 
925 

1688 
274 
789 

1012 

161 

194 

443 

75 

243 

39 

172 

741 

59 

1204; 

64 

932 

1650 
162 
168 
827 

1722 

2454 



120 

469 

642 

1012 

1689 

283 

791 

1025 

174 

256 

86 

263 
290 
178 
837 

1344 
215 
991 

1651 

177 

836 

1729 

2483 



139 

500 

664 

1020 

1690 

438 

793 

1029 

175 

284 



678 
1320 
1691 

448 

794 

176 
342 



345 347 



208 
840 

1429 

284 

1029 

1677 

180 

954 

1772 

2490 



233 
849 

1439 

426 

1274 

1691 

211 
1119 
1839 
2569 



712 
1320 
1692 

531 

815 

194 
358 



250 
865 

1449 

447 

1302 

1705 

223 
1255 
1868 

2603 



740 
1334 
1693 

586 
815 

215 

381 



258 
855 



764 
1340 



655 
818 



2B7 
453 



275 
874 



772 
1341 



1433 1436 1448 



277 
979 



277 
1001 



278 278 
1001 1048 



1458 1461 
824 



286 304 
1053 1069 



1462 1607 1623 



399 401 575 
1101 1104 1107 



487 491 554 
1332 1379 1410 



645 680 
1412 1463 



681 
1467 



794 
1492 



817 
1505 



823 843 
1512 1519 



855 
1526 



866 884 
1595 1646 



224 355 355 394 521 521 

1345 1377 1377 .1417 1417 1519 

1893 1919 1962 2005 2009 2009 

2622 2627 2722 2829 2851 2876 



532 536 

1590 1605 

2010 2123 

3021 3035 



608 644 665 667 668 

1627 1638 1652 1681 1689 

2161 2256 2287 2388 2446 

3076 3111 3179 3194 3200 
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3238 3318 3343 3343 3493 3542 3544 3545 3582 3586 3587 3588 3588 

hminit 324 348 

qminit 725 861 866 979 985 995 1001 1007 1014 1015 1025 1037 1043 1056 1062 1068 1074 1095 

xnunit 1275 1420 1492 

miui 228 263 442 485 513 

tapebkup 252 258 306 312 348 353 399 407 478 512 518 558 560 564 566 598 607 670 
680 706 738 825 909 944 

heapt 63 122 187 

lockmod 25 32 

kernel 359 896 966 988 

dma drv 198 

dc 3rv 387 598 

ioTib 714 722 1146 1289 1290 1530 1540 

printer 196 223 232 237 260 262 268 275 276 278 300 302 303 319 

f 9885 75 75 77 77 136 272 

dischpib 89 98 120 132 149 169 456 470 517 

amigo 577 620 664 685 829 887 906 

CS80 578 587 588 625 684 724 803 805 809 811 818 820 824 826 830 832 857 859 
863 865 870 872 952 955 957 961 963 1049 1235 1270 1304 
f anonctr 

globals 104 

srmdam 161 1014 
f anonymous 

globals 81 

lifdam 617 627 916 950 954 1045 1066 

srmdam 142 1045 1238 1259 1319 1409 1693 1699 1715 
fastmove 

loader 1273 1456 1490 1563 1618 

librarian 1727 1867 1986 2157 2307 2344 2367 2398 2652 2910 3164 
fatal ioresult 

miui 23 211 357 376 

tapebkup 787 892 1031 1066 1104 
fatal message 

tapebkup 796 880 978 980 991 1084 
faultlog 

CS80 206 
fbO 

globals 108 
fbl 

globals 108 
fblksize 

globals 21 129 

loader 813 839 1120 

initload 1596 

misc 528 528 540 544 544 548 569 569 572 575 604 605 607 609 614 617 624 627 
534 638 

ascii 10 

librarian 129 129 135 

loader 912 1141 1390 1391 1437 1438 1605 1610 

ldr 952 

librarian 1379 1382 1473 2328 2369 2841 2887 2937 3085 
fbufchanged 

globals 89 

misc 525 531 610 628 649 

ascii 39 48 69 94 117 136 253 290 296 323 

lifdam 286 
fbuffer 

globals 129 

misc 

ascii 
fbuf f ered 

globals 80 

bootdam 713 

loader 1607 

raise 45 2 

lifdam 286 901 

srmdam 919 
fbufvalid 

globals 85 

lifdam 277 
Sbusy 

globals 116 

mini 500 

keys 148 

f9885 272 

amigo 587 

cs80 1087 
fd 

f 9SS5 53 111 115 
fdate 

lifdam" 1 5 64 356 356 529 531 531 532 532 533 533 536 536 537 537 538 538 583 583 
598 632 632 633 633 921 922 922 989 1073 1074 1074 

lrS loader 1053 1144 1145 1146 1152 1161 1163 1318 1621 1622 

librarian 1369 1407 1435 1468 2924 2925 3026 3034 3087 3089 3096 3103 3106 3131 3132 3135 3153 3166 
3324 3325 3426 3445 3467 3476 3488 3504 3589 
fdp 

loader 910 1144 1152 1159 1159 1161 

librarian 2924 2929 2958 3175 3181 3222 
ieft 

globals 7 7 

lifdam 918 940 1090 

srmdam 907 911 1016 1018 1058 1342 1373 1407 
feof 



fbp 



267 529 545 548 578 580 607 609 624 627 646 
37 50 74 74 94 115 116 159 203 223 251 



globals 8 7 

lifdam 278 
f eoln 

globals 86 

misc 506 586 655 656 

keys 194 

ascii 207 208 
feot 

globals 118 

mini 526 

keys 203 

crt 361 416 

f 9S85 298 

dischpib 42 139 

amigo 600 600 

CS80 1214 1231 1231 
i etchbuf fer 
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misc 535 573 622 644 
f extra 

globals 123 
fextra2 

globals 124 
it 

misc 167 

keys 321 
f fpui 

globals 101 

srmdam 126 592 833 1625 1626 1634 1763 
fgetxy 

mminit 107 

miui 243 257 

tapebkup 924 938 

printer 189 
fgotoxy 

librarian 96 1504 1521 1531 1533 2994 3050 3147 3201 3249 3265 3271 3277 3278 3285 3303 3319 3360 
3385 3424 3437 3461 3463 3570 3572 

miui 245 252 258 267 

tapebkup 926 933 939 948 

printer 194 205 212 
fhs_tfr 

kernel 455 
fib 

globals 64 72 140 

bootdam 543 607 

loader 1118 1604 

raise 211 261 421 

initunits 715 734 739 806 830 

ldr 951 

ctable 597 

lifdam 28 189 

srmdam 43 117 131 431 472 535 618 848 874 927 957 984 1132 1172 1207 1225 1265 1284 
1396 1398 1427 1451 1474 1579 

srmam 50 97 144 

librarian 127 133 2810 2900 3143 

miui 370 453 

lockmod 7 8 9 14 39 55 
fibp 

globals 64 58 70 74 

mini 309 384 

bootdam 544 747 

loader 912 

misc 464 496 515 

initunits 713 722 726 730 802 

ldr 870 872 878 880 

keys 55 137 

crt 48 317 

ascii 6 13 

lifdam 239 244 273 303 303 336 337 374 391 509 511 1102 1124 1125 

srmdam 1190 1192 1196 1198 1202 1202 

srmam 39 177 

swvol 22 24 

librarian 2824 

printer 40 49 

f98S5 40 

dischpib 43 

amigo 430 

cs80 899 912 914 998 1004 1017 1121 1221 
f ibptr 

srmdam 1396 1400 1414 1421 

heapt 28 

dischpib 43 139 

amigo 601 

cs80 1214 1232 



fid 



globals 43 128 267 

loader 1093 1583 

ldr 848 855 925 980 

ctable 978 

lifdam 163 

srm_drv 1033 1070 1074 1085 1095 1101 1105 1108 1577 1685 1841 1851 1877 1888 1937 1949 1991 2005 
2018 2030 2041 2050 2077 2091 

srmdam 1135 1589 

miui 125 

tapebkup 847 
fidl 

srm drv 1067 1821 1831 
fid2 

srm_drv 1068 1822 1832 
f idleng 

globals 20 43 

srmdam 1636 
fidptr 

srmdam 1135 1155 1156 1157 
f ieldwidth 

miui 225 258 

tapebkup 906 939 
f ileblock 

loader 1029 1343 1539 1544 

librarian 1379 1382 1474 2702 2703 2841 2887 
f iledirectory 

loader 879 1033 
f iledirptr 

loader 879 910 1053 
filefib 

loader 1028 1342 1437 1438 1538 1543 

librarian 1379 1382 1473 2328 2369 2841 2887 
fileid 

globals 107 

mini 514 

bootdam 710 711 

misc 266 437 

lifdam 241 279 392 627 896 

srmdam 307 309 310 312 312 315 317 904 1240 1274 1302 1304 1307 1335 1344 1366 1381 1382 
1384 1404 1417 1432 1438 1463 1465 1631 1760 

srmam 67 75 84 114 122 131 

miui 481 

f 9885 286 

amigo 622 

cs80 nil 
f ileinfopack 

srm drv 1069 1840 
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srmdam 


396 


1070 


1417 


1438 


















filekind 


























globals 


46 


78 


168 


169 


170 
















bootdam 


610 


653 






















loader 


830 
























initload 


1702 
























misc 


183 


666 






















lif dam 


135 


164 


521 


933 


















srmdam 


84 


86 






















miui 


127 
























tapebkup 


849 
























filename 


























ldr 


847 


946 


953 




















xmimt 


1224 


1340 


1341 




















f ileptr 


























loader 


874 


904 






















f ilesize 


























lif dam 


371 


421 


426 


427 


434 


434 


435 












files tart 


























lifdam 


998 


1002 


1018 


1024 


















f iletogo 


























loader 


1093 


1583 


1608 


1615 


1615 


1616 


1617 


1617 


1618 


1619 






ldr 


848 


980 


989 


1008 


1009 


1018 


1019 


1075 










f ile_code 


























packets 


278 


495 


663 




















srm drv 


1757 
























srmdam 


576 


577 


897 


907 


908 
















file header_type 


























packets 


266 


377 


400 


423 


494 


520 


521 


538 


539 


647 


696 




srm drv 


1507 
























file id 


























packets 


456 


572 


630 


659 


678 


712 


734 


753 


769 


802 






srm drv 


1685 


1851 


1888 


1949 


2005 


2030 


2050 


2091 










srm3am 


792 


821 


900 


904 


1069 
















file_id_l 


























packets 


555 
























srm drv 


1831 
























file_id_2" 


























packets 


556 
























srm drv 


1832 
























±ile_id_type 


























packets 


198 


268 


456 


474 


476 


555 


556 


572 


630 


659 


678 


712 734 753 769 


srm_drv 


1008 


1016 


1024 


1033 


1035 


1037 


1044 


1058 


1063 


1067 


1068 


1070 1074 1080 1085 




1105 
1964 


1108 
1991 


1509 
2018 


1546 
2041 


1584 
2077 


1622 


1677 


1698 


1700 


1727 


1779 


1784 1821 1822 1841 


srmdam 


630 


631 


1293 




















file index 


























packets 


374 
























srm_drv 


1561 
























f ile_info 


























packets 


578 
























srmdam 


397 


1071 


1400 


1440 


















f ile_info_type 


























packets 


274 


386 


578 




















i ile_len 


























miui 


406 


440 






















filename 


























packets 
srmdam 


275 


290 






















125 


149 


154 


163 


406 


407 


575 


740 


743 


760 


830 


975 1153 1157 1158 


miui 


403 


437 






















file name_header 


























packets 


377 


400 


423 


494 


647 


696 














srm_drv 


1568 


1606 


1639 


1751 


1917 


1978 














iile name headerl 


























packets 


538 
























file name_header2 


























packets 


539 
























file name_set 


























packets 


289 
























srm types 


926 


927 






















s rmHam 


118 


438 


479 


545 


937 


965 


1140 


1143 


1179 


1182 


1211 


1289 


Iile_passuiord 


























packets 


458 
























srm drv 


1687 
























f ile_type 


























miui 


404 


438 






















fill 


























packets 


250 
























f illl 


























packets 


207 
























f ill2 


























packets 


208 
























f illchar 


























srm_drv 


1415 
























f illcount 


























kbd 


54 


191 






















filler 


























lifdam 


55 


503 






















packets 


292 


317 






















filled 


























packets 


269 


335 


375 


384 


397 


408 


652 


722 










srm drv 


1491 


1517 


1562 


1599 


1927 
















f iller2 


























packets 


378 


401 


648 




















srm drv 


1566 


1604 


1923 




















f iller3 


























packets 


612 


649 


679 


714 


804 
















srm drv 


1924 


1950 


2007 


2008 


2093 


2094 














f iller4 


























packets 


651 
























srm drv 


1926 
























fillers 


























packets 


459 
























srm drv 


1688 
























f iller8 


























packets 


807 
























srm_drv 


2097 
























f ilname 


























loader 


820 


838 






















librarian 


2964 
























f indf ile 


























lifdam 


611 


639 


652 


956 


961 


979 


1048 


1053 


1069 


1090 






f indvolume 


























ldr 


891 

























802 
1092 1095 1101 
1877 1901 1937 
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miui 141 

tapebkup 863 
f indx 

srmdam 1477 1489 1498 1498 1499 1499 1501 1503 1505 1544 1544 
f inishboot 

librarian 3339 3469 
f inishfib 

lifdarn 894 928 936 
finitb 

ldr 952 
f intdata 

miui 329 
first 

librarian 2973 2982 2982 2982 2982 2983 2983 
f irstbytes 

raise 519 575 576 576 577 579 580 581 582 583 616 617 618 620 624 627 638 646 
648 
f irstline 

librarian 420 1323 1329 1344 1345 1346 
f irstoutblock 

librarian 69 
f irstpos 

misc 519 574 575 578 580 614 615 617 624 627 
f irstptr 

librarian 1561 1582 1687 1687 1692 1696 1701 1707 1708 
f irstword 

packets 217 
f irst_extent 

packets 498 

srm_drv 1761 
flsaf lb 

srmdam 1591 1595 1622 1757 
f isnew 

globals 82 

bootdam 712 

misc 448 

lifdam 275 898 900 950 951 956 961 976 1068 1090 1107 1108 

srmdam 139 1234 1238 1244 1255 1259 1306 1408 1677 1690 1715 
f istextvar 

globals 79 

misc 450 453 653 

lifdam 903 

srmdam 892 92 
fixed 

lifdam 659 722 732 817 848 849 866 872 874 879 
fixed_wolume byte 

CS80 714 849 850 
fixed_vol byte 

qminit 845 882 883 

tapebkup 333 369 370 
f ixname 

librarian 2996 3149 3209 3217 
fk 

bootdam 610 653 669 670 670 708 709 709 

initload 1702 1706 1706 

misc 666 674 676 677 678 

lifdam 135 145 147 148 152 164 168 169 176 180 521 523 524 524 524 524 525 525 
933 935 935 

srmdam 86 89 90 91 
fkind 

globals 78 

bootdam 653 668 670 671 673 707 709 714 

loader 1141 

misc 454 

lifdam 903 935 

srmdam 908 920 1406 

miui 127 138 

tapebkup 849 860 
fkindlO 

globals 54 
fkindll 

globals 54 
fkindl2 

globals 54 
fkindl3 

globals 55 
fkindl4 

globals 55 
fkind7 

globals 53 
fkind8 

globals 53 
fkind9 

globals 5 3 
f lastpos 

globals 95 

misc 527 529 540 541 545 569 569 574 603 604 

as'-ii 21 22 37 37 49 50 50 59 70 74 85 94 114 115 116 159 203 223 
251 289 290 320 330 

lifdam 285 

srmdam 1459 
fleof 

globals 92 

bootdam 712 

misc 447 473 482 527 541 568 568 591 600 

ldr 874 882 

ascii 28 77 78 80 82 83 95 132 157 200 221 255 298 308 324 

lifdam 283 393 898 899 941 985 987 1072 

srmdam 906 1302 1367 1443 1463 
f limit 

heapt 133 164 165 170 172 177 
f listptr 

globals 74 
f lockable 

globals 114 

srmdam 909 1300 

srmam 192 199 

lockmod 18 43 59 
flocked 

globals 115 

srmdam 910 1300 1444 1467 

srmam 192 199 

lockmod 21 46 62 



f lpyinit 
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mmmit 112 
f lpymread 

mini 426 
f lpymwr i te 

mini 428 
t lpyread 

mini 440 
f lpyturt 

mini 446 
£ltpt 

loader 857 934 

Un miui 32 34 219 230 231 232 234 244 246 368 506 506 507 507 512 514 520 522 
525 

tapebkup 900 911 912 913 915 925 927 
flush 

globals 65 

mini 502 

raise 486 556 558 

kbd 68 156 210 

keys 147 

crt 329 

ascii 137 323 

lifdam 303 337 453 1125 

srmdam 1458 

srmam 20 9 

miui 488 

printer 313 

£9885 274 

amigo 589 

cs80 1089 
flushbuffer 

misc 522 539 557 636 

ascii 32 48 73 76 136 
ilushdir 

lifdam 301 516 645 926 990 1032 1058 1150 
ilush_buf fer 

packets 808 

srm_drv 2098 
flush tapebuf 

c"s80 1004 1022 1095 1158 1188 
fmaketype 

librarian 3211 3218 
fminit 

miui 12 
in initialize 

miui 345 
fmodif ied 

globals 88 

misc 482 600 

ascii 77 95 

lifdam 278 900 982 1110 

srmdam 1278 1299 1410 1462 
fnt 

ctable 715 767 

amigo 110 
fntt type 

ctable 705 715 
fnante 

bootdam 559 588 648 655 660 660 662 662 

lifdam 60 590 629 916 917 1057 1145 
fnh 

srm_drv 1507 1513 
fnlength 

loader 815 820 

librarian 2965 2965 
fnosrmtemp 

qlobals 109 

Srmdam 139 1059 1067 1081 1118 1238 1244 1316 1345 1412 1678 1691 

fPS srmdam 118 120 438 453 465 479 494 502 545 561 937 946 951 965 972 978 1211 1215 

1219 1289 1315 1322 1347 1352 1359 1374 1375 1379 
insl 

srmdam 1140 1149 1164 1179 1188 1197 
fns2 

srmdam 1143 1151 1165 1182 1192 1198 
foldfileid 

globals 121 

Srmdam 1048 1069 1070 1076 1239 1321 1331 1335 1336 
ioptstring 

Irmdarn 5 169 199 200 201 204 206 209 219 220 237 498 947 1029 1411 
format 

hminit 142 171 309 348 374 

xnunit 1164 1175 1457 1551 1585 1627 
i ormat_cmd 

hminit 189 

amigo 5 7 
format cmd buf 

hminit 173 182 189 
forma t_media 

packets 610 
formfeed 

printer 63 
forwardpatches 

librarian 81 1751 1760 1760 2493 2676 
fosize 

librarian 2900 2901 2901 3143 3144 3144 
found 

lifdam 136 613 618 627 632 633 637 638 639 997 1001 1005 1017 1025 1027 

xminit 1241 1618 1619 
foundlastpptr 

librarian 2433 2529 2538 2551 
foundpatchdelta 

librarian 2437 2528 2537 2559 2561 2577 
foundpatchmodptr 

librarian 2431 2530 2539 2547 
foverwri tten 

globals 112 

srmdam 1317 1332 1341 1692 

£p 

globals 68 70 

mini 309 384 481 500 512 514 526 526 
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loader 8 94 

misc 464 468 479 484 486 496 500 502 515 524 529 537 545 552 558 558 562 586 

597 637 

initunits 713 722 726 730 802 

keys 55 137 148 166 194 203 203 

crt 48 317 327 327 328 328 330 338 343 354 357 358 361 361 416 416 

ascii 6 13 20 28 28 35 37 46 50 57 66 81 91 103 127 137 155 166 

179 216 237 287 308 

srmam 39 177 186 195 202 206 

printer 40 49 290 

£9885 40 254 272 284 286 298 298 

amigo 430 563 587 600 601 608 622 

CS80 899 912 914 998 1000 1004 1008 1011 1017 1022 1025 1034 1070 1087 1095 1108 1111 1111 
1121 1134 1149 1158 1159 1165 1177 1188 1189 1197 1221 1231 1232 
fpeof 

globals 93 

mini 512 

bootdam 705 712 757 

misc 265 267 270 439 440 442 447 477 480 595 598 

ascii 21 21 78 82 132 

lifdam 241 282 283 393 393 574 574 576 587 587 588 897 899 1033 1036 

srmdam 456 500 510 530 559 571 613 905 1277 1442 

miui 482 

£9885 284 

amigo 608 

C580 1108 
£phydata 

miui 469 

fp05 

globals 91 

misc 472 473 477 480 482 567 572 574 582 582 590 591 595 598 600 617 

ascii 28 60 77 80 83 93 94 95 95 95 107 112 120 131 157 158 158 159 
160 160 168 200 201 202 203 204 204 208 208 221 221 222 223 224 224 228 
228 241 247 248 251 252 252 255 291 298 299 324 

lifdam 284 574 912 1002 

srmdam 499 558 1025 1026 1273 1368 1369 1370 1405 
fpurgeoldlink 

globals 111 

srmdam 1199 
f readable 

globals 83 

ldr 870 878 

lifdam 276 
£ readmode 

globals 85 

lifdam 277 
f recsize 

globals 75 
f reearray 

heapt 73 77 121 
f reelist 

heapt 77 121 143 145 146 183 184 203 204 221 224 231 234 239 250 
f ree_b lock s 

packets 345 
£ rench 

keys 39 
f reptcnt 

globals 96 

ascii 105 112 115 116 120 129 168 169 170 171 171 184 185 187 187 192 196 202 
204 204 207 218 222 224 224 226 239 248 252 252 320 330 

lifdam 285 
frequency 

kbd 127 282 284 
f rompos 

lifdam 370 418 419 428 429 429 
£ rom_memo ry 

srm_dru 1308 1377 

kernel 457 

dc drv 356 370 460 

iolib 1363 1403 1437 

dischpib 442 
fs 

initunits 709 

ldr 844 

init 1088 

ctable 952 

lifdam 26 

librarian 27 

mminit 61 

miui 11 

tapebkup 761 

printer 37 
fsavepathid 

globals 113 

srmdam 841 843 1167 1201 1202 1260 1337 1383 1388 1632 1650 1662 1572 1684 1700 1710 1730 1761 
fsegs 

miui 126 138 154 

tapebkup 848 860 
fsidc 

globals 12 
fsidctype 

globals 10 12 
fsize 

bootdam 562 674 

lifdam 63 409 421 437 592 841 897 920 988 988 1003 1030 1031 1031 1033 1036 

librarian 640 642 644 647 652 653 671 2901 2910 2911 2912 3144 3162 3163 3154 

heapt 134 163 164 164 177 178 179 180 181 
fsp 

misc 171 

keys 268 298 361 
fstart 

bootdam 561 711 

lifdam 62 409 418 422 595 627 836 841 896 919 1002 1018 
fstartaddress 

globals 99 

bootdam 705 

lifdam 939 942 986 

srmdam 915 918 1020 1056 1089 1100 1112 1377 

librarian 2826 2830 
ftcb 

hminit 150 155 175 189 

amigo 383 388 396 401 
f tcb_type 

hminit 150 160 175 
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amigo 61 144 240 298 306 330 383 396 407 713 
ftid 

globals 102 

bootdam 697 699 700 700 

loader 1437 

lifdara 217 617 917 1052 1057 1145 

srmdam 121 125 142 688 830 831 1234 1413 1562 1563 1623 1624 1633 1762 

librarian 3085 
ftitle 

globals 128 

bootdam 696 696 697 699 700 705 

loader 1608 

lifdara 216 216 217 378 469 1142 1144 

srrndara 647 647 651 662 662 671 687 695 708 722 725 736 747 754 767 831 858 1496 
1499 1501 1503 1506 1564 1555 1636 1639 1766 

miui 125 138 139 524 

tapebkup 847 860 861 
ftype 

bootdam 560 589 509 649 655 668 668 670 704 705 709 

lifdara 61 352 354 358 403 405 412 449 515 579 582 591 593 623 625 630 645 677 
693 788 801 918 935 940 941 985 1013 1015 

srn drv 1048 1731 1757 

srmdam 84 90 
f typecode 

lifdara 611 630 630 
fubuf fer 

mini 412 440 441 445 446 
fudged d 

raiui 314 317 318 346 
.funit 

globals 117 

mini 481 

loader 1390 1391 1438 1609 

misc 266 468 479 500 529 545 558 597 597 637 

ctable 604 

ascil 35 46 81 81 137 

lifdam 391 391 424 453 1102 

srmdam 161 1274 1302 1402 

srmam 67 75 78 84 85 89 92 114 122 125 131 132 136 139 149 154 155 157 
171 187 

Swvol 22 

miui 480 520 

lockmod 26 26 49 49 67 67 

printer 290 

£9885 254 



fvb 



amigo 563 

cs80 1070 

qminit 882 

tapebkup 36 9 



cs80 106 849 
fvid 

globals 100 

lifdam 297 1088 

srmdam 464 497 557 691 701 950 977 1011 1163 1195 1196 1218 1254 1313 1627 1628 1635 1764 

miui 124 138 141 206 207 222 246 247 248 522 

tapebkup 846 860 863 887 888 903 927 928 929 
fwaitonlock 

globals 110 

srmdam 1432 

lockmod 2 5 66 
iuindouj 

globals 73 

lifdam 1113 1132 1133 1135 

srmdam 457 512 573 967 1155 1156 1157 1190 1192 1196 1198 1202 1202 1646 

miui 521 
fwriteable 

globals 83 

ldr 874 875 882 883 

lifdam 276 
Ixpos 

globals 119 

crt 327 328 
f ypos 

globals 120 

crt 327 328 
f_pwr_on 

mini 398 459 

mm in it 121 

9 librarian 149 161 162 163 163 166 166 168 168 171 172 172 181 195 195 200 

heapt 133 167 168 169 170 182 185 
gai 

ctable 830 887 
gangcleanpack 

srm_drv 1071 1859 

srmam 171 
gang 16bit filler 

"packets 203 207 250 269 652 679 
gang 32bit filler 

packets 202 292 317 336 375 378 384 397 401 408 512 714 722 804 
gang boolean_f iller 

packets 201 208 
gang file codes 

"packets 212 278 495 663 

srm drv 1048 1731 

srm3am 84 962 987 1002 1294 
gang_open_type 

packets 224 653 

srm drv 1083 1S04 

srmHam 620 
gbase 

crt 138 142 143 144 144 
gbuf f er 

crt 
gbuf f ersize 

crt 151 161 



161 165 166 167 168 171 172 177 178 185 186 187 



ah v tes 

librarian 121 393 1378 1381 1464 1596 1675 1682 1771 1819 1829 1832 1866 1977 1979 1985 2003 2005 
2012 2028 2104 2114 2156 2452 2455 2480 2549 2592 2594 2651 2840 2870 2883 2886 2920 3221 



gdotrouj 

crt 
general 



3290 3309 
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loader 


858 










librarian 


178 


1650 


1915 


2450 


2459 2861 


generalvalue 












loader 


871 


920 


1458 






librarian 


166 


168 


1255 


1626 


1627 1675 1681 1681 




2848 


2851 


2876 






general_0 












kernel 


635 


1244 








h^drv 


173 










didrv 


174 










dma drv 


135 










g_drv 


176 










dc_drv 


190 


526 








rs drv 


174 










ioTib 


149 


317 


1913 


2086 


2384 


general 1 












ioTib 


117 


695 


1914 






general 2 












ioTib 


650 










general 3 












ioTib 


959 










general 4 












iolib 


1048 










ge rman 












keys 


39 


351 


371 






getbounds 












librarian 


1501 


1545 


1546 






getbytes 












loade r 


1084 


illi 


1235 


1259 


1262 1286 1320 1322 


Idr 


949 


951 








getcodeblocks 












librarian 


1352 


1496 








getcommand 












librarian 


3455 


3592 








getcursor 












globals 


67 










crt 


328 










getdef table 












loader 


1246 


1333 








getexttable 












loader 


1281 


1345 








getinstrbytes 












librarian 


474 


488 


525 


814 


988 


getinstruction 












librarian 


485 


1272 


1288 


1313 




getioerrmsg 












misc 


207 


298 


387 






ldr 


988 










librarian 


3517 










miui 


26 


143 








tapebkup 


579 


790 


865 






getpaoc 












srmdam 


637 


700 


743 


751 


760 


getrecsize 












ascii 


164 


195 


310 






getsdate 












lifdam 


308 


1129 








getsize 












heapt 


97 


104 


163 


169 


242 


getspace 












lifdam 


657 


912 








getuntildelim 












srmdam 


192 


225 


240 


250 




getvolumedate 












globals 


133 










lifdam 


1129 










srmdam 


1747 










getvolumename 












globals 


133 










bootdam 


692 










misc 


431 










lifdam 


1114 










srmdam 


1745 










miui 


246 


522 








tapebkup 


927 










getxy 












crt 


223 


328 








get amigo letter 


proc 










ctable 


843 


892 


927 






get_bootdevice pa 


rms 










ctable 


696 


746 


1135 






get cs80 letter p 


roc 










ctaBle 


844 


891 


928 






get cs80 parms 












ctaBle 


813 


904 


1215 


1289 




get_letter 












amigo 


428 


439 








cs80 


895 


938 








get letter proc 












ctable 


866 


870 


872 






get letter type 












ctable 


823 


831 








get map 












hminit 


238 


435 








amigo 


140 


189 


223 


344 


368 


get_message 












kernel 


202 










iolib 


1850 










gf iles 












globals 


257 










ldr 


864 


865 


878 


879 


880 882 883 


init 


1097 


1098 


1099 


1100 


1118 


crt 


129 


187 


190 






SUIVOl 


22 


24 








gheight 












crt 


149 


156 


179 






gheightb 












crt 


149 


157 


173 






gi 












ctable 


831 


872 








global 












loader 


858 










librarian 


177 


1649 


1700 






globalbase 













1721 1722 2005 2256 2388 2626 2627 2717 2722 2829 



1328 1433 1456 1458 1464 1515 1542 1602 1604 



1-43 



Pascal Cross-reference RELEASE2. . T EXT 13-Jan-83 Page 42 

loader 953 1412 

librarian 365 1768 2054 
globaldelta 

loader 1027 1412 

librarian 1578 1579 1768 
globalsize 

loader 952 1379 1379 1413 1413 

librarian 366 1769 1769 2053 2687 
globase 

loader 1025 1412 

librarian 1758 2687 
gmem 

crt 158 186 

graernb 

crt 159 185 

gmembtype 

crt 157 159 

gmemtype 

crt 156 158 

go 

initload 1710 1791 

ldr 854 895 

tail 75 88 

go£f 

crt 137 143 

gon 

crt 136 142 

goodio 

lifdam 82 289 429 432 1091 

gotoxy 

crt 238 327 365 445 

9P 

£9885 37 

gpio 

f 3885 107 

gpioclear 

£9885 90 97 

gpiodmain 

£9885 170 

gpiodmaout 

£9885 175 

gpiodma proc 

£9?85 107 170 175 178 

gpiotype 

£9885 80 107 

gpiowordin 

£9886 129 196 

gpiowordout 

£9885 124 127 128 146 151 163 

gpio card 

kernel 224 1014 

gpio drivers 

"g_drv/ 16 5 191 192 216 

gpio enable 

£9885 72 178 

gpio enable type 

"£9885 ~ 66 73 

gpio_initialize 

g drv 101 

gpio r5 type 

~£9B"85 66 74 76 108 

gptr 

librarian 1563 1675 1676 1677 1690 1711 

£9885 80 87 90 97 121 122 124 127 128 129 146 151 163 178 183 191 196 263 

graphicsbase 

crt 160 185 186 

graphicstate 

kbd 114 

keys 219 225 

crt 141 141 142 

graphics card 

kernel 226 1040 
gread 

bootdam 581 632 655 686 710 740 741 743 750 799 
gringo 

keys 39 287 462 469 

growbyte 

crt 153 186 

gsize 

heapt 134 159 170 170 

gtl_message 

kernel 199 

iolib 1734 
gvalue 

loader 1104 
gvaluestring 

librarian 41 154 155 155 159 177 187 191 192 205 209 212 212 356 537 1120 1389 1418 
2291 2570 2571 2634 2635 2645 2646 

gvp 

loader 898 1459 1526 

ctable 277 

librarian 139 162 200 355 360 403 404 406 521 532 1363 1376 1377 1417 1624 1676 1676 1677 
1690 1719 1894 1895 2006 2024 2171 2252 2254 2287 2383 2444 2510 2521 2545 2556 2558 2568 
2601 2615 2621 2691 2713 2727 2785 2824 2844 2872 
gv/ptr 

loader 1104 

librarian 1716 1719 1721 1722 
gvrbase 

librarian 1242 1251 1252 1255 
gvrequal 

librarian 1888 1893 1924 1925 1960 2504 

librarian 2200 2568 2569 2621 2622 
gurpt r 

loader 871 898 1272 

librarian 87 139 149 166 168 172 195 300 1252 1891 2134 2200 
gvrstring 

librarian 139 355 521 532 536 1119 1377 1417 2287 2569 2622 
guidth 

crt 150 155 180 186 

gwidthb 

crt 150 151 157 174 185 

gword 

crt 152 155 
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h 

miui 15 175 328 344 468 

haddress 

packets 261 

srrn_drv 1498 

halfword 

srrr_types 38 

hallocate 

heapt 208 296 

halt 

ctable 252 321 523 526 545 548 599 615 

handle bad status 

qniinit 863 868 981 987 997 1003 1009 1017 1027 1039 1047 1058 1064 1070 1078 1097 

tapebkup 254 260 308 314 350 355 514 560 566 740 

cs80 557 565 805 811 820 826 832 859 865 872 957 963 1306 

hand le_copyda ta_s ta tus 

tapebkup 585 708 
handle_uee pending 

tapebEup 541 6 72 
handle_verif y_status 

tapebkup 390 520 
harddisc dav 

ctaBle 965 991 992 1025 1041 1046 1109 1147 1215 1230 
harddisc default_dav 

ctaBle 103 1109 
harddisc default letter 

ctaBle ~ 101 1110 
harddisc letter 

ctaBle 966 990 1024 1045 1110 1146 1205 1232 1242 1252 1254 1262 1513 
harduarestatus 

globals 249 
hasclock 

kbd 43 179 

hascolor 

crt 97 397 442 443 

haslccrt 

kbd 43 178 

printer 158 172 
hasxycrt 

kbd 42 17 7 

head 

qminit 473 513 514 642 661 667 667 732 753 753 960 1021 1026 

xminit 1234 1385 1391 1415 1457 1528 1551 1562 1586 1611 1627 

amigo 91 351 356 372 373 

headnum 

xminit 1160 1164 1171 1175 
head sector_compare error 
"hminit ~ 270 

amigo 73 806 

heapbase 

globals 245 

heapt 31 39 126 127 136 194 217 263 280 287 292 305 

heapmark 

lifdam 372 381 454 457 
heapmax 

globals 244 

heapt 30 38 138 174 274 279 

height 

kbd 61 142 196 

crt 119 428 430 431 

lifdam 73 667 670 670 672 687 694 703 704 705 709 711 712 750 756 772 778 812 
812 814 814 825 825 827 827 854 854 913 
hestablish 

heapt 43 117 
hex 

globals 289 

bootdam 779 780 780 

crt 100 

srmdam 54 55 56 57 58 69 60 61 

librarian 293 419 

kernel 381 883 884 385 886 887 888 982 992 

dc drv 220 225 227 613 619 621 
hexout 

librarian 419 470 478 
highbyte 

heapt 6 3 87 
highheap 

loader 1050 1115 1142 1142 1143 1144 1148 1148 1151 1152 1153 1158 1158 1158 1159 1161 1698 1625 
1631 1632 1634 1635 

ldr 1004 1014 1034 1042 1043 1045 1046 

librarian 124 2583 2908 2910 2911 2911 2913 2919 3028 3034 3162 3162 3164 3165 3576 3577 3577 
highheapO 

librarian 81 3034 3577 
highlight 

crt 96 331 398 399 400 401 402 405 441 
highlightbyte 

kbd 93 
highlightsxorbiggraphics 

globals 285 

kernel 929 
highmark 

heapt 133 138 162 172 
highrange 

librarian 303 1277 1278 1325 1326 1509 1510 1514 
hintdata 

hminit 201 209 216 

raiui 328 
hminit 

hminit 195 

miui 12 
reinitialize 

hminit 204 249 

miui 344 
holdpathid 

srmdam 1583 1705 1712 1725 1732 
hole 

lifdam 74 667 571 671 672 674 676 679 687 689 690 691 691 705 713 729 750 757 
772 779 794 795 796 797 810 810 812 815 823 823 825 828 853 853 
home 

kbd 51 188 
homechar 

misc 160 



crt 380 
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tapebkup 


1122 












Jiour 














globals 


224 












clock 


124 


125 


167 








llfdam 


123 


123 


536 


569 






srmdam 


348 


349 


363 








librarian 


231 












miui 


78 


80 










hp7905 














ctable 


160 


518 


753 


'83 


1022 


1210 


ami go 


44 


168 


179 


185 


604 


957 


hp7905 mp 














ctable 


189 


519 


1210 


1409 






hp7906 














ctable 


161 


522 


753 


783 


1022 


1211 


amigo 


44 


169 


179 


185 


504 




hp7906 mp 














ctable 


190 


522 


1211 


1428 






t-ip7920 














ctable 


162 


543 


753 


1022 


1212 


1238 


amigo 


44 


170 


179 


504 






hp7920 mp 














ctable 


191 


543 


1212 


1445 






Hp7925 














ctable 


163 


544 


753 


1022 


1213 


1238 


amigo 


44 


171 


179 


191 


504 


957 


hp7925 mp 














ctable 


192 


544 


1213 


1467 






hp8290x 














ctable 


156 


505 


752 


1004 


1010 


1165 


hminit 


440 












amigo 


44 


164 


191 


320 


520 


683 


hp8290x dav 














ctable 


960 


1011 


1107 


1171 


1308 




4-p8290x default dav 














ctable 


95 


1107 










hp913x a 














ctable 


157 


540 


752 


1022 


1207 


1238 


hminit 


441 












amigo 


44 


165 


687 


957 






,bp913x_a mp 














ctaBle 


186 


540 


1207 


1373 






hp913x_b 














ctable 


158 


541 


753 


1022 


1208 


1238 


amigo 


44 


166 










hp913x_b mp 














ctaEle 


187 


541 


1208 


1385 






tip913x_c 














ctable 


159 


542 


753 


1022 


1209 


1238 


hminit 


441 












amigo 


44 


167 


492 


687 


957 




f¥>913x_c mp 














ctaBle 


188 


542 


1209 


1397 






hp98620 














kernel 


239 












dma drv 


193 












hp98622 














kernel 


248 


1015 










g drv 


213 


249 










f9"8 85 


262 












hp98623 














kernel 


249 












hp98624 














kernel 


246 


1001 










h drv 


213 


259 










hp98625' 














kernel 


250 


1021 










di drv 


214 


253 










dischpib 


229 


467 


494 








hp98626 














kernel 


247 


1007 










rs drv 


207 


238 










ioTib 


2119 


2182 


2276 


2430 


2494 


2569 


fip98627 














kernel 


252 


1039 










hp986 28_async 














kernel 


251 












dc drv 


206 


321 


561 


609 






ioTib 


2099 


2162 


2228 


2419 


2465 


2561 


hp98628_dsndl 














kernel 


236 












dc drv 


207 


562 


610 








hp98629 














srmam 


150 












kernel 


237 












dc drv 


223 


563 


616 








hp9885 














ctable 


154 


483 


752 


781 


1004 


1013 


hp9885 dav 














ctable 


962 


1014 


1104 


1194 


1344 




hp9885_default_dav 














ctable 


99 


1104 










hp9885 mp 














ctable 


184 


482 


483 








hp9895 














ctable 


155 


496 


752 


390 


1004 


1028 


hminit 


440 












amigo 


44 


163 


208 


316 


492 


657 


hp9895_dav 














ctable 


961 


991 


992 


1039 


1048 


1108 


hp9 8 9 5_de f a^; 1 t_dav 














ctable 


97 


1108 










hp9895 mp 














ctable 


185 


495 


496 


1206 






hphydata 














hminit 


203 


233 


245 








miui 


468 












hpibaddr 














xminit 


1194 


1414 


1457 


1551 


1562 


1586 


hpibamigo clear 














discHpib 


196 


297 










amigo 


474 


524 










hpibamigo_identlf y 














qmmit 
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CS80 45 49 1327 
init_with d_bits 

hminlt 141 158 343 397 
inoaccess 

globals 194 

misc 347 

srm_drv 1161 
inodirectory 

globals 192 

misc 337 

lifdam 2B1 475 

srmdam 808 

miui 120 

tapebkup 843 
inoerror 

globals 184 

mini 377 400 455 521 

bootdam 690 754 

loader 1121 

misc 302 503 530 546 554 639 

kbd 337 338 

keys 144 

crt 130 188 323 

ctable 984 

lifdam 83 246 261 474 476 1103 

convert 51 53 

srm drv 1132 1146 1535 1537 

srm3am 79 220 258 454 495 500 504 563 706 729 732 745 763 771 776 782 786 801 

814 827 856 896 948 1013 1052 1057 1067 1081 1084 1092 1095 1105 1108 1117 1148 1150 

1161 1187 1189 1191 1193 1216 1275 1309 1316 1325 1326 1341 1345 1348 1378 1380 1415 1418 

1433 1439 1456 1460 1464 1466 1501 1503 1552 1593 1545 1658 1661 1668 1671 1680 1683 1695 

1698 1707 1727 1757 

srmam 73 82 88 91 120 129 135 138 156 158 183 

librarian 130 136 286 288 

mminit 118 

hminit 260 451 

qminit 677 724 878 1106 

miui 119 375 

tapebkup 268 289 322 362 365 400 406 470 493 498 529 571 581 599 606 664 686 691 
717 749 842 

lockmod 16 28 41 50 57 69 

f9885 180 186 187 293 

dischpib 118 

amigo 571 579 595 632 646 775 

CS80 579 586 678 693 698 1055 1069 1082 1092 1098 1104 1105 1216 1246 1292 
inof ile 
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bootdam 716 

misc 312 

lifdam 653 966 1048 

srm drv 1179 

srr»3am 1050 1090 1324 
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globals 185 

misc 310 

lifdam 489 490 877 

srm_drv 1173 
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globals 186 
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srm_drv 1171 
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globals 189 

misc 328 
inotlockable 

globals 193 

misc 342 

srmdam 893 

lockmod 19 44 60 
inotondir 

globals 195 
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srmHam 899 
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srm_drv 1153 
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misc 325 

srm_drv 1137 
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globals 189 
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sujvol 3 

librarian 24 

miui 8 

tapebkup 8 
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h drv 100 

dl_drv 100 

dma_drv 99 

g_drv 101 

dc_drv 102 

rs drv 103 
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dischpib 


220 


238 


251 


264 


265 


266 


266 


267 


268 


270 


285 


289 


290 


291 


306 


307 


308 


309 




322 


323 


324 


324 


325 


326 


328 


336 


353 


354 


359 


360 


382 


383 


385 


386 


386 


412 




450 


502 


515 


525 






























io word 






































kernel 


264 


273 


274 


316 


318 


320 


321 


323 


324 


394 


408 


422 


657 


658 


660 


661 


663 


666 




669 


670 


672 


673 


733 


738 


743 


743 


762 


763 


764 


781 


782 


783 


800 


819 


839 


840 




841 


854 


855 


856 






























h_drv 


130 


131 


132 


133 


134 


135 


























di_drv 


131 


132 


133 


134 


135 


136 


























dma drv 


140 


157 


































g_drv 


133 


134 


135 


136 


137 


138 


























dc_drv 


135 
286 


136 
287 


137 
288 


138 

533 


139 


140 


168 


178 


179 


180 


181 


182 


183 


194 


260 


270 


278 


279 


rs drv 


134 


135 


136 


137 


138 


139 


180 
























ioTib 


203 


216 


































io work char 
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kernel 497 

iolib 750 837 885 919 928 929 941 949 1956 1950 1953 
io_wo rk s t r 

iolib 701 729 734 735 736 737 742 743 744 745 749 750 754 785 792 794 
io_jjiork_word 

dma_drv 140 145 157 162 
ip 

srm_drv 1357 1367 1358 1375 1376 
ipart 

clock 51 73 78 79 82 139 140 193 197 199 203 
ipo inter 

globals 31 
iptr 

librarian 1570 1581 1582 1684 1584 1585 1589 1589 1598 1604 1611 1612 1614 1615 1616 1616 
i rami go 

hmimt 134 198 
ires 

librarian 58 96 99 3517 3523 3533 
isc 

iolib 1116 1534 1537 
isc busy 

iolib 1116 1534 1539 1540 
isc_table 

srm_drv 1229 1255 1303 

srmam 149 

miui 345 

kernel 508 766 785 805 824 843 859 946 1123 1125 1126 1127 1160 1161 1180 1200 1217 1222 

h dry 211 258 

dl drv 212 252 

dma drv 149 166 193 221 

g dry 211 248 

dc_drv 204 223 320 559 600 

rs drv 205 237 

iolib 173 182 193 205 219 241 324 335 337 359 374 389 409 438 486 515 575 625 

724 725 789 790 810 811 841 842 866 867 924 925 945 946 1203 1230 1258 1269 

1272 1283 1286 1316 1318 1341 1343 1387 1389 1415 1417 1537 1592 1603 1616 1943 1979 2095 

2099 2158 2162 2224 2228 2415 2419 2430 2461 2465 2494 2545 2561 2569 2598 2602 2622 2662 

2666 2697 2701 

printer 293 

£9885 260 

dischpib 219 228 235 249 279 302 335 347 378 410 430 492 510 
isc_ tab le_ type 

kernel 430 509 

printer 69 

dischpib 258 276 299 316 343 369 426 
isc te 

dischpib 258 262 316 320 
isc te ptr 

~ dischpib 276 279 280 281 299 302 303 304 343 347 348 349 369 378 379 380 426 430 



436 441 448 
isr 

isr 32 

kbd 3 4 

xminit 1189 

h drv 172 

dT_drv 17 3 

dma drv 134 

g drv 175 

dc drv 189 525 

rs~drv 17 3 
isrchange 

isr 55 136 
isrib 

globals 201 203 

kbd 138 

xminit 1204 

kernel 385 399 413 491 492 
isribp 

isr 43 50 53 56 65 67 75 83 98 107 108 112 121 137 144 
isribptr 

globals 202 

initunits 716 741 

kbd 28 7 
isr link 

isr 38 60 

xminit 1349 
isrmcatchall 

globals 19 5 

misc 352 

srm drv 1185 1383 1466 

srrnd"am 1772 

srmam 216 
isrproctype 

globals 202 209 

isr 38 45 55 60 78 136 

kernel 337 1101 
isrunlink 

isr 52 111 

xminit 1559 

h drv 234 

dT_drv 228 

dma drv 210 214 

g_drv 22 7 

dc drv 581 

rs~drv 219 
issue cmd 

Hminit 155 165 189 

amigo 144 240 300 310 334 388 401 412 751 
issue command message 

cs80 ~ 922 1255 1260 
issue_transfer_request 

amigo 545 703 708 
istrovf 1 

globals 190 

misc 330 

iolib 761 
itet 

amigo 447 452 457 458 459 460 461 462 463 
itoomanyopen 

globals 194 

misc 346 

srm_drv 1136 
iu 

cs80 92 
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J 

bootdam 


614 


695 


696 


697 


699 
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initload 


1736 


1746 


1750 
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162 


185 
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185 
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186 


186 
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970 


1511 


1512 


1512 


1512 


1512 


1514 
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ascii 


101 


112 


114 


114 


115 


116 










convert 


46 


66 


68 


90 


110 


113 


113 


114 


115 


117 120 


srmdam 


442 


482 


548 
















librarian 


105 


113 


114 


114 


783 


821 


824 


830 


833 


1452 3188 


xminit 


1273 


1276 


1277 


1293 


1309 


1310 


1310 








miui 


371 


512 


















heapt 


215 




















jlang 






















keys 


44 


287 


288 


355 


462 


469 


469 








crt 


313 




















jmpstates 






















librarian 


857 


960 


966 
















jnum 






















keys 


43 


468 


















jptr 






















librarian 


1570 


1596 


1598 


1600 


1601 


1602 










junk in t 






















librarian 

k 

crt 


313 


349 


350 


350 


354 


355 


1353 


1361 


1362 


1362 


423 


444 


444 


444 














clock 


88 


92 


93 
















lifdara 


100 


104 


105 


345 


349 


349 


352 


359 


362 


362 363 


librarian 


467 


469 


470 


783 


823 


824 


832 


833 






xminit 


1282 


1296 


















miui 


15 


182 


190 


201 


330 


347 


470 








kl 






















clock 


88 


93 


94 


95 














k2 






















keys 


105 


106 


110 


113 














clock 


88 


96 


97 


98 














kanaalphabet 






















keys 


109 


368 


















kanaalphabet type 






















keys 


106 


109 


















kanaf lag 






















keys 


53 


287 


358 


359 


360 


454 










kana toe rt lookup 






















crt 


72 


308 


















kanatocrt lookup type 






















crt 


61 


72 


















katakana 






















keys 


39 


287 


355 


367 


413 


469 










crt 


313 




















kbd 






















kbd 


32 


360 


















keys 


33 




















crt 


33 




















bat 


33 




















clock 


33 




















tail 


32 




















mminit 


61 




















tapebkup 


761 




















printer 


37 




















kbd8041cmdreg 






















kbd 


166 


270 


278 
















kbd8041datareg 






















kbd 


110 


263 


295 
















keys 


467 


473 


















kbd8041statusreg 






















kbd 


111 


255 


294 
















keys 


430 




















kbdeommand 






















kbd 


132 


259 


284 


353 














keys 


456 


457 


458 


465 


471 












clock 


74 


75 


76 


77 


80 


81 


141 


142 






tail 


87 


92 


















mminit 


104 


113 


117 
















kbddata 






















kbd 


289 


295 


300 


308 


313 












keys 


209 


266 


268 


290 
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318 


334 


339 


348 


351 352 




362 


366 


368 


370 


380 


387 


444 


467 


468 


473 474 


kbdhook 






















kbd 


116 


313 


349 
















keys 


257 


313 


314 


452 














kbdhooktype 






















kbd 


96 


116 


















keys 


66 




















kbdinit 






















kbd 


129 


344 


363 
















kbdio 






















initunits 


725 


820 


















keys 


55 


137 


















crt 


330 


338 


354 
















kbdisr 






















kbd 


287 


351 


















kbdisrib 






















kbd 


138 


351 


















kbdlangjumper 






















keys 


42 


287 


288 


355 


460 












crt 


313 




















kbdreg 






















kbd 


137 


277 


277 


278 


348 












kbdreleasehook 






















keys 


47 


275 


420 


451 














kbdstatus 






















kbd 


252 


255 


256 


260 


288 


294 


297 


300 


313 




keys 


209 


264 


281 


285 


286 


289 


318 


334 


339 


427 430 


kbdwaithook 






















keys 


46 


184 


450 
















kbd crt drivers 






















kernel 


651 


1152 


1153 


1160 


1161 












kbd rdb 






















kernel 


689 


1154 


















kbeepdur 






















kbd 


124 


221 


347 
















kbeepf req 






















kbd 


123 


221 


346 
















kbl 






















keys 


140 


157 


158 

















352 353 354 358 359 360 360 



431 
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keepworkdirs 

srraam 147 162 164 170 171 

keep_pro tec ted_di rectories 

packets 589 

srm_drv 1869 
kernel initialize 

kernel 674 873 1250 

key 

keys 212 262 266 266 268 268 270 274 293 294 295 297 298 299 301 304 306 307 

321 322 338 341 344 345 354 361 362 363 368 370 372 372 373 373 374 374 
375 375 380 392 392 399 405 414 414 418 
keyboard 

init 30 1090 

librarian 24 37 273 1532 3462 

midecs 47 

tapebkup 8 764 779 1125 

keybuf f er 

keys 49 158 189 197 197 198 247 274 418 448 

keybuff eraddr 

kbd 63 145 199 

keys 448 

keybuf fersize 

kbd 64 147 201 

keys 449 

keybuf fer type 

kbd 85 102 

keys 49 

keybuf length 

keys 51 148 159 184 186 187 196 196 197 198 244 244 245 245 246 272 273 415 

418 419 419 
keybufptrtype 

kbd 85 108 

keybufsize 

keys 50 157 246 320 415 449 

key look up 

keys 81 354 

keys 

keys 32 479 

crt 33 

keyservice 

keys 209 314 452 

keysinit 

keys 30 

kvid 

ctable 981 983 

1 

loader 1224 1230 1232 1240 1240 

lifdarn 90 93 93 93 98 103 105 

label_included_flag 

packets 50 4 

srm_drv 1767 
ladd_cmd buf 

amigo 40 7 412 

lagbase 

printer 59 115 246 
lag base 

dischpib 210 257 324 
lang 

keys 213 287 288 351 352 353 354 367 371 413 

langtype 

keys 39 44 74 213 

last 

loader 866 

srmdam 632 680 721 729 766 778 784 803 

librarian 194 1605 1665 1708 1919 2454 2458 2466 2483 2863 2973 2975 2976 2978 2979 2979 2979 2983 
2983 
lastblock 

raise 518 537 540 540 569 503 604 606 635 635 636 

lastblocks 

librarian 2265 2276 2277 2281 2282 
lastf kind 

globals 55 

bootdam 669 708 

loader 837 

initload 1706 

raise 674 

lifdarn 145 524 

srmdam 8 9 

lastior 

raise 
lastioresult 

ldr 896 914 916 

lastline 

librarian 303 989 990 993 1278 1278 1326 1326 1503 
lastmodule 

loader 1019 1444 1448 

initload 1720 

ldr 908 

lastopening 

lifdarn 660 703 709 711 713 746 748 750 751 757 768 770 772 773 779 793 793 795 

797 806 810 812 815 823 825 828 839 850 863 
lastpatchptr 

librarian 2434 2513 2529 2538 
lastptr 

loader 1358 1360 1362 1363 1365 

librarian 1560 1581 1597 1612 1618 1618 1619 1687 1692 1701 1702 1707 1711 1735 1742 1744 1745 1747 
1761 1762 1950 1958 1960 
lasttextrec 

librarian 1934 1956 1958 1960 1966 1966 1971 1996 
lastused 

lifdarn 660 700 755 777 790 798 836 841 850 868 

lastvol 

bootdam 564 

lifdarn 65 600 923 

la5t_access_date 

packets 283 

srmdam 411 582 

la5t_char 

printer 145 253 
lb 

librarian 438 499 502 E02 502 
lc 

librarian 3348 3388 3392 3396 3432 3447 
lcount 



207 208 298 301 357 363 387 
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srm_drv 1301 1306 1309 1311 1315 1328 1336 1347 
lcursaddr 

crt 201 
ldr 

ldr 842 

init 1088 

tail 32 

ctable 148 952 

librarian 27 
left 

kbd 66 151 205 
leftchar 

misc 163 

crt 381 
leftover 

loader 1209 1320 1322 1328 1330 
len 

loader 1225 1236 1237 1237 1237 1238 1238 1238 1239 1240 1251 1270 1271 1271 1271 1272 1272 1272 
1273 1274 1400 1423 1455 1456 1456 1457 

librarian 1242 1249 1250 1250 1250 1251 1258 1258 1400 1413 1414 1415 1415 1738 1805 1865 1866 1867 
1880 1935 1984 1985 1986 2086 2133 2134 2135 2155 2156 2157 2158 

tapebkup 160 167 

heapt 215 218 219 221 224 228 235 235 235 243 252 253 253 253 

CS80 293 512 543 
length 

mini 310 385 421 433 433 436 441 445 512 512 

bootdam 588 648 655 673 674 

loader 1219 1230 

keys 56 138 166 178 190 190 190 191 

crt 49 318 330 336 339 342 342 352 355 356 356 373 375 375 395 

tapebkup 28 145 167 187 200 

printer 41 50 323 325 327 327 

f9885 41 110 284 284 286 

arnigo 431 608 508 615 624 

cs80 531 543 900 913 915 1108 1108 1111 1122 1134 1141 1141 1153 1153 1156 1159 1160 1163 
1166 1182 1182 1185 1192 1192 1195 1199 1222 1238 
lentitle 

srmdam 624 646 655 687 694 707 719 725 732 746 753 755 764 
len_hibyte 

packets 303 
len_lobyte 

packets 302 
letter 

globals 155 

initload 1687 

raise 280 280 286 

initunits 788 

ctable 344 601 646 646 823 1513 

miui 37 37 169 314 318 346 

tapebkup 811 811 879 

artiigo 162 428 439 450 457 458 459 460 461 462 463 466 469 469 470 472 472 480 
484 

CS80 845 846 852 895 938 970 972 1129 1212 
letter_table 

ctable 750 774 
letter_table_type 

ctable 748 751 
level 

packets 3 04 
leveltype 

globals 200 
If 

misc 165 

keys 266 294 
lfb 

qminit 834 

tapebkup 115 207 212 486 971 986 

CS80 86 540 853 985 
If rag 

heapt 215 228 229 243 
lib found 

loader 1074 1338 

ldr 1025 1033 
lif 

ctable 48 51 372 376 
lifdam 

lif dam 28 189 
lif module 

lifdam 25 1165 
lifname 

bootdam 553 559 585 651 

lifdam 36 60 90 99 131 160 614 
lif nametost r 

lifdam 131 183 590 
liftofkind 

lifdam 521 591 935 
lifvol 

lifdam 237 253 269 310 327 472 1116 1119 
lif dam 

ctable 200 379 1290 
lif_directory 

miui 416 474 
lif_dir_entry 

miui 401 416 436 
lif_vol_label 

miui 415 453 465 
lif_vol_type 

miui 387 415 423 
lim 

librarian 1401 1410 1411 
line 

crt 115 118 125 128 129 

miui 220 240 254 254 255 259 

tapebkup 901 921 935 935 936 940 

kernel 326 328 

h drv 139 140 141 

dl drv 140 141 142 

g_3rv 140 141 142 

lOlib 1577 1579 1581 1590 1595 1601 1606 1612 1619 2075 2077 2079 2091 2101 2121 2141 2154 2164 
2184 2204 2217 2230 2278 2326 
linedel 

kbd 69 158 212 
linefeed 

printer 62 320 
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linenum 

librarian 46 240 241 246 247 251 251 253 253 257 257 3005 3009 3558 3568 
linerange 

librarian 302 1278 1325 1546 
lines tart 

librarian 1453 1457 1458 1459 1475 1484 
line_l_needs_restoring 

printer 150 193 223 232 260 283 
line_l_ptr 

printer 156 160 162 170 174 176 

link 

globals 210 

loader 1003 1182 1189 1202 1313 1339 1362 1362 1381 1415 1450 1469 1487 1488 1557 

initload 1721 

isr 73 94 95 104 123 124 130 132 

ldr 920 941 972 

ctable 279 

librarian 1641 1642 1643 1744 1744 1788 1826 2038 2111 2788 3047 3294 3485 

heapt 69 120 140 146 148 154 156 157 159 165 167 168 168 182 183 203 224 234 

244 250 251 251 
linker 

librarian 24 
linkerdate 

librarian 39 227 2044 3564 
linkerrs 

srm_drv 1394 
linkfiller 

packets 321 329 

srm_drv 1415 
linkf illertype 

packets 295 321 329 
linking 

librarian 47 2907 3021 3041 3076 3193 3194 3383 3390 3405 3472 3474 3478 3486 3490 3496 3498 3506 
3542 3586 
1 inkmodname 

loader 1056 1523 1524 1524 1525 

ldr 1070 

lintlevel 

isr 42 49 52 64 73 75 82 89 90 92 108 111 118 119 129 130 

lintregaddr 

isr 39 46 61 69 79 100 

lintregmask 

isr 40 47 52 70 80 101 

lintregvalue 

isr 41 48 63 71 81 102 

list 

loader 1214 1252 1265 1269 

librarian 244 323 328 343 346 347 348 356 361 363 365 368 370 372 378 1261 1328 1368 
1370 1372 1389 1406 1414 1434 1440 1457 1467 2167 2290 2420 2567 2611 2620 2685 2797 3054 
3055 3066 3067 3085 

heapt 192 200 201 203 204 

listaddr 

loader 1021 1188 1291 1293 1294 1310 1348 

ldr 967 969 

librarian 395 1437 1439 1847 1850 1873 
listdefs 

librarian 1398 1548 
listen 

iollb 1648 1720 

listener 

iolib 1898 1994 1997 

listen_constant 

kernel 215 

iolib 424 501 1723 

listexts 

librarian 1426 1549 
listf ilenarae 

librarian 43 2999 3367 3579 3580 
listing 

init 30 1091 

librarian 44 240 250 257 323 324 325 326 327 327 328 329 330 343 344 344 346 347 

348 356 361 363 365 368 370 374 377 378 468 470 1261 1265 1256 1331 1340 1344 

1346 1347 1368 1370 1372 1389 1406 1414 1418 1434 1440 1459 1459 1467 2167 2290 2421 2422 

2422 2567 2570 2611 2634 2645 2685 2797 2799 2800 3006 3007 3008 3054 3055 3066 3068 3069 

3070 3085 3559 3560 3580 

rniui 8 

list instruct ion 

librarian 409 1391 
listlen 

librarian 1801 1812 1818 1818 1829 1830 1831 1835 1843 1843 1844 1853 1862 1875 2082 2097 2103 2103 
2114 2115 2116 2119 2127 2127 2128 2140 2150 2163 
list length 

loader 1174 1215 1222 1242 
listln 

librarian 256 379 379 1260 1390 1392 1392 1408 1421 1436 1443 1469 1487 3071 3086 3090 
listptr 

loader 1221 1229 1243 
listsize 

loader 1022 1188 1292 1310 1349 

ldr 966 

librarian 395 1437 1841 
listtext 

librarian 1448 1547 
llo_message 

kernel 204 

iolib 1750 
lms_dam_type 

ctable 47 

In 

lifdam 131 139 160 172 178 180 181 183 

lname 

bootdam 585 
load 

ldr 848 980 

tail 68 75 86 

loadaddr 

librarian 2198 2260 2306 2306 2411 2441 2572 2635 2638 2646 2665 2697 
loadaddr 

librarian 2198 2257 2259 2260 2411 2697 
loadbuffer 

ascii 43 59 114 119 158 

loaddelta 

loader 1506 1516 1518 1536 
loader 



1-64 



Pascal Cross-reference 


REL 


EASE2. 


0.TEXT 




loader 


807 










initload 


1664 










ldr 


8*4 










init 


1088 










kbd 


360 










keys 


479 










crt 


455 










bat 


95 










clock 


218 










tail 


32 










ctable 


148 










ascii 


342 










lifdam 


1165 










srm_drv 


31 










librarian 


27 










kernel 


1245 










h_drv 


271 










dl_drv 


265 










dma drv 


243 










g_drv 


261 










dc_drv 


649 










rs drv 


252 










£98"85 


309 










dischpib 


537 










amigo 


979 










cs80 


1324 










loadf ib 












loader 


1054 


1141 


1145 


1154 


1164 




1603 


1604 


1605 


1610 




ldr 


950 


951 


952 


953 


1001 


librarian 


2908 


2913 


2913 


2937 


3028 


loadgvr 












librarian 


87 


161 


1253 


1376 




loadinf o 












loader 


1082 


1206 


1623 






ldr 


1012 


1029 








librarian 


389 


2818 


2915 






loading 












loader 


1587 


1618 








loadq 












loader 


1093 


1583 








initload 


1765 


1771 


1789 






loadrom 












ldr 


855 


925 








tail 


85 










loadtext 












loader 


1088 


1494 


1637 






ldr 


1048 










load tapebuf 












cs80 


1017 


1149 


1165 


1177 


1197 


local 












iolib 


1650 


1728 








local index 












3ischpib 


84 


88 


89 


96 


99 


local^lockout 












To lib 


1651 


1747 








local_printer_dav 












ctable ~~ 


963 


1054 


1106 


1180 




local printer defai. 


ilt dav 










ctable 


105 


1106 








local printer timeout 










ctable 


84 


1181 








locateandverify 












tapebkup 


161 


168 








locate_and verify 












tapebk~up 


28 


145 


171 


519 




location 












librarian 


508 


510 


513 


516 


529 


lock 












lockmod 


7 


14 


29 


32 




lockable 












srmdam 


171 


215 


269 


880 


892 


lockdown 












misc 


214 


224 








clock 


83 










lifdam 


1156 


1158 








srmdam 


1775 


1779 








srman 


219 


223 








miui 


353 










tapebkup 


1027 


1062 


1100 






f 9885 


296 










dischpib 


134 










lockedaction 












kbd 


130 


224 








keys 


232 


238 


330 


335 


336 


locked out 












iolib 


1904 


2022 


2026 






lockfile 












globals 


138 










srmdam 


1616 


1735 








lockmod 


26 


67 








lockf iles 












ldr 


851 


860 








ctable 


616 










locklevel 












globals 


250 










misc 


221 


221 


228 


228 


229 


init 


1115 










kbd 


228 










keys 


334 










lock module 












lockmod 


2 










lockpack 












srm drv 


1073 


1876 








srm3am 


1432 










lockup 












misc 


213 


219 








clock 


72 










lifdam 


1097 










srmdam 


1594 










srmam 


134 










miui 


337 










tapebkup 


995 


1053 


1090 






£9885 


258 











13-Jan-83 Page 63 



1263 1288 1325 1329 1342 1387 1390 1391 1392 1392 1393 1393 1595 
3030 3031 3031 3032 3032 3085 3165 3165 3590 



909 910 942 947 951 1006 1029 1121 1126 



1-65 



Pascal Cross-rei 


lerence 


dischpib 


109 


logcode 




qminit 


512 


logical^addr 




hmlmt 


323 


ami go 


152 


logical^cyln 




qminit 


485 


logical eof 




packets 


285 


srmdam 


579 


logical^head 




qminit 


485 


logical sect 




qminit 


487 


log bytes 




qminit 


515 


log_en tries 




qminit 


495 


!<>9_en try 




qminit 


517 


log_entry_type 




qminit 


480 


log_index 




qminit 


962 


log_info_type 




qm in i t 


492 


long 




loader 


927 


srmdam 


359 


librarian 


404 


rniui 


449 


longext 




librarian 


445 


long form 




heapt 


62 


longof f set 




loader 


925 


librarian 


165 


longp 




heapt 


209 


longpatch 




librarian 


2438 


longpo inter 




heapt 


84 


longsiz 




librarian 


412 


longstates 




librarian 


587 


longword 




crt 


67 


long_boolean 




packets 


205 




752 


loops 




qminit 


509 


lower 3 




heapt 


64 


Xouier_bound 




ctable 


249 


lower byte 




ctable 


852 


lower char 




d*ischpib 


373 


louiheap 




loader 


1049 




1546 


ldr 


1004 


librarian 


123 




1728 




2475 




3057 


lowheapO 




librarian 


61 


low range 




librarian 


303 


lr 




ctable 


234 


lrec 




bootdam 


732 


isize 




librarian 


740 


It 




lifdam 


521 


ltime 




clock 


89 


lun 




miui 


18 


tapebkup 


821 




1082 


lunl 




ctable 


214 


tapebkup 


803 


lun 2 




ctable 


214 


tapebkup 


803 


lunit 




ctable 


210 




634 


lv 




tapebkup 


155 


lvheader 




lifdam 


42 


l_flag 




miui 


408 


m 




miui 


15 


mac_ident 




amigo 


501 


maddr 




bootdam 


573 


niadr 




xminit 


1166 



maintenance track overflow 



RELERSE2.0.TEXT 13-Jan-83 Page 64 

615 629 635 635 

396 

405 415 815 916 

1038 1057 1069 

1442 1443 

1038 1057 1069 

1038 1057 

643 671 671 961 1016 1026 1030 1032 
1030 

585 718 718 

497 517 685 963 

1030 1032 

515 643 961 

408 

448 630 2384 2393 2716 2847 

461 

528 1118 1119 

88 94 

1462 

403 1626 1679 1721 1898 1900 2009 2384 2392 2626 2714 2846 

267 268 

2533 2536 2556 

88 174 297 

413 545 571 577 589 652 690 746 949 1054 1142 1143 1173 1184 1208 1212 

731 852 

205 216 436 

276 339 459 460 499 504 522 571 589 610 631 636 677 711 733 735 737 

754 770 789 801 807 808 

516 539 549 555 555 684 697 709 709 
87 94 

251 

385 

1114 1114 1114 1115 1143 1151 1165 1229 1276 1319 1321 1332 1352 1428 1452 1467 1471 

1553 1598 1599 1641 1642 

1005 1052 1053 

123 123 124 388 1393 1423 1445 1489 1498 1697 1619 1680 1680 1687 1702 1726 1726 

1812 1953 1967 1992 2032 2048 2097 2117 2184 2191 2390 2391 2391 2396 2401 2468 2475 

2507 2583 2593 2595 2712 2817 2868 2891 2895 2910 2912 2912 2913 2919 2943 3020 3042 

3075 3163 3163 3164 3165 3180 3193 3198 3546 3575 3575 3576 

3546 3575 

1277 1278 1325 1326 1506 1513 

235 509 517 528 532 539 550 

738 

745 746 747 751 752 757 

524 525 

91 92 112 114 115 148 150 151 158 162 164 165 170 

141 147 150 152 166 205 234 480 607 

823 839 863 869 872 874 876 886 897 912 915 1042 1047 1048 1049 1057 1077 

1085 1086 1095 

215 638 643 656 661 654 669 671 

807 

215 638 642 656 665 669 

808 

213 586 590 591 595 600 601 603 603 604 605 613 617 618 631 633 634 

164 165 166 167 168 169 169 

191 244 336 509 1124 

442 

103 170 196 325 343 467 

515 

1177 



1-66 



Pascal Cross-reference 



RELERSE2.0.TEXT 



13-Jan-83 Page 65 



tapebkup 458 652 

cs80 185 658 

makedir 

librarian 1930 3059 

makedirectory 

globals 136 

lifdam 1135 

srmdam 1511 

miui 526 

make list 

loader 1218 

makenewgvr 

librarian 1556 

makepatch 

librarian 2427 

makepatchspace 

librarian 3282 

make_initial_di rectories 

miui 365 

make_initial_li£_di rectory 



miui 380 

map 

hminit 235 

amigo 140 

mapfkind 

srmdam 84 

mapkanatocrt 

crt 296 

mapromextocrt 

crt 283 

maptocrt 

crt 279 

maptoioresult 

srm_drv 1130 

map_type 

hminit 235 

amigo 12 7 

marginal_data 

tapebkup 455 

cs80 182 

mark 

loader 1126 

initload 1704 

ldr 905 

lifdam 381 

librarian 3575 

heapt 46 

markuser 

loader 1079 

init 1149 

kbd 364 

keys 483 

crt 459 

bat 99 

clock 222 

tail 40 

ascii 347 

lifdam 1168 

srm drv 1217 

kernel 1251 

h drv 276 

dT_drv 270 

dma drv 248 

g_drv 266 

dc_drv 654 

rs drv 257 

£9185 312 

dischpib 541 

amigo 982 

CS80 1328 

marmot 

keys 62 

mask 

librarian 451 

iolib 1657 

amigo 279 

masked 

cs80 723 

matchl 

loader 1178 

match2 

loader 1300 

matchdefext 

loader 1169 

matched 

loader 1170 

matchf ile 

loader 108 6 

ldr 1013 

matchf lag 

loader 1171 

max 

srm_drv 1010 

midecs 22 

mminit 75 

hminit 213 

qminit 821 

miui 292 

maxa 

ctable 650 

maxcadd 

qminit 831 

cs80 109 

maxhadd 

qminit 830 

cs80 110 

maxhead 

xmmit 1232 

max imum_numbe r_vols 

ctable 63 

maximum term count 

dilchpiB 490 

maxint 

globals 6 



1704 

1265 

1992 

2769 

3499 

543 

503 

238 
189 

88 

313 

314 

292 

1456 

253 
140 

649 
655 

1598 

1004 

272 
1124 



824 

1776 

285 

783 

1201 

1335 

1186 

1179 

1195 



1018 

224 
296 
671 

983 

1021 
983 

1357 

1226 

495 



1291 
2032 
2772 



239 
210 



1658 



833 
1787 

287 

784 
1350 



1308 
1186 
1624 



1360 
1226 

496 



2159 2726 



253 
211 



314 
215 



316 
221 



323 
223 



341 
224 



353 
341 



387 
344 



389 
345 



396 
365 



435 
368 



436 
369 



199 



200 201 202 203 



221 



341 365 



323 325 



791 792 



1346 
1208 



1308 1334 1336 1346 



1548 1560 1586 1598 



1362 1364 1385 



1-67 



Pascal Cross-reference RELERSE2 . .TEXT 13-Jan-83 Page 66 

loader 848 851 995 1033 1041 1043 1045 

raise 279 440 

kbd 102 

crt 36 

ctable 453 462 

lifdam 76 241 

srm drv 1764 

srmdam 434 475 538 

librarian 1510 1514 

kernel 460 

dischpib 495 

araigo 744 

raaxkana 

crt 57 61 307 

max level 

globals 24 200 
maxlines 

raiui 224 255 258 

tapebkup 905 936 939 
maxmodules 

librarian 75 2922 2956 3250 3252 3254 3257 3257 3258 3259 3402 3585 
roaxptr 

heapt 52 59 

max real isc 

kernel 142 

dc_drv 158 633 

raaxrec 

srm drv 1050 1733 1760 

srmaara 1000 1021 1024 1056 1089 1100 1112 
max ref size 

loader 1496 

librarian 2350 2354 
raaxromex 

crt 286 287 

maxsadd 

qrninit 832 833 

CS80 111 985 

*iaxsc 

globals 22 199 

maxspare 

xminit 1232 1354 1357 1360 1372 1399 1638 
maxsvadd 

qrninit 834 

tapebkup 971 986 

CS80 112 853 985 

■maxtimes 

xminit 1210 1396 
maxtries 

f9885 69 233 

amigo 786 867 

maxunit 

globals 16 40 

initunits 813 

ctable 590 617 

srmam 166 

raiui 230 505 

tapebkup 911 
ntaxx 

crt 41 230 253 264 274 381 383 406 429 

raaxy 

crt 41 233 254 265 364 383 388 408 430 

max bt 

hminit 285 302 316 329 334 

max file size 

~ packets 281 501 562 

srm drv 1764 
raax_num_T i les 

packets 373 

srm_drv 1550 

wiax_nurn_pa5swo rds 

packets 396 

srm_drv 1598 
max record size 

packets 280 497 661 

srm drv 1760 

srmdam 914 

max_sparing_tries 

qrninit 970 1051 

max tfr length 

" amigo 714 726 735 739 740 744 747 749 

*nax_vp 

hminit 369 408 
mb 

ctable 234 235 236 509 527 528 532 549 550 554 563 

rabptr 

bootdam 734 743 
mbsize 

bootdam 735 743 
mdp 

loader 905 1319 1352 1434 1445 1451 1485 

librarian 3291 3294 
media 

bootdam 59 2 
mediavalid 

lifdam 193 208 209 258 364 953 964 1071 1079 1098 1140 

media_origin 

packets 347 
media wear 

tapebkup 448 542 

cs80 175 648 

medium_copy 

tapebkup 95 3 1130 
medium size 

ctable 511 519 520 520 522 525 527 534 540 541 542 543 544 547 549 

ntemavail 

lifdam 383 

librarian 3576 
memblock 

heapt 66 67 76 120 

menu 

librarian 3347 3460 



merged 

librarian 1949 1960 1962 1964 
mergedef s 



1-68 



Pascal Cross-reference 


RELEASE2. 


0.TEXT 






librarian 


2078 


3060 










mergeexts 














librarian 


1796 


3058 










mergetext 














librarian 


1948 


2017 


2034 








merging 














librarian 


2202 


2241 


2271 


2272 


2603 




mesasurement 














ctable 


855 












message 














miui 


23 


25 


26 


27 






tapebkup 


550 


579 


580 


787 


789 


790 


message_length 














packets 


322 


330 










srm drv 


1431 


1479 










cs8(J 


132 












message sequence 














csSO 


130 












mfclose 














bootdam 


684 


723 










mfopen 














bootdam 


648 


655 


659 


678 


705 




mgbase 














loader 


1399 


1405 


1412 


1412 


1413 


1413 


librarian 


1736 


1752 


1768 


1768 


1769 


1769 


mi 














amigo 


716 


720 


733 


752 






middlebytes 














misc 


519 


566 


580 


581 


581 


585 


midecs 














midecs 


10 












mminit 


61 












hminit 


198 












qminit 


792 












xminit 


1201 












miui 


11 












mif 














qminit 


821 












cs80 


105 












min 














clock « 


162 


167 


168 








ascii 


141 


145 


145 


149 


149 


202 


midecs 


21 












mminit 


74 












hntinit 


212 


223 










qminit 


820 












miui 


292 


296 


308 








minhead 














xminit 


1232 


1354 


1360 


1385 






mini 














mini 


300 












bootdam 


535 












initunits 


709 












mminit 


61 












printer 


37 












£9885 


37 












cs80 


885 












minidrive 














mini 


391 


492 










miniio 














mini 


309 


384 










bootdam 


773 












minimum volume size 














ctable 


61 


1224 










minindex 














librarian 


1803 


1851 


1857 


2084 


2138 


2144 


minint 














librarian 


1513 












minit 














bootdam 


628 


632 


636 


642 


702 




minkana 














crt 


5B 


61 


307 








minlevel 














globals 


23 


200 










min realise 














kernel 


141 


949 










dc_drv 


168 


633 










minromex 














crt 


285 


287 










minspare 














xminit 


1232 


1354 


1357 


1360 


1372 


1606 


mintdata 














mminit 


64 


71 


78 








miui 


325 












minute 














globals 


225 












clock 


125 


167 










lifdam 


124 


124 


537 


569 






srmdam 


349 


363 










librarian 


231 












miui 


81 


83 










min_csvp 














hminit 


370 


408 


410 








min vp 














hminit 


368 


408 










misc 














misc 


151 












ldr 


844 












init 


1088 












kbd 


34 












keys 


33 












crt 


33 












clock 


33 












tail 


32 












lifdam 


26 












convert 


27 












srmdam 


34 












srmam 


33 












librarian 


27 












miui 


11 












tapebkup 


225 


761 










printer 


37 












f 9885 


37 












dischpib 


31 













13-Jan-83 Page 67 



1616 



1-69 



Pascal Cross-reference RELERSE2 . .TEXT 13-Jan-83 Page 68 

miscinf o 

kbd 78 173 

printer 158 172 
miscop 

librarian 765 1013 
niscoptype 

librarian 762 766 
raitr 

cs80 93 
miui 

miui 8 
mi controller 

amigo 138 177 179 311 413 513 530 676 720 818 897 955 
ml 

srm_drv 1473 1479 
ram 

clock 88 97 98 100 100 100 102 102 106 
mraaxint 

globals 15 30 

loader 82 2 
nminint 

globals 14 30 
mninit 

mminit 58 

miui 12 
mninitialize 

mminit 66 93 

miui 343 
rename 

librarian 2806 2822 2823 2823 2823 2858 
modblock 

loader 1210 1264 1288 1318 1325 1330 1343 
raoddescpt r 

loader 875 905 1003 1007 1036 1059 1067 1069 1071 1073 1105 1109 1178 1179 1196 1207 1301 1358 
1369 1398 1420 1475 1498 

initload 1712 

ldr 899 926 958 

ctable 258 

librarian 54 55 81 312 1557 1565 1735 1804 1932 2085 2199 2432 
moddirptr 

loader 878 909 
mode 

srm drv 1049 1732 1758 

srmdam 176 233 260 
modeonly 

srmdam 174 236 
modification ok 

qminit 902 907 908 911 912 916 
modified 

C580 39 1006 1009 1178 1198 
modnum 

loader 1082 1206 1318 1589 1622 1623 

ldr 982 1011 1012 1026 1027 1029 1031 1031 

librarian 2792 2797 2804 2818 2899 2906 2915 2924 2925 3083 3088 3089 3089 3094 3096 3097 3122 3131 
3132 3136 
raodp 

loader 1036 

ctable 258 264 265 266 279 

librarian 1822 1837 1869 2107 2121 2159 2162 
raodpt r 

loader 1105 1109 1178 1180 1196 1198 1199 1201 1202 1202 1207 1266 1283 1309 1310 1319 1321 1323 
1339 1350 1352 1358 1360 1361 1361 1363 1363 1369 1372 1374 1374 1381 1398 1404 1406 1406 
1415 1420 1427 1429 1429 1437 1438 1439 1441 1443 1465 1469 1475 1481 1482 1482 1485 1488 
1498 1520 1521 1521 1531 1538 1543 1546 1557 

initload 1712 1716 1718 1719 1720 1721 1721 

ldr 899 906 908 909 911 920 920 926 932 933 933 938 939 941 958 962 963 963 
972 

librarian 1557 1565 1575 1576 1578 1579 1636 1638 1640 1641 1642 1643 1655 1656 1689 1735 1742 1743 
1743 1745 1745 1750 1753 1753 1760 1761 1762 1784 1788 1804 1813 1814 1814 1822 1826 1932 
1998 1999 1999 2032 2038 2085 2098 2099 2093 2107 2111 2199 2328 2369 2409 2604 2605 2605 
2678 2726 2788 
ntodsave 

librarian 55 386 1422 1444 1488 1497 
moduledescriptor 

loader 875 1002 1102 1320 1433 

librarian 3290 
moduledi rectory 

loader 878 940 1441 1523 

librarian 322 1360 1778 1977 2021 2409 2597 2682 2822 
modulesize 

loader 947 

librarian 348 2952 
module_addressing 

CS80 126 600 
month 

globals 220 

clock 106 153 

lifdam 121 121 316 331 331 532 534 535 568 

packets 252 

srmdam 341 341 362 

librarian 109 113 3565 

miui 44 65 67 89 
monthnane 

librarian 104 114 
months 

librarian 103 104 



49 67 



monthst r 

miui 
rnorealpha 

keys 215 302 308 

moregraphics 

keys 222 300 309 

mostavail 

lifdam 662 670 671 724 727 728 728 729 735 737 739 740 750 750 

807 808 839 851 852 853 854 866 872 877 879 881 886 889 
most recent_escapecode 

mini 319 376 

most_recent_status 

amigo 157 313 

cs80 300 405 

move 

librarian 738 1073 
movebytes 

librarian 1938 



1-70 



Pascal Cross-reference 


RE LEASE 2. 


0.TEXT 






13- 


Jan- 8 3 


Page 


59 


















movedef s 






































loader 


1091 


1474 


1639 
































ldr 


1050 




































moveleft 






































mini 


441 


445 


































loader 


1152 




































misc 


580 


624 


627 


646 


648 




























keys 


197 




































crt 


261 




































ascii 


74 


203 


223 


251 






























convert 


73 




































srm drv 


2099 




































librarian 


477 


478 


2473 


2964 


3226 


3310 


























cs80 


1150 


1166 


1179 


1199 






























moveright 






































loader 


1159 


1617 


































crt 


271 




































librarian 


2389 


2481 


































movesize 






































lifdam 


371 


426 


427 


428 


429 


431 


432 


434 






















mp 






































ctable 


216 


217 


218 


387 


389 


389 


393 


397 


399 


400 


404 


406 


406 


410 


412 


412 


813 


824 




904 


910 


914 


972 


1206 


1207 


1208 


1209 


1210 


1211 


1212 


1213 


1215 


1216 


1217 


1217 


1219 


1222 




1224 


1224 


1224 


1241 


1243 


1251 


1253 


1257 


1257 


1261 


1263 


1269 


1271 


1289 


1373 


1378 


1380 


1385 




1390 


1392 


1397 


1402 


1404 


1409 


1414 


1416 


1418 


1418 


1421 


1423 


1428 


1433 


1435 


1438 


1440 


1445 




1450 


1452 


1457 


1462 


1464 


1469 


1469 


1477 


1479 




















srm_types 


875 




































srm_drv 


1215 


1363 


1364 


1365 


1366 


1367 


1369 


1371 


1372 


1374 


1375 


1376 


1417 


1419 


1420 








librarian 


312 


319 


































heapt 


66 
244 


100 
250 


102 
251 


110 
251 


146 


148 


154 


156 


157 


165 


167 


168 


168 


182 


183 


194 


224 


234 


CS80 


897 


931 


934 
































mphydata 






































mminit 


65 


82 


89 
































miui 


467 




































mp type 






































ctable 


176 
404 


183 
410 


184 
410 


185 
813 


186 

824 


187 
904 


188 
906 


189 
972 


190 


191 


192 


193 


216 


217 


218 


218 


387 


393 


CS80 


889 


897 


905 


931 






























mrbase 






































loade r 


1399 


1405 


1410 


1410 


1411 


1411 


























librarian 


1736 


1752 


1757 


17j8 


1758 


1766 


1766 


1767 


1767 


1790 


















mscode 






































bootdam 


572 


800 


































msg_packe t_p t r 






































packets 


308 




































5rm_types 


823 




































msg_packet_type 






































packets 


307 


308 


































srm_drv 


1373 


1418 


































msus 






































bootdam 


587 


628 


632 
































msustype 






































bootdam 


559 


577 


587 


628 






























msus type 






































ctable 


712 


735 


































mth 






































clock 


148 


153 


154 


154 


154 


155 


155 


156 






















mtype 






































bootdam 


570 


800 


































multi_volume 






































ctable 


57 




































multi volume option 






































ctable 


59 


1227 


1247 


1506 






























multi volume option 


type 




































ctable 


56 




































munit 






































bootdam 


571 




































mybit 






































iolib 


2092 


2103 


2105 


2107 


2113 


2123 


2125 


2127 


2134 


2155 


2166 


2168 


2170 


2176 


2186 


2188 


2190 


2197 




2219 


2234 


2239 


2244 


2249 


2254 


2259 


2264 


2271 


2282 


2287 


2292 


2297 


2302 


2307 


2312 


2319 




mybool 






































iolib 


387 


392 


393 


2222 


2271 


2319 


2327 


2335 






















mycharptr 






































kernel 


802 


812 


821 
































mycount 






































dc_drv 


343 


388 


394 


395 


396 


405 


405 


407 






















myisrib 






































kernel 


385 


399 


413 


1137 






























h drv 


231 


235 


243 
































dl drv 


225 


229 


237 
































g_3rv 


224 


228 


236 
































dc drv 


578 


582 


590 
































rs_drv 


216 


220 


228 
































myrate 






































iolib 


2392 


2394 


2395 


2396 


2397 


2398 


2399 


2400 


2401 


2402 


2403 


2404 


2405 


2406 


2407 


2408 


2409 


2411 


myval 






































iolib 


2458 


2470 


2475 


2480 


2490 


2499 


2506 


2511 


2522 


2542 


2551 


2552 


2553 


2554 


2564 


2573 


2595 


2607 




2508 


2609 


2610 


2611 


2617 


2627 


2628 


2629 


2630 


2631 


2638 
















my_address 






































iolib 


292 


332 


340 


424 


499 


1694 


























my_boolean 






































iolib 


1614 


1620 


1621 
































my_byte 






































10 lib 


1941 


1946 


1947 
































my_code 






































kernel 


564 


572 


576 
































rny_isc 






































kernel 


392 


406 


420 


590 


1129 


1187 


























dc drv 


348 




































my msg 






































iolib 


979 


981 


988 


989 


990 


991 


992 


993 


994 


995 


996 


997 


998 


999 


1000 


1001 


1002 


1003 




1004 


1005 


1006 


1007 


1008 


1009 


1010 


1011 


1020 


1022 


1023 


1024 


1025 


1026 


1027 


1028 


1029 


1030 




1031 


1032 


1037 


1039 


1040 


1042 


























my_num 






































iolib 


203 


208 


209 
































my_ptr 






































kernel 


582 


589 


590 
































my__special_pad 






































qminit 


494 




































my status mask 






































cs80 


726 


810 


864 
































my_value 






































kernel 


856 


858 


863 
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iolib 216 218 222 

loader 1038 1225 1229 1234 1234 1242 1243 

keys 241 244 

lifdam 1040 1051 1051 1052 

srmdam 134 161 365 392 „„ r , 

librarian 649 651 1823 1841 1847 1847 1847 1850 1873 1874 1874 3350 3352 3352 3353 

nuui 15 171 326 344 468 

dischpib 72 75 88 99 113 
name 

ldr 855 925 929 931 936 
namelen 

srmdam 1479 1487 1520 1539 1539 1546 
name_set_array 

srm types 927 928 

srmdam 635 876 
name_se t_a r r a y_th ree 

srm types 926 

srmdam 132 996 1231 1288 
name_type 



packets 



230 271 275 290 291 316 337 338 341 349 410 440 441 442 457 458 605 607 
608 614 616 791 



srm drv 1009 1017 1025 1029 1030 1031 1045 1059 106* 1081 1093 1511 1547 1585 1623 1654 1655 1656 
1728 1780 1785 1902 1965 

srmdara 95 109 437 478 544 623 637 878 936 964 995 1137 1175 1176 1210 1228 1268 1287 
name_type_len 

packets 52 230 

srmdara 646 1499 1546 1548 
nb 

dischpib 195 197 201 274 283 287 287 341 351 357 357 424 445 462 

amigo 246 251 252 253 254 255 256 257 258 259 260 261 262 263 269 
nbb 

cs80 99 
nbpb 

qminit 834 

tapebkup 971 986 

C580 98 845 846 853 969 971 985 986 
ndac_line 

kernel 285 
ndfs 

kbd 5 185 
ndrives 

ctable 731 742 
needcap 

srmdani 177 229 244 249 253 
needmodeo rpass 

srmdam 177 216 223 
needpass 

srmdam 177 234 239 255 
new 

initload 1705 

raise 671 672 

initunits 812 

init 1097 1098 1099 1100 

kbd 332 

ctable 588 

lifdam 388 1162 

srm_drv 1215 1216 

xminit 1373 

heapt 44 283 

kernel 979 1002 1008 1016 1022 1026 1042 1063 1070 

dc drv 632 

iolib 1126 1134 

dischpib 87 

cs80 52 
newbytes 

librarian 2222 2379 2396 2397 2398 2399 2400 2716 2721 2724 2725 2777 2778 2779 
neuidef table 

librarian 2093 2117 2184 2188 
newdirectory 

librarian 86 2073 2181 2597 2600 2950 2953 3057 
neuieof 

srmdam 1269 1273 1274 1277 

"librarian 85 1833 1872 1880 1880 1884 1884 2066 2067 
newext table 

librarian 84 191 192 392 1832 2068 

ne " in ^ rarian 2218 2241 2251 2269 2286 2286 2287 2597 2598 2598 2598 2599 2601 2601 2601 
newlistname 

librarian 2989 2995 2996 2997 2999 3003 3008 

neu ""° librarian 82 1780 1780 1978 1979 1980 1984 1984 1986 2964 3042 3068 3069 3069 3305 3309 3310 3408 

3409 
neuntodptr 

loader 1421 1433 1434 1445 1451 

""""""loader 1059 1198 1303 1339 1339 1360 1365 1372 1404 1427 1520 1580 1600 

i?h P , ri , n ?go 1 386 387 390 397 1245 1246 1358 1404 1422 1432 1444 1465 1488 1497 1638 1742 1747 

librarian ^190 JSj J87 ^90 ^Bf li»a i|« |«| ^ ^ qi 3373 3382 3472 3485 3492 3541 3542 3586 

newname 

srm_drv 1030 1655 1667 
neunfns 

srm_drv 1060 1781 1794 1807 
newnsapt r 

srm_drv 1061 1782 1791 
newparm ~ 

qminit 901 910 911 911 913 
newpass 

srm_drv 1031 1656 1668 
newpath 

srm_drv 1062 1783 1809 

"""""'librarian 1941 1951 1959 1960 2012 2013 2214 2382 2383 2388 2396 2398 2401 2444 2474 2482 2504 2507 

2521 2545 2555 2556 2558 2651 2652 2655 2712 2717 2722 2727 
newrtpass 

srm drv 1064 1785 1810 
newstartdefs 

loader 1091 1474 1479 1490 1491 

neustrptr „ „ . „ , 

librarian 1809 1866 1867 1870 2090 2156 2157 2164 
neutextrec 
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librarian 1933 1953 1953 1959 1966 1967 1971 2003 2004 2028 2030 
newtextrecs 

librarian 1937 1970 1970 1997 2061 
newwd 

srm_drv 1063 1784 1808 
newwords 

initload 1675 

lifdam 387 

heapt 126 267 288 293 
new_cat_organization 

packets 608 
new_file name_header 

packets ~ 521 

srm_drv 1806 
new_pas sword 

packets 614 
new_vo lume_name 

packets 441 607 

srm_drv 1667 
new_vo l_passujo rd 

packets 442 

srm_drv 1668 
next 

heapt 214 239 240 242 244 244 244 246 247 250 251 253 
nextavail 

lifdam 662 739 762 764 764 772 772 774 796 796 797 820 821 851 852 853 854 873 
886 886 
nextblock 

librarian 71 2063 2065 2068 2069 2069 2183 2188 2189 2189 2243 2243 2244 2244 2245 2284 2285 2285 
2952 2961 
nextf reeword 

heapt 46 47 274 279 
nextptr 

loader 1358 1362 1363 

librarian 1735 1744 1745 
nextref 

librarian 400 522 533 1386 
nfns 

srm drv 1005 1013 1021 1041 1077 1089 1543 1556 1569 1581 1594 1607 1619 1630 1633 1640 1724 1742 
1745 1752 1898 1911 1918 1961 1972 1979 

srrndam 634 731 732 734 772 772 780 805 812 828 875 895 1230 1247 1252 1256 1257 
nfnsl 

srmdam 1139 1178 
nfns2 

srmdam 1142 1181 
nil 

loader 1126 1132 1163 1183 1199 1304 1387 1426 1444 1595 1621 

initload 1714 1767 1786 

isr 121 127 

initunits 750 751 

ldr 901 928 933 939 952 1001 1010 1020 1021 1056 

init 1118 

tail 86 

ctable 265 321 599 615 

lifdam 1162 

srm drv 1194 1198 1199 1200 1201 1202 1203 1258 1313 1326 1334 

srmdam 219 978 1094 1376 1411 

librarian 163 360 387 1495 1636 1662 1742 1743 1749 1749 1751 1751 1753 1760 1780 1781 1814 1956 
1978 1989 1996 1999 2050 2099 2494 2499 2550 2554 2605 2615 2896 3026 3034 3042 3068 3076 
3153 3295 3295 3305 3373 3382 3408 3426 3467 3472 3476 3485 3488 3492 3504 3541 3542 3586 
3539 3590 

kernel 584 767 786 806 825 952 1125 1132 1133 1134 1135 1136 1137 1141 1142 1184 1189 1190 
1191 

h drv 231 

dl drv 225 

dma_drv 142 159 179 180 182 183 209 213 

g drv 224 

dc_drv 357 358 461 462 464 466 578 

rs drv 216 

iolib 246 335 411 441 488 518 578 628 1142 1143 1144 1145 1230 1258 1272 1538 1539 

printer 309 309 

dischpib 86 239 239 

cs80 51 
nilgvr 

librarian 300 536 1119 1495 
nilptr 

heapt 51 59 120 121 140 143 149 160 222 232 239 240 247 249 255 263 265 280 
287 305 312 
nindx 

srmdam 627 744 755 759 
nintdata 

hminit 202 220 227 229 

miui 326 
nobreak 

kbd 42 174 
nocapabilities 

srmdam 64 279 1036 1356 
nodam 

initunits 715 806 815 
node 

bootdam 783 788 789 790 
nodeallocate 

packets 460 

srm_drv 1689 
nodecom 

bootdam 779 786 
nodes tr 

bootdam 540 

initload 1763 1763 1763 1764 1769 1769 1770 1788 

kbd 336 

tail 68 76 
nodevice 

ctable 169 752 752 752 753 753 754 754 754 754 754 754 755 755 755 755 755 755 
755 755 770 878 1089 
nodisc 

f9885 48 219 
noerror 

£9385 48 206 
nointhpib 

globals 284 

kernel 917 
noisr 

initunits 716 741 

xminit 1349 
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nokeyboard 

globals 285 
nonabo r t ive_io resul t_se t 

miui 119 

tapebkup 842 
none 

srmdam 17 6 

librarian 3356 

nop 

qrninit 744 

tapebkup 104 

CS80 480 

nopl 

CS80 526 

nop2 

CS80 529 

nopassyet 

srmdam 1485 
nopatch 

librarian 2438 
nopouier 

£9885 48 

norange 

librarian 302 
norecord 

£9885 48 

no res 

librarian 139 

normal_completion 

anugo 69 

notcancels 

librarian 1572 

notdone 

librarian 1571 

notice 

loader 945 

librarian 329 
not rack 

£9885 49 

notready 

£9885 62 

notype 

librarian 295 
not_a_913x 

ctable 1000 
not_ready 

tapebkup 421 

C580 157 

noun it 

initunits 713 
nowopen 

lifdam 1085 
no_ca rd 

kernel 220 

printer 308 
no_data_f ound 

tapebkup 42 3 

cs80 159 

no_id 

kernel 244 
no_isc 

srm_drv 1196 

kernel 193 

dma drv 181 

dc 3rv 463 

ioTib 113 7 

dischpib 451 

no_parity 

kernel 293 

iolib 2607 
no spares_available 

cs80 156 

f no_tf r 

srm_drv 

kernel 

iolib 
nps 

srm drv 

srm3am 



nrecords 

f 98B5 

nrfd_line 

kernel 
nsa 

srmdam 

nsal 

srmdam 

■nsapt r 

srm_drv 

nsectors 

hminit 

nspm 

midecs 
mminit 
nminit 
qfninit 
miui 

nspt 

midecs 
mminit 
hminit 
qminit 
miui 

nstates 

librarian 

nta 

cs8 

ntps 

midecs 
mminit 
hminit 
qminit 



208 
889 



3370 3378 3408 3427 



750 
112 
485 



1195 

451 

1136 

1026 

172 

1037 

58 

284 

132 
1062 

1288 

1006 

140 

29 

86 

241 

830 

432 

30 

87 

2 43 

833 

432 

418 

205 

28 

85 

242 

831 



1046 
217 

1038 



140 
1063 



158 



165 



188 



3442 

201 



537 

541 
1493 1518 1524 1526 
2489 2545 

216 
1276 1324 1543 1544 

230 236 

190 

1581 1588 1594 
1581 1582 1590 

330 2047 

227 

208 
1519 
1034 1036 1037 

611 

802 815 
1110 1111 1112 
976 



615 

948 

1274 1275 1289 1316 1317 1318 
586 1215 1220 
184 



1167 1174 1187 1200 1241 1245 1248 1431 1436 1440 1458 1463 1467 1487 1493 1514 1529 



2627 

609 

1342 

1287 



1624 1633 1645 

275 275 276 

1055 1088 1099 



1729 


1741 


1745 


1756 


285 


439 


462 


466 


1111 









146 
1083 



151 
1087 



156 
1093 



535 
1098 



734 
1107 



780 
1110 



812 
1120 



940 



828 
1121 



947 1001 1029 1030 1030 1032 1032 1033 



876 
1126 



895 996 
1231 1241 



1009 
1256 



1047 
1257 



1049 1053 1054 



1314 1346 
1014 1022 

146 154 



1042 1078 1090 1544 1653 1582 1591 1620 1629 1725 1740 1899 1908 1962 1969 



85 1023 1058 1079 1092 1111 1112 
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miui 432 

nul 

librarian 3189 3206 
null 

misc 159 

nullchar 

misc 159 

convert 82 111 114 118 

librarian 1479 
null_bcdl2 

miui 420 433 441 

null_dav 

ctable 756 758 

null_mp 

ctable 193 906 914 1219 
nun) 

mini 391 492 

srm drv 1508 1515 

iolib 140 202 209 665 679 700 754 880 884 

number 

crt 245 249 252 252 

numberofspares 

xminit 1240 1372 1474 1577 
number conversion_ok 

miui 289 299 300 305 308 

number of_t racks 

misc 263 265 

number_vols 

ctable 216 217 393 397 398 399 404 406 

numblocks 

librarian 2902 2927 2931 2933 2935 2935 2941 2941 
numbuilt 

iolib 705 722 756 771 

numdata 

kbd 132 259 271 272 273 

bat 37 64 74 75 76 77 78 

numeric 

iolib 707 712 714 737 745 

numf iles 

librarian 3082 3087 3088 
num_bits 

iolib 2366 2457 2468 2473 2478 2497 2502 2509 

num_char bit 

iolib 2369 2541 2549 

num^file name_sets 

packets 267 

srm_drv 1515 
num_p r o tec t_code_se ts 

packets 424 503 606 

srm_drv 1645 1766 
nvols 

ctable 973 1224 1225 1225 1226 1226 1227 1239 1241 1243 1248 1249 1251 1253 1256 1256 1259 1261 

\V\l 7 2 ?I 7? 6 ? im 1375 1376 1378 1380 1387 1388 "SO 1392 1399 1400 1402 1404 lid lll2 

1*60 146! Itkl 14G9 111 1 , It" 1J?§ "^ "" 1435 1436 " 38 144 ° " 4? " 48 »" "" " 5 " 
nxtlink 

ob lsr 85 89 92 94 95 95 104 114 118 121 121 123 124 124 127 129 130 132 

C580 465 469 

obj 

loader 
librarian 

object 

loader 
librarian 



1118 


1120 


































127 


129 


133 


135 


2810 


2812 


























1108 


1501 


1531 


1534 


1535 


1536 


1536 


1539 


1545 


1546 


1549 
















2207 


2249 


2260 


2305 


2305 


2314 


2320 


2320 


2411 


2441 


2443 


2506 


2525 


2561 


2577 


2635 


2636 


2637 


2637 


2638 


2638 


2639 


2639 


2646 


2647 


2648 


2648 


2649 


2650 


2650 


2662 


2665 


2665 


2666 


2697 


2724 


2724 
2808 


2733 
2843 


2734 
2847 


2735 
2847 


2740 
2850 


2741 
2850 


2742 

2856 


2747 


2747 


2753 


2754 


2755 


2760 


2761 


2762 


2777 


2779 


2779 


44 


45 


288 


293 


297 


309 


312 

























he apt 
objectO 

loader 1501 1545 1549 
objectaddr 

librarian 2429 2441 2443 2502 2516 
obsize 

librarian 2311 2314 
oc 

occurrences ^ "* " 2 2 " 254 " 5 " 6 2 " " 8 259 26 ° 2B1 262 263 267 278 286 287 

qminit 489 
oct_10000 

miui 392 427 
odd 

mini 510 

loader 1113 1271 1378 1379 1411 1413 1442 1455 1525 

keys 285 286 289 474 

ctable 273 1006 

ascii 107 131 168 241 

librarian ? 350 ^26 J99 1134 1192 1207 1212 1250 1362 1415 1661 1767 1769 1785 1984 2023 2029 2133 

£9885 282 
oddbytef iller 

packets 299 
odd_parity 

kernel 294 

iolib 2508 2628 
off 

srm_drv 1098 1111 1994 2010 2080 2096 
offline 

globals 156 

mini 482 

initload 1688 

initunits 789 

ctable 345 606 627 

srmdam 1598 

srmam 187 

f9885 255 

amigo 566 

CS80 1072 
offset 

packets 716 806 

srm_drv 2010 2096 

srmam 57 63 67 71 75 84 104 110 114 118 122 131 

librarian 508 520 521 526 527 528 529 529 532 536 1888 1914 

qminit 698 710 
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gI r-.o tbytes 

librarian 


2223 


2249 


2384 


2385 


2385 


2393 


2395 


2640 


2640 


2658 


2558 


2660 


2672 


2672 


ok 

lif dam 


193 


246 


250 


253 


254 


261 


1043 


1116 














srmdam 


190 


284 


289 


296 


298 




















ote to config 






























cs80 


557 


565 


690 
























oldindex 






























loader 


1503 


1524 


1526 


1526 


1526 


1528 


1530 


1530 


1531 












librarian 


1943 


2021 


2022 


2022 


2022 


2023 


2024 


2024 


2024 


2026 


2031 


2031 


2032 


2217 




2689 


2689 


2690 


2691 


2691 


2691 


2694 


2698 


2784 


2784 


2785 


2785 


2785 




oldnf ns 






























srm drv 


1055 


1776 


1791 


1794 


1801 




















oldnsaptr 






























srm_drv 


1056 


1777 


1790 
























>.f.ii.iatch 

librarian 


2438 


2494 


2499 


2508 


2546 




















oldpath 






























srm drv 


10 


1778 


1803 
























vltlptr 

librarian 


1556 
1944 


1565 
1991 


1624 
1992 


1626 
2005 


1626 
2006 


1627 


1627 


1630 


1631 


1632 


1632 


1642 


1643 


1653 


oldrtpass 






























srm drv 


1059 


1780 


1804 
























oldstate - 






























librarian 


304 


1293 


1305 
























oldtextrec 






























loader 


1507 


1527 


1550 
























librarian 


2224 


2412 


2692 
























oldtracknumber 






























xminit 


1234 


1412 


1517 
























Idud 






























srm drv 


1058 


1779 


1802 
























old file name_header 




























pacEets 


520 




























srm drv 


1800 




























c«e_parity 






























kernel 


297 




























iolib 


2611 


2630 


























onheap 






























loader 


1088 


1494 


1513 


1563 






















on same controller 






























tapebkup 


815 


817 


979 
























on same medium 






























ctable 


214 


638 


644 


1512 






















miui 


32 


35 


231 


507 






















tapebkup 


803 


809 


912 


977 






















OP 






























loader 
librarian 


855 
184 


187 


189 


1588 


1606 


1606 


1657 


1662 


1697 


2454 


2458 


2465 


2483 




opcode 

librarian 


425 


744 


1071 


1131 


1134 


1138 


1153 


1165 


1167 


1186 


1192 


1193 


1207 


1212 


£9885 


111 


125 


126 


127 


147 


148 


149 


150 


151 


164 


165 


169 


174 


178 


atiugo 


63 


267 


























opcode 






























librarian 


677 


1072 


























opcode 4 






























librarian 


761 


1074 


























open 






























librarian 


781 


795 


798 
























opendir 

lifdam 


257 


377 


514 


544 


573 


651 


949 


1046 


1065 


1087 










opendi rectory 






























globals 


136 




























lifdam 


1133 




























srmdam 


1602 


1642 


























openf 






























lifdam 


947 


1107 


1108 
























openf ile 






























globals 


135 




























bootdam 


693 




























loader 


1610 




























raise 


436 




























lifdam 


1107 




























srmdam 


1608 


1676 


























openf ileptr 






























globals 


240 




























openf lies 






























ldr 


852 


868 


























init 


1144 




























ctable 


1543 




























open in 






























librarian 


3142 


3481 


























opening 

lifdam 


659 


703 


709 


746 


768 


803 


805 


839 


840 


855 










open 1 ink f 






























loader 


1083 


1136 


1613 
























ldr 


954 




























openlinkf ile 






























ldr 


847 


946 


1009 


1019 






















librarian 


3162 




























openmod 






























librarian 


3314 


3489 


























openneu 

lifdam 


908 


954 


957 


1080 






















openold 






























lifdam 


932 


963 


1072 
























openout 






























librarian 


3187 


3471 


3493 
























openpack 






























srm drv 


1076 


1897 


























srmdam 


780 


812 


895 


1049 


1063 




















openparent 






























srmdam 


621 


778 


787 


803 






















openparentdir 






























globals 


137 




























srmdam 


1603 


1643 


1644 
























opentype 






























srmdam 


620 


781 


813 
























openun i t 






























globals 


138 




























misc 


433 


439 


























lifdam 


1136 




























openvolume 































2725 2725 2778 2778 



2682 2685 2685 2689 



1664 1664 1676 1689 
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globals 


137 




































raise 


434 
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librarian 68 2068 2188 2277 2282 2302 2341 2824 2888 2938 2953 3181 3182 3197 3210 3210 3211 3218 
3341 3543 
out filename 

librarian 72 3202 3203 3204 3209 3210 3211 3217 3218 3226 3227 3240 3377 
outmodnum 

librarian 73 263 2922 2923 2923 2924 2929 2956 2957 2957 2958 3178 3179 3344 3372 3482 3492 3544 
3587 
outopen 

librarian 48 263 3179 3195 3200 3212 3232 3235 3343 3377 3379 3405 3432 3447 3467 3470 3472 3474 
3478 3480 3486 3490 3496 3498 3500 3506 3543 3544 3587 
output 

init 30 

misc 372 409 

ldr 863 872 874 875 904 

bat 30 

tail 30 91 

suvol 3 

librarian 24 96 1504 1521 1531 1533 2418 2994 3050 3147 3201 3249 3265 3271 3277 3278 3285 3303 
3319 3350 3385 3424 3437 3461 3463 3570 3571 3572 

mminit 107 

miui 8 243 245 252 257 258 267 

tapebkup 8 924 926 933 938 939 948 

kernel 100 

h drv 100 

dl_dru 100 

dma_dru 99 

g_drv 101 

dc_dru 102 

rs dru 103 

printer 189 194 205 212 
output data 

dc_dru 132 255 273 375 
output_end 

dc_dru 134 380 
outref index 

librarian 2211 2248 2279 2281 2339 2343 2343 2345 2358 2359 2362 2397 2398 2399 2399 
out_buf pt r 

srtn dru 1334 1338 

kernel 390 404 418 1133 

dc dru 357 461 

iolib 1272 1283 1539 

printer 309 

dischpib 239 
overlap 

kernel 450 

iolib 1377 
overlap_dma 

kernel 447 

dc dru 352 

iolib 1378 
overlap_f as test 

kernel 44 9 

iolib 1376 

dischpib 454 
overlap_fhs 

kernel 448 

iolib 1376 
overlap_intr 

kernel 446 

dc dru 367 

iolib 137 7 
override 

hrainit 142 171 184 
overrun 

amigo 76 809 813 
overwritefile 

globals 135 

lifdara 1109 

srmdam 1610 1689 1692 
ouner_id type 

packets 310 651 

P mini 335 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 
359 360 361 362 363 364 365 366 367 368 369 370 380 

loader 889 1084 1111 1114 1154 1264 1273 1273 1288 1456 1456 1539 1544 1563 1570 1598 1635 1642 

librarian 121 123 1379 1382 1473 1727 1749 1781 1867 1867 1986 1989 2050 2157 2157 2277 2282 2302 
2307 2328 2341 2344 2367 2389 2398 2398 2473 2481 2652 2652 2841 2877 2879 2884 2887 2888 
2910 2910 2937 2938 3164 3164 3575 3577 

miui 15 179 346 468 

heapt 



pl 



p2 



p3 



4 87 91 94 97 100 102 108 110 191 194 202 204 208 262 263 264 265 

kernel 764 766 767 773 773 774 783 785 786 792 792 793 803 805 806 812 822 824 

825 831 831 832 

iolib 1127 1426 1442 1443 1453 1469 1470 

amigo 9 9 

globals 270 

Init 1103 

crt 68 

librarian 1401 1409 1410 1411 1413 1414 1415 1415 1417 1429 1439 1440 

globals 270 

init 1103 

crt 68 

iolib 703 754 783 792 793 

f9885 61 

globals 270 

init 1103 



packeddate 

clock 37 82 92 139 156 187 197 

packedtime 

clock 37 78 115 140 168 186 203 



packet in 

srm dru 



srmanrt 



1001 1389 1536 1576 1614 1649 1672 1693 1719 1771 1818 1836 1855 1893 1932 1956 1986 2036 

2055 2072 

78 85 89 125 132 136 

PaCl<e srm"dru 1000 1355 1534 1575 1613 1648 1571 1692 1718 1770 1815 1835 1854 1872 1892 1931 1955 1985 

2013 2035 2054 2071 2102 
packe tout timeout 

srm_drv 1120 1362 
packe t_ptr 
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srm_drv 993 1215 1363 1364 1365 1366 1367 1369 1371 1372 1374 1375 1376 1412 1412 1417 1419 1420 
1526 1538 1551 1589 1627 1658 1679 1704 1738 1788 1824 1843 1862 1881 1906 1941 1967 1997 
2022 2043 2061 2083 

srmdam 313 372 372 397 492 555 728 890 1069 1071 1400 1430 1440 

srmam 60 107 107 

pactost r 

lifdam 90 139 256 

pad 

globals 162 

bootdam 73 3 

initload 1694 

initunits 795 

ctable 351 721 

f9885 61 131 201 

CS80 446 453 

padl 

kbd 89 

pad7 tol 

globals 290 
page 

ldr 904 

swvol 16 

librarian 240 
pageb locks 

librarian 31 1449 1474 
pagebuf fer 

convert 35 36 40 64 73 78 82 87 96 103 107 115 117 

pagebuf type 

convert 33 35 36 40 87 89 

pageeject 

librarian 237 246 321 3004 3555 
pagelines 

librarian 30 246 
pagenum 

librarian 45 232 232 249 249 3005 3009 3558 3568 
pageptr 

convert 89 117 
pages 

librarian 1452 1470 1471 
pagesize 

convert 31 33 60 82 100 106 114 121 

librarian 1449 1464 1470 1470 1473 1479 1483 
paoc 

srmdam 95 100 101 104 109 111 113 637 651 

paocl6tostr 

srmdam 95 379 407 514 575 701 830 833 

parameter 

ctable 249 251 251 

pa ramete r_bounds 

cs80 128 

parity mode 

iolib 2372 2594 2605 2625 

parm 

qminit 898 905 913 

parseoptparm 

srmdam 169 947 1029 

partial length 

csSO 1124 1140 1141 1141 1150 1151 1152 1153 1179 1180 1181 1182 1185 1186 1189 1190 1191 1192 

pass 

srmdam 176 228 243 274 

passarray 

srmdam 50 53 73 

passentry 

misc 202 

srmdam 50 54 55 56 57 58 59 60 61 434 476 

passlen 

srmdam 1480 1488 1514 1514 1521 1548 

passleng 

globals 17 44 

srmdam 1625 
passtype 

globals 44 101 

misc 204 

srmdam 1587 
password 

packets 291 316 410 440 605 

srm drv 1666 

srmHam 126 148 153 158 278 459 514 741 751 832 833 974 1035 1053 1062 1086 1106 1109 

1120 1125 1154 1256 1352 1355 1374 

f 9385 70 124 146 163 

passwo rda r rayp t r 

srmdam 73 498 1575 

password index 

pacRets 398 

srm^drv 1600 

password info 

packets 40 9 

srmdam 512 

pass_control 

iolib 1653 1755 

patchable 

loader 923 1461 

librarian 2009 2135 2446 2769 2772 
patchaddr 

librarian 2430 2497 2502 2511 2511 2512 2512 2516 2520 2523 2534 
patchbase 

loader 1009 

librarian 1757 2010 2013 2497 2520 2534 2611 2665 
patchbytes 

librarian 79 3286 3287 3289 3289 3289 3293 3413 3413 3415 3584 
patchdelta 

librarian 2436 2502 2503 2503 2506 2516 2518 2518 2525 2528 2537 
patchdescptr 

loader 881 915 998 1008 

librarian 2197 2435 
pa tchde scrip tor 

loader 881 997 

librarian 2549 
patcherror 

librarian 2404 2545 2770 
patching 

librarian 2201 2252 2253 2769 2772 



patchlink 

loader 1007 
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817 823 824 
1164 1165 1167 
1403 1630 1646 



1900 1963 



1349 1349 1375 
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prepunassem 

librarian 383 1403 1431 1463 1494 
presetdrive 

qminit 603 608 

preset drive 

qminit 511 590 611 996 

prev 

heapt 214 239 244 249 251 

prev id 

miui 44 89 89 90 

previous 

loader 1477 1480 1484 1484 1485 1487 

previously timed out 

printer 75 190 256 262 270 302 333 

previous char ptr 

printer 70 251 275 295 

previous hs completed 

printe? 149 237 243 272 
prevno 

miui 45 89 

primary 

f9885 56 116 147 169 174 

pr imarycommands 

£9885 51 56 

prima rytype 

librarian 174 1253 1253 1634 1647 1693 1699 1700 1896 189S 1915 2008 2252 2447 2447 2450 2457 2459 
2468 2521 2766 2861 
prinery_dam ^ ^ ^^ ^^ ^^ ^^ ^^ ^ gg ngl ngg ng? 123g 124Q 125Q 126Q 1268 1355 1356 

1361 1362 1368 1377 1389 1401 1413 1420 1432 1437 1449 1461 1476 
primary lms_dam 

ctable 50 372 376 

priniitive_acces5 

packets 170 
printdirectentry 

librarian 2792 3089 
printdi rectory 

librarian 3081 3477 
printer 

ctable 167 894 1053 

"""^"librarian 51 224 2165 2288 2419 2565 2609 2619 2633 2644 2683 2991 2991 2992 3011 3014 3052 3064 

3365 3582 
prin terror 

misc 208 363 

ldr 916 1078 

tail 89 

pcintheader 

librarian 217 250 3571 
printinst rword 

librarian 466 1341 1342 
printme55age 

librarian 2406 2418 2422 
printopen 

librarian 50 223 3010 3011 3012 3014 3363 3581 
printprocboundary 

librarian 1240 1279 
nrintunres 

ldr 957 1038 

printwhy 

ldr 985 1010 1021 

proc 

globals 209 

Isr 72 103 144 

dischpib 200 201 400 416 424 446 
procent ry 

isr 38 45 55 60 72 78 103 136 144 

processor 

ctable 854 
process errors 

amlgo 788 945 

proctype 

globals 198 
proc type 

"ctable 826 837 838 839 840 841 843 844 845 866 

produce r 

loader 943 

librarian 331 341 2045 
p roduce rname 

librarian 
product number 

csSO 719 839 841 841 842 

p rogname 

loader 1018 1437 

ldr 936 936 

programname 

miui 46 89 

progs tateinf o 

kbd 108 340 

keys 180 181 

crt 108 

progs tate in foaddr 

kbd 63 146 200 340 

promcharl 

kernel 883 906 

promchar2 

kernel 884 907 

promchar3 

kernel 885 908 

promchar4 

kernel 886 909 

promcharS 

kernel 887 910 

p romcha r 6 

kernel 888 911 

promp resent 

global:; 291 

kernel 902 

prompt 

midecs 37 41 45 

qminit 898 905 

tapebkup 773 777 839 857 
pro tec tc ode _set_array 
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srm types 930 931 

srmBam 173 449 941 1003 

protect_code_set 

packets 314 

srm types 930 

srmdani 1295 

prtdvr 

printer 32 

prtio 

printer 40 49 
psa 

srmdani 173 276 285 449 457 466 941 947 1003 1029 1033 1040 1055 1088 1099 1111 

psaptr 

srra_drv 1027 1047 1625 1630 1730 1742 
pt 

ptp 
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srra_drv 1510 1518 

loader 913 

librarian 1655 1774 1775 



loader 1226 1235 1235 1568 1570 1570 1571 1573 1574 1574 

ctable 259 268 269 271 272 272 272 273 273 273 274 277 277 277 

librarian 1451 1475 1477 1479 1480 1482 1482 1483 1946 1992 1993 2032 2033 2806 2823 2824 2829 2832 

2832 2835 2871 2871 2872 2876 2880 2880 
heapt 284 296 297 303 309 310 

ptrl 

loader 1422 1431 1432 1453 1455 1455 1456 1457 1457 1465 
ptr2 

loader 1422 1456 1456 1458 1459 1464 1465 
ptrmp 

srm_types 823 875 
ptrrareyoualive 

srm_types 825 877 
ptrrcat 

srm_types 827 879 
ptrrcatpass 

5rm_types 829 881 
ptr rchangep ro tec t 

srra_types 831 883 
ptr rchangevolume 

srni_types 833 885 

ptrrclose 

srm_types 835 887 
ptrrcopy 

srm_types 837 889 
ptrrcreatef ile 

srrn_types 839 891 

ptrrcreatelink 

srm_types 841 893 
ptrrexchange 

srm types 843 895 
ptrrfileinfo 

srm_types 845 897 
ptrrgangclean 

srm_types 847 899 

ptrrhead 

srm_types 872 923 

ptrrinit 

srm_types 849 901 

ptrrlock 

srra_types 851 903 
ptrropen 

srra_type5 853 905 
ptrrpos 

srm_types 855 907 
ptrrpurge 

srm_types 857 909 
ptrrread 

srm_types 859 911 
ptrrsetdate 

srm_types 861 913 
ptrrseteof 

srm_types 863 915 
ptr runlock 

srm_types 865 917 
ptrrvol ~ 

srm_types 867 919 
ptrrurite 

srm_types 869 921 
ptrsareyoualive 

srm_types 824 876 
ptrscat 

srm_types 826 878 
ptrscatpass 

srra_types 828 880 
ptrschangeprotect 

srm_types 830 882 
p t r schangevo lume 

srm_types 832 884 
ptrsclose 

srm_types 834 886 
ptrscopy 
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srm_types 848 900 
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srm_types 850 902 
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5rm_types 854 906 
ptrspurge 
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237 


536 
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795 
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893 
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920 








miui 


331 










qintdata 












qminit 
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tapebkup 233 241 1002 
quick 

librarian 1031 1061 1099 
quit 

librarian 260 1541 3495 
quittype 

librarian 295 1538 1540 1552 
qverif y 

tapebkup 232 385 1016 1057 
qwritef ilemark 

tapebkup 235 295 1012 



librarian 2428 2480 2549 2550 2551 2552 2551 2562 2563 2563 2564 2572 

lollb 2391 2395 2396 2397 2398 2399 2400 2401 2402 2403 2404 2405 2406 2407 2408 2409 

amigo 107 321 

f 9885 121 183 

£9885 122 ig3 197 



r3 

r7 

ram 

ctable 168 428 601 
ram address 

s ™a m 53 67 69 69 75 77 77 84 100 114 116 116 122 124 124 131 
random_access 

packets 158 

srmam 62 109 
range type 

librarian 302 1276 1277 1278 1324 1325 1326 1543 1544 1545 1546 
rareyoualive 

srm_types 8 77 

srm_drv 1538 
rate 

iolib 2363 2389 2422 2433 
rb 

librarian 438 499 503 503 503 
rba 

cs80 215 
rbs 

cs80 100 
rcat 

srm types 879 

srmdam 555 
rcatpass 

srm types 881 

srm3am 492 
rchangeprotect 

srm_types 88 3 
rchangevolume 

srm_types 885 
rclose 

srm_types 887 
rcopy 

srm_types 889 
rcount 

librarian 147 159 176 176 184 184 185 185 204 205 206 206 206 207 207 
rep 

ctable 832 910 
rcreatefile 

srm types 891 
rcreatellnk 

srm_types 893 
read 

kbd 337 

lifdam 288 351 578 620 857 

convert 65 72 

librarian 273 1532 3462 

midecs 47 

tapebkup 779 1125 

kernel 694 698 
read8041byte 

kbd 133 242 247 

clock 75 76 77 80 81 
read8041record 

kbd 167 244 267 306 
readblock 

f 9885 51 57 169 
readblocks 

loader 1118 1145 1154 1263 1288 1325 1329 1538 1543 

librarian 133 1379 1382 1473 2328 2359 2841 2887 2937 
readbuffer 

iolib 1102 1424 1498 
readbuffer string 

iolib" 1106 1478 
readbytes 

global: 66 

mini 425 438 505 

bootdam 755 

loader 1120 

™isc 267 443 470 474 504 545 588 592 607 623 645 653 

keys 170 

crt 350 354 

ascii 50 293 303 311 

lifdam 244 423 

srmam 191 

swvol 24 

librarian 135 2312 2316 2317 2317 2322 2323 2323 2323 2324 2326 2328 2329 2330 2331 2351 2359 2360 

,„„.. 2J61 2361 2362 2363 2363 2363 2364 2365 2367 2368 2370 2371 2372 2374 

19885 167 277 

amigo 592 619 

cs80 1000 1034 1101 1144 1159 1234 
readchar 

iolib 135 179 1960 
readchars 

ascii 175 303 311 
readdir 

lifdam 402 676 689 980 1012 1029 1056 
readint 

librarian 280 283 1506 1509 3250 3266 3272 3286 
readln 

convert 79 

swvol 11 14 

librarian 284 2995 3143 3202 3279 3304 3320 

qminit 906 

xminit 1340 
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hminit 163 
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heapt 130 
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cs8 " 57 3 
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librarian 2808 
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amigo 141 
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£9"885 105 

amigo 150 
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packets 279 
srm drv 1758 
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tapebkup 456 
cs80 183 

recoverable data_overf low 
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loader 857 932 1460 1464 

librarian 172 1632 1682 1726 1727 1729 1905 1911 2008 2012 2463 2556 2744 
siz 

librarian 412 435 562 640 647 680 740 
size 

loader 1084 1089 1111 1113 1113 1113 1114 1118 1120 1253 1265 1267 1282 1291 1292 1567 1570 

librarian 121 123 133 135 435 474 475 477 478 479 480 481 482 507 511 514 526 527 
562 563 563 554 565 571 577 589 688 689 690 712 717 725 730 733 791 848 
882 894 900 906 912 930 935 943 949 953 958 964 1046 1054 1075 1100 1132 1173 
1181 1183 1184 1194 1208 1212 2810 2812 

heapt 98 102 103 103 104 108 111 112 114 215 229 231 234 235 242 243 243 252 
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sizechk 

lif dam 
sizeof 

loader 

in it load 

ldr 

lifdam 

srm drv 

srmciam 

librarian 



hminit 

qminit 

miui 

tapebkup 

heapt 

ami go 

cs80 
size f rom_are_you_alive 

packets 8 9 

size_f rom_cat 

packets 9 

size_f rom__ca tp ro tec t 

packets 91 

size_f rom_changeprotect 

packets 9 2 

size_f rom_change_vol_label 



1146 


1235 


1320 


1392 


1433 


1441 


1458 


1464 


1523 


1530 


1602 


1604 














1675 




































949 


951 


































244 


336 


509 


1124 






























1373 


1418 


































100 


1398 


































166 


168 


172 


195 


322 


1255 


1360 


1374 


1584 


1589 


1596 


1600 


1611 


1616 


1618 


1626 


1627 


1632 


1664 


1675 


1681 


1681 


1682 


1696 


1707 


1721 


1722 


1726 


1727 


1729 


1778 


1819 


1829 


1905 


1911 


1921 


1922 


1958 


1959 


1977 


2003 


2005 


2012 


2021 


2028 


2031 


2104 


2114 


2251 


2256 


2286 


2388 


2409 


2452 


2455 


2463 


2475 


2480 


2549 


2597 


2626 


2627 


2682 


2717 


2722 


2732 


2739 


2746 


2752 


2759 


2784 


2822 


2829 


2848 


2851 


2864 


2865 


2870 


2871 


2876 


2883 


2888 


2890 


2900 


2900 


2964 


3031 


3143 


3143 


3226 


3290 




































168 




































557 


584 


609 


636 


668 


671 


714 


718 


755 


780 


















482 


486 


































56 


83 


116 


139 


169 


213 


























126 




































235 


292 


312 


335 


414 




























314 


333 


350 


367 


404 


432 


454 


470 


488 


506 


545 

















93 



packets 
size_f rom__close 

packets 
size f rom_copy 

packets 
size_f rom__create 

packets 
size_£ rom_c rea te 1 ink 

packets 
size_f rom_flock 

packets 
size_f rora_f unlock 

packets 
size_f rom_gang_cleanup 

packets 10 

siz:e_f rorn_gang_e r ro r 

packets 101 

srm_drv 1428 

size_f rom_info 

packets 
size_f rom_init_vol 

packets 
size_f rom_open 

packets 
size_f rom_position 

packets 
s ize_ f r om_pu r ge 

packets 
size_f rom_read 

packets 

srm__drv 
size__f rom_set_date 

packets 
size_£ rom_se t_eo f 

packets 
size_f rom_volstatU5 

packets 
size_f rom_write 

packets 
size f rorn_xchg_data 

packets 
size_f ro m_xchg_open 

packets 
size_to_are_you_alive 



94 
95 



96 

97 



98 
99 



102 
103 



104 
105 



106 



107 
1438 



109 
108 



110 



111 



112 



113 



1431 1438 



packets 


57 


srm_drv 


1529 


size_to__cat 




packets 


58 


srm_drv 


1555 


size_to_catprotect 




packets 


59 


srm drv 


1594 


size_to_changeprotect 


packets 


60 


srm_drv 


1633 


5 ize_ to_change_vo 1_ 


label 


packets 


62 


srm_drv 


1661 


size to close 




packets 


63 


srm_drv 


1682 


size to copy 




packets 


64 


srm_drv 


1707 


size to^create 




packets 


65 


srrn_drv 


1745 


size_to__c rea te link 




packets 


57 


srm drv 


1794 


size_to_Tlock 




packets 


68 


srm drv 


1884 


size_to_Tunlock 




packets 


69 


srm_drv 


2046 


5 ize_ to_gang__c leanup 


packets 


70 


srm___drv 


1855 


size_to__info 




packets 


71 


srm drv 


1846 



1-98 



Pascal Cross-reference RELEBSE2 . .TEXT 13-Jan-83 Page 97 

size_to_init_vol 

packets 72 
size_to_open 

packets 73 

srm_drv 1911 
size_to_position 

packets 74 

srm_drv 194 4 
size_to_purge 

packets 75 

srm_drv 1972 
size_to_read 

packets 76 

srm_drv 2000 
size_to_set_date 

packets 78 
size_to_set_eof 

packets 77 

srm_drv 2025 
size_to_volstatus 

packets 79 

srm_drv 2064 
size_to_write 

packets 80 

srm_drv 2086 
size_to_xchg_data 

packets 81 
size_to_xchg_open 

packets 82 

srm_drv 1827 
skip 

sradam 1483 1505 1510 1528 1531 
skipfor 

iolib 688 937 

si 

lifdam 134 139 140 144 144 144 144 148 151 151 162 167 171 176 177 180 180 180 

181 
slink 

ctable 311 317 324 327 828 

slist 

librarian 1799 1812 1837 1854 1864 1869 2080 2097 2121 2141 2152 2162 2191 
slock 

srm_types 902 

srm_drv 1881 
slop 

loader 1138 1147 1148 1156 1158 
slouterm 

kbd 42 176 

sip 

loader 908 

librarian 1812 2097 2191 
smallest 

heapt 53 57 58 120 121 141 142 228 291 291 308 308 

smallsize 

heapt 68 102 112 114 120 141 

smh 

srra_drv 1472 1477 
so 

CS80 462 468 469 470 470 

sof tf ield 

crt 68 207 218 438 

sopen 

srm_types 904 

srm_drv 1906 

sortdesc" 

loader 907 1035 1041 

librarian 1819 2104 
sortlen 

librarian 1802 1831 1837 1837 1844 1851 1860 1860 1879 2083 2116 2121 2121 2128 2138 2148 2148 2177 
sortlist 

loader 877 1041 
sortlistptr 

loader 877 908 

librarian 1799 2080 
source 

librarian 543 790 839 937 
sourceaddr 

packets 301 
sourceblock 

loader 95 9 

librarian 374 1474 2059 
sourcesize 

loader 960 

librarian 373 375 1470 2060 
source_f ile_id 

packets 474 

srm_drv 1711 
source_is a_tape 

tape&kup 958 970 989 
source_lun 

tapebkup 956 964 965 966 967 977 
source_of fset 

packets 475 

srm^drv 1712 

source_size 

tapebkup 959 971 990 
source_uep 

tapebkup 29 175 203 204 213 214 215 237 536 559 560 565 566 570 573 573 603 604 

682 689 692 700 702 703 707 711 715 716 717 957 965 979 1009 
sp 

loader 1422 1441 1442 1442 1442 1442 1443 

convert 46 64 65 66 67 

librarian 551 593 1737 1777 1778 1778 1780 1785 1785 1785 
space 

lifdam 657 722 725 727 727 728 762 820 848 848 848 873 874 879 885 910 912 913 

919 920 

librarian 463 497 500 724 991 1018 1048 1083 1090 1115 
space rec 

lifdam 70 657 662 697 910 

Spanish 

keys 39 353 

spare 

kbd 74 162 216 

spareblock 
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qminit 


773 


778 












sparetrack 
















xminit 


1268 


1277 












spare block 
















qminit 


518 


761 


782 


1063 








sparingmode 
















qminit 


518 


761 


774 


779 


779 






spa ring^ required 
















qminit 


964 


1044 


1046 


1051 


1075 


1077 


1083 


sparing^tries 
















qminit 


965 


1050 


1051 


1053 


1053 






spdcontrol 
















xminit 


1213 


1455 


1459 


1534 


1552 


1571 


1587 1628 


spdword 
















xminit 


1166 


1177 












spd_message 
















kernel 


208 














lolib 


1961 














spe_message 
















kernel 


207 














iolib 


1959 














splen 
















initload 


1666 


1667 


1769 


1769 








spra 
















lifdam 


52 


280 


494 


502 








spoil 
















iolib 


1892 


1953 


1963 










spos 
















srm types 


906 














srm drv 


1941 














spptr 
















xminit 


1240 


1606 


1618 


1622 


1637 


1637 


1638 


SPt 
















lifdam 


53 


280 


494 


502 








sptable 
















xminit 


1238 














sptr 
















librarian 


1800 


1819 


1820 


2091 


2104 


2105 




spurge 
















srm_types 


908 














srm drv 


1967 














sr 
















C580 


440 


449 


450 


451 


452 


453 


454 454 


sref id 
















srm_drv 


1035 


1698 


1711 










srcof f 
















srm_drv 


1036 


1699 


1712 










sread 
















srm_types 


910 














srm_drv 


1997 














srec 
















lifdam 


657 


697 


699 


700 


703 


704 


705 705 709 711 


sm 
















ctable 


166 


359 


462 


769 


1016 






srm drv 


27 














srmdam 


37 














srmam 


35 














srream 
















srmam 


39 


177 












srmammodule 
















srmam 


27 














srmdam 
















srmdam 


43 


1579 












srmdaminit 
















srmdam 


41 


1572 


1787 










smtdammodule 
















srmdam 


28 


1785 












srmdate 
















srmdam 


331 


337 












srmnode 
















bootdam 


546 


778 


791 


792 


800 






ctable 


1499 














srm drv 


1393 


1458 












srm3am 


151 














srmsyspref ix 
















ctable 


955 


1499 


1500 










srmtype 
















bootdam 


796 


800 












sn*_card 
















kernel 


227 














dc_drv 


617 














srm_catalog 
















srmdam 


535 


1654 












srm_cat_pass 
















srmdam 


472 


1660 












srm change name 
















srmdam 


1132 


1720 












5rm_clearunit 
















srmam 


144 


206 












srra_close_f ile 
















srmdam 


1284 


1718 












s rm_c lose_fileid 
















~ srmdam 


306 


327 


1076 


1239 


1240 


1307 


1321 1336 1344 1382 


srm close pathid 
















srmdam 


322 
1730 


794 


817 


823 


866 


1167 


1201 1202 1260 1337 


srm_create_dir 
















~ srmdam 


957 


1709 












srm create file 
















srmdam 


984 


1414 


1697 










srm dav 
















ctable 


964 


1017 


1105 


1177 


1326 






srm default dav 
















ctable 


107 


1105 












srm_dup_link 
















~~ srmdam 


1172 


1722 












srm_get_dir_in£o 
















~ srmdam 


356 


426 


1646 










s rm_ge t_vo l_da te 
















~ srmdam 


1393 


1747 












srm_get_vol_name 
















~ srmdam 


421 


868 


1745 










srm_init 
















~ srm drv 


998 


1211 













712 713 



1383 1388 1651 1562 1672 1684 1700 1710 
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srmdam 1574 
srm_inited 

srm_drv 1125 1213 1218 
srm_lock file 

srn>3am 142? 1735 
srm_open_dir 

srmdam 618 855 1147 1186 1190 1644 1657 1667 1679 1694 1706 1726 

srm open file 

srmBaro 927 1682 

srm_purge_f ile 

srmdam 1225 1310 1327 1339 1349 1385 1421 1716 1739 

s rm_pu rge_name 

srmdam 1207 1729 
srm_read 

srntam 50 195 

srm_set pass 

srmdam 431 1670 

srm_set_unit_pref ix 

srmdam 848 1741 

srm_stretch 

srmdam 1265 1743 
srm_strip 

srmdam 1474 1752 
srm_unlock_£ile 

srmdam 1451 1737 
srm_urite 

srmam 9 7 202 

srps 

cs80 496 503 504 505 506 506 

srq_line 

kernel 282 
iolib 1927 
srt 

srm_drv 1474 1480 
ss 

hminit 431 

amigo 114 478 529 668 889 

ss9895_map 

amigo 194 210 

ssetdate 

srm_types 912 
sseteof 

srm_types 914 
srm_drv 2022 
ssize 

lit dam 72 699 724 727 728 735 737 754 762 764 776 852 852 872 873 879 885 885 

885 886 886 920 
ssm 

cs80 478 485 486 487 488 488 

sstart 

lifdam 71 700 755 777 794 796 807 820 839 851 851 866 877 919 

st 

initload 1726 1729 1730 
misc 365 

standardam 

misc 515 562 691 

standard_tc 

dischpib 207 280 303 348 436 441 
star 

amigo 104 

start 

loader 1089 1567 1570 

tail 34 60 55 61 61 68 85 86 

librarian 780 794 802 806 818 
startaddr 

loader 1017 1443 1447 
initload 1718 1719 
ldr 909 911 935 

startblock 

librarian 2902 2927 2927 2937 2939 2939 
star tease 

librarian 295 1293 1295 
startdefs 

loader 1076 1428 1471 1479 1490 1491 1641 
ldr 1052 

startglobal 

loader 1064 1405 1633 
ldr 1044 

librarian 1752 1791 2054 3043 3272 3411 
startgvr 

librarian 53 353 360 1749 1781 1785 1989 1991 2050 
startgvrmod 

librarian 54 1749 1784 1992 
startindx 

srmdam 195 198 205 206 206 
startof fset 

srmam 51 63 98 110 

startread 

globals 6 7 

mini 425 438 505 526 

keys 171 203 

crt 349 361 

£9885 167 277 298 

amigo 564 592 619 

CS80 1101 1144 1210 1226 1234 

startreloc 

loader 1063 1405 1516 1534 1535 1563 1599 1639 
ldr 1005 1060 

librarian 1752 1790 2052 3043 3266 3410 
starttext 

librarian 2239 2613 2696 
starturite 

globals 6 7 

mini 427 443 505 526 

keys 165 

crt 370 416 

£9886 172 223 277 298 

amigo 564 592 
csSO 1101 1172 1210 1226 

start add 

miui 405 439 

start alternate 

packets 234 

srmdam 465 502 561 705 798 951 978 1049 1054 1063 1121 1164 1165 1197 1198 1219 1251 1322 

1-101 



87 

427 

48 


252 
56 


260 
































96 


99 


































90 

430 

51 


255 
59 


































185 
780 


216 
793 


222 
795 


229 
799 


234 
802 


244 
806 


253 
818 


255 






















649 


661 


662 


663 


664 


665 


667 


668 


669 


670 


786 


790 


790 


791 










418 
688 
861 
945 
1062 
1139 


482 
688 
862 
952 
1062 
1155 


482 
689 
862 
952 
1063 
1156 


487 
689 
864 
960 
1063 
1158 


571 
690 
864 
962 
1079 
1173 


571 
690 
866 
962 
1079 
1174 


572 
691 
866 
973 
1091 
1185 


572 
691 
876 
999 
1091 
1185 


578 

700 

876 

1001 

1092 

1196 


578 

701 

883 

1015 

1103 

1208 


584 

727 

883 

1020 

1103 

1208 


584 

756 

885 

1022 

1107 

1209 


651 

756 

901 

1048 

1107 

1209 


651 

791 

907 

1048 

1117 

1212 


652 

791 

924 

1053 

1117 

1213 


652 

860 

940 

1053 

1137 


653 

860 

940 

1054 

1137 


653 

861 

945 

1054 

1139 



Pascal Cross-reference RELERSE2 . .TEXT 13-Jan-83 Page 100 

1347 1359 1375 1379 
start name sets 

packets 379 402 425 505 523 540 654 697 

srm_drv 1553 1591 1629 1630 1740 1742 1790 1791 1908 1969 
startup ro t ec t_code_se ts 

packets " 615 
start_root 

packets 233 

srmdam 710 714 1087 1093 1098 1107 1110 1126 1246 1346 

start tfr in 

3c drv 141 481 

start tTr out 

3c_drv 142 486 

Stat 

kbd 318 323 

Stat8041 

kbd 

keys 

bat 
statbyte 

kbd 
statchar 

kbd 

keys 

bat 
state 

srmdam 

librarian 
states 

librarian 
statetimes 

librarian 



state type 

srmdam 177 185 
statrec 

xminit 1153 1229 1235 
status 

packets 325 

srm drv 1130 1133 1134 1456 1458 1538 

srm3am 316 374 398 

xminit 1154 1229 1258 1422 1440 1440 1442 1442 1447 1450 1460 1460 1461 1541 1555 1555 1556 1564 
1564 1569 1589 1589 1590 1630 1630 1631 

tapebkup 403 603 

£9885 111 129 131 131 134 196 201 201 204 

amigo 148 304 476 527 659 799 

cs80 279 395 407 583 

5tatus_2_error 

amigo 78 884 

status bytes 

hminit 252 266 267 275 420 428 

tapebkup 394 403 410 477 480 486 496 590 603 610 665 669 672 679 682 689 

anugo 148 304 312 312 313 317 321 444 476 478 482 484 509 527 529 532 534 654 

659 660 790 799 801 

CS 80 279 395 404 404 405 570 583 591 606 683 686 696 

status_cmd_buf 

amigo 306 310 

status mask 

CS80 284 476 487 

status mask type 

cs80 ~ 191 201 284 476 482 726 
5tatu5_type 

hminit 

tapebkup 

amigo 95 148 157 304 444 509 

cs80 
stdblk 

heapt 54 55 57 229 

stdlists 

heapt 5 7 

s temp 

lifdam 163 183 184 
stio 

£9885 88 

stil 

£9885 88 

stimulus 

ctabie 855 

stop 

kbd 67 154 208 

stopact ion 

keys 119 330 

s top line 

miui 



252 










394 


590 








95 


148 


157 


304 


444 


195 


279 


300 


395 


570 



221 257 258 267 
tapebkup 902 938 939 948 
storage 



stp 



ctabie 854 889 

loader 902 1187 1187 1265 1289 1290 1291 1309 1309 1348 1348 

librarian 477 

convert 43 44 46 

srmdam 206 

librarian 2983 

miui 67 

iolib 670 



674 676 685 804 813 813 817 818 819 820 821 822 834 844 844 848 849 
850 851 860 869 870 906 910 1108 1112 1480 1484 1489 1498 1500 1508 1511 1517 1519 



str9 

loader 1585 1587 
strdelete 

tail 58 59 

streaming 

librarian 92 269 
stretchf 

lifdam 995 1112 

stretchi t 

globals 136 

misc 428 479 

asc li 8 .1 
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lifdam 1112 

srmdam 1620 1743 
strin 

keys 126 127 
string 

globals 34 35 36 41 42 43 44 

bootdam 538 540 

loader 819 820 854 945 

initload 1667 1669 1726 1758 

misc 198 207 209 244 298 365 

ldr 847 946 

keys 126 

crt 115 320 

tail 34 

lifdam 90 109 131 160 

convert 43 

srmdam 136 178 189 1476 

swvol 7 

librarian 40 314 413 422 544 546 548 680 681 762 763 774 1040 2972 3189 3189 3190 3348 
3456 

miui 56 57 102 

kernel 265 511 532 

iolib 670 674 701 785 804 834 1108 1480 
string2 

bootdam 538 546 547 778 782 795 

initload 1757 
string255 

globals 35 37 

bootdam 552 588 648 

ctable 219 256 286 287 368 

lifdam 98 109 1040 

srmdam 96 108 

midecs 3 7 41 

qminit 795 839 843 898 900 

miui 23 123 130 287 
string255ptr 

globals 37 105 

srmdam 169 
String27 

miui 102 103 
string80 

globals 34 

initload 1726 

ldr 986 

librarian 41 43 63 72 281 768 771 2989 3301 3315 

xminit 1224 

tapebkup 231 328 331 550 773 787 796 839 845 
stringsp 

initload 1667 1668 
stringsysp 

initload 1734 1735 
stripname 

globals 137 

misc 430 

lifdam 1143 

srmdam 1752 
strlen 

bootdam 660 660 662 696 697 699 700 790 

loader 1270 1442 1442 1455 1455 1524 1525 1615 

initload 1729 1730 1730 1761 

misc 248 

ldr 929 

crt 339 

ctable 272 

lifdam 103 103 104 139 147 167 176 176 216 216 378 469 1051 1051 1142 

convert 66 73 74 

srmdam 112 113 121 142 199 209 220 237 687 858 968 1234 1499 1503 1623 1625 1627 1636 
1765 

srmam 163 169 

librarian 155 209 212 287 324 329 349 457 497 500 596 597 840 841 991 1249 1361 1413 
1660 1661 1785 1785 1865 1865 1984 1984 2022 2023 2133 2133 2155 2155 2170 2170 2571 2598 
2599 2635 2646 2685 2689 2690 2798 2823 2823 2965 2975 2997 3069 3150 3204 3227 3305 3309 
3309 3310 3321 

qminit 907 911 

miui 137 247 299 305 

tapebkup 859 928 

kernel 940 

iolib 869 1511 1517 
strmax 

initload 1744 

iolib 813 818 844 849 1484 
strmove 

tail 51 

srmdam 104 113 1563 1565 
strng 

srmdam 96 103 104 108 112 113 113 
strpos 

tail 56 59 

srmdam 1155 1156 

miui 137 

tapebkup 859 
strptr 

bootdam 552 692 

ldr 959 969 970 

convert 44 45 

librarian 1808 1864 1865 1865 1867 2089 2154 2155 2155 2157 2158 
strread 

librarian 285 

qminit 910 

miui 304 

kernel 912 

iolib 754 
strrtrim 

tail 52 
strsize 

convert 42 43 60 
st rtoany 

lifdam 109 1116 
strtolifname 

lifdam 160 617 917 1057 1145 
strtopac 

lifdam 98 172 178 492 1121 
strtopaocl6 

srmdam 108 125 126 163 278 459 464 497 557 950 975 977 1011 1157 1163 1195 1196 1218 



1-103 



Pascal Cross-reference 


RELEPISE2.0.TEXT 






is-; 


ran-83 Page 




1254 


1313 














strwrite 


















bootdam 


790 
















misc 


357 
















ldr 


890 
















srmdam 


161 


392 














librarian 


212 


457 














qminit 


854 
















miui 


79 


80 


82 


83 


86 


87 


512 




tapebkup 


341 
















iolib 


792 
















5tr count 


















iolib 


1109 


1481 


1484 


1489 


1490 


1496 


1500 




stsntsk 


















cs80 


482 


487 














stupid 


















kbd 


42 


175 














sob 

librarian 


152 


154 


1565 


1569 


1575 


1578 


1588 


1606 1630 


subit 


















loader 


865 
















librarian 


187 


189 


1588 


1606 


1657 


1662 


2465 




SUCC 


















lifdam 


524 
















success 


















packets 


636 
















srmdam 


1434 
















suffix 


















lifdam 


142 


168 














suffixtable 


















globals 


263 
















raise 


672 


676 


685 


693 


697 








ascii 


345 
















lifdam 


147 


148 


152 


176 


180 








suffix type 


















globals 


36 


169 














suftableptrtype 


















globals 


174 


263 














suf tabletype 


















globals 


169 


174 














sunlock 


















srm_types 


916 
















srm_drv 


2043 
















suppress - release 
cs8ff 


timeout 
221 
















sup dev type 


















miui 


15 


20 


314 












surface ert 


















qminit 


501 
















surface^mode 


















amigo 


139 


183 


185 


291 


349 


371 


736 




suu 


















tapebkup 


52 


54 


55 


56 


56 








suv_cmd_pair 


















qminit 


532 


534 


535 


580 


606 


632 


664 


704 749 


tapebkup 


43 


45 


46 


79 


109 


137 


164 




sva 


















tapebkup 


106 


114 


115 












cs80 


528 


539 


540 












swa_type 


















tapebkup 


106 


192 


195 












csBO 


83 


112 


205 


207 


211 


212 


214 


215 528 


swdate 


















lifdam 


308 


311 


323 


328 










sv/ol 


















srm types 


918 
















smTdrv 


2061 
















svol bytes 


















ctable 


387 


389 


447 


482 


483 


495 


496 


506 519 


su 


















loader 


892 


1573 














librarian 


2443 


2506 


2564 


2577 


2638 


2670 


2740 


2741 2742 


Swedish 


















keys 


39 


352 














suitchvols 


















swuol 


3 
















sword 


















loader 


857 


932 














librarian 


2510 


2558 


2631 


2737 










surite 


















srm types 


920 
















srm_drv 


2083 
















symbol 


















loader 


854 


855 














ctable 


219 


256 


271 












symbolptr 


















loader 


855 


901 


1038 












librarian 


191 


192 


1249 


1265 


1850 








symboltable 


















loader 


851 


352 














symptrl 


















loader 


1249 


1269 


1270 


1272 


1273 








symptr2 

loader 


1250 


1266 


1273 


1274 


1274 








sym table 


















loader 


1213 
















symtableptr 


















loader 


852 


902 


1172 


1213 


1218 








librarian 


1258 
















sync bit not received_in_ 
amigo ~~ 7 5 


time 
' 807 














syndrome 


















amigo 


149 


328 


833 












syndrome bytes 


















amigo 


149 


328 


335 


335 


791 


831 


833 




syndrome cmd_buf 


















amigo 


330 


334 














syndrome_type 


















amigo 


117 


149 


328 


791 










syp 

loader 


901 


1270 


1442 


1442 


1455 


1455 


1524 


1525 


ldr 


970 


1070 














ctable 


271 


272 














librarian 


324 


325 


349 


1361 


1413 


1414 


1440 


1660 1661 



1662 



777 



522 



540 



541 542 



543 



544 



1780 1785 1785 1864 1865 1855 1870 1978 1980 
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1984 1984 2022 2023 2133 2133 2141 2141 2155 2155 2154 2164 2169 2170 2170 2413 2598 2599 
2685 2685 2689 2690 2823 2823 2868 2964 3042 3068 3069 3069 3305 3310 3408 3409 
sysclock 

clock 40 111 115 121 
syscom 

kbd 106 332 332 333 337 

keys 446 

crt 116 424 

mminit 108 

printer 158 172 
sysdate 

clock 41 87 

lifdam 117 

librarian 3566 

miui 61 
sysdefs 

loader 1071 1127 1133 1450 1451 1480 1481 1600 1600 1655 

ldr 932 1006 1006 

ctable 264 
sysdef table 

loader 1101 1655 
sysescapecode 

globals 239 

misc 232 239 
sysf ile 

globals 52 

bootdam 671 

misc 697 698 

librarian 3209 
sysf lag 

globals 283 

kbd 335 

crt 169 184 442 

kernel 901 
sysf lag2 

globals 289 

kernel 902 
sysglobals 

globals 6 

mini 304 

bootdam 535 

loader 809 

initload 1664 

isr 34 

misc 153 

initunits 709 

ldr 844 

init 1088 

kbd 34 

keys 33 

crt 33 

bat 33 

clock 33 

tail 32 

ctable 35 148 691 807 952 

ascii 4 342 

lifdam 26 

convert 27 

srm drv 30 

srmdam 33 

srmam 32 

swvol 4 

librarian 27 

midecs 13 

mminit 61 

hminit 137 198 

qminit 466 792 

xminit 1148 1187 

miui 11 

tapebkup 14 225 761 

heapt 24 

lockmod 4 

kernel 134 680 

h drv 122 171 

dT_dru 122 172 

dma drv 121 

g d~v 124 174 

dc_drv 124 162 524 

rs drv 125 172 

ioTib 693 

printer 35 

f9885 37 

dischpib 31 189 

amigo 37 425 

cs80 34 63 554 885 
sysioresult 

globals 248 
syslibrary 

globals 267 

ldr 1018 

init 1150 
sysname 

globals 281 

initload 1741 1749 

tail 51 
sysp 

initload 1735 1741 
syspref ix 

initload 1668 1763 
sysstart 

initload 1669 1739 1744 1744 1750 1752 1764 1770 1789 
systemdate 

srmdam 332 339 
systemid 

loader 944 1580 

librarian 345 345 346 2046 
systemname 

tail 34 51 51 52 52 53 56 53 59 59 61 62 
systemtime 

srmdam 333 345 
system card 

kernel 222 951 
system_cont roller 

iolib 297 370 376 379 1683 1816 1823 
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system_unit 

ctable 
systime 

clock 

lifdam 

librarian 

miui 
systmtype 

srmdam 
sysunit 

globals 

loader 

in it load 

initunits 

ldr 

ctable 

swvol 
sysunit_list 

ctable 
sysunit_list_length 

ctable 
sysunit_list_type 

ctable 
sysunit_ok 

ctable 
syvid 

globals 

ldr 

swvol 
s_address 

tapebkup 
s_setadd 

tapebkup 
s_volunit 

tapebkup 
t 

clock 

ctable 

convert 

heapt 

cs80 
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tl 
12 

ta 

tab 



keys 

clock 

cs80 

keys 

clock 

cs80 

keys 

cs80 



misc 
keys 
table 

tail 
tablepc 

librarian 
tableptr 

loader 
tagbase 

printer 
tag_base 

dischpib 
tail 

tail 
talk 

iolib 
talker 

iolib 
talk__constant 

kernel 

iolib 
tapebkup 

tapebkup 
tapebuf 

tapebkup 

cs80 
tapebuf block 

csSo 
tapebuf ptr 

cs8"0 
tapebuf_state 

tapebkup 

CS80 
tapebuf 5tate_type 

cs8"0 
tapebuf type 

csSO 
tapebuf uep 

csJO 
targe t_device_lette 

ctable 
target_f ound 

ctable 
tbit 

cs80 
tc 

dischpib 
tct_mes5age 

kernel 

iolib 
td 

librarian 
tdate 

bootdam 

lifdam 
tdp 

loader 

librarian 
te 



41 

42 
117 
230 

62 

67 

265 

1605 

1673 

834 

890 

624 

13 

119 

114 

116 

212 

266 

890 

13 

192 

191 

190 

68 

242 

563 

35 

85 

282 

73 
137 
499 

74 
137 
500 

75 

211 

164 
293 

34 

305 

1218 

60 

211 

30 

1664 

1900 

214 
422 



761 
31 

44 

41 

1004 

42 

39 

38 

43 

1065 

1070 

444 

258 

203 
1769 

2266 

556 
41 

900 
1365 



212 622 624 626 1522 1523 
118 

1058 1342 
1609 1610 

1537 

1531 
117 1531 
120 
622 627 661 666 1523 1525 1531 

890 891 892 1019 

206 207 

205 

203 204 



70 

428 

580 

36 

87 

438 

74 
139 
504 

81 
140 
505 



563 
54 



1528 



119 
428 

40 

87 

451 

83 
142 



121 
434 



86 
142 



124 
434 



72 
92 



89 
143 



125 
440 



76 
94 



92 
143 



143 



126 
447 



79 
94 



184 
453 



98 



189 
462 



462 
104 



471 
117 



483 
119 



560 550 



143 143 



50 62 62 75 
1231 1297 1308 

1236 1238 1243 
245 

266 325 386 

1840 

2004 2007 

499 1694 1764 1843 

554 885 1324 

1000 1011 1021 1023 1033 1034 

51 52 1000 1011 1034 1150 1166 1179 1199 

1094 

53 627 1006 1009 1012 1023 1027 1031 1035 1083 1178 1198 

42 

41 

626 1000 1011 1021 1023 1032 1034 1083 1093 

1077 1084 

1078 1084 1085 1089 
451 

265 316 323 



64 113 529 



1953 1956 1960 1966 1966 1966 1996 2004 2026 2030 2241 2269 2594 2698 2835 
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mini 

tea 

ctable 
tea_amigo mv 

ctabTe 
tea_amigo sv 

ctabTe 
tea_boot 

ctable 
tea_c r t 

ctable 
tea_cs80 disc 

ctaBle 
tea_cs8 tape 

ctaBle 
tea_hp8290x 

ctable 
tea_hp9885 

ctable 
tea_hp9895 

ctable 
tea_kbd 

ctable 
tea_local printer 

ctabTe 
tea_memo r y_vo lume_ 

ctable 
tea_mini 

ctable 
tea_nounit 

ctable 
tea_srm 

ctable 
temp 

lifdam 

librarian 

heapt 

kernel 

h_drv 
dT drv 
g_3rv 
dc drv/ 



rs drv 
tempcapBits 

srradam 
tempcounter 

srmdam 
tempd 

lifdam 
tempdirptr 

librarian 
tempec 

bootdam 
tempentry 

lifdam 
tempf ibspace 

srmdam 
temp index 

lifdam 
tempioresult 

srmdam 
tempname 

lifdam 
temporary 

lifdam 
tempptr 

xminit 
temprec 

srmdam 
tempstr 

srmdam 
tempstring 

librarian 
temp_dav 

ctable 
temp_f ile_pass 

srmdam 
temp_letter 

ctable 
temp_unitable 

ctable 
term 

iolib 
term_char 

srm_drv 

kernel 

dc drv 

ioTib 

dischpib 
term_count 

srm_drv 

kernel 

dc drv 

ioTib 

dischpib 
testa rea 

qminit 
testbyte 

xminit 
testpasses 

hminit 
test_and_ toggle 

dischpib 

ami go 

cs80 
test_pass 

hminit 
test_pattern 

hminit 
test_pattern_type 



332 
358 

284 

234 

235 

225 

227 

236 

237 

233 

231 

232 

228 

229 
lam 
224 

230 

420 

226 

719 

1238 

214 

310 
728 
126 
127 
129 
128 
184 
304 
130 

445 

74 

346 

1942 

618 

666 

1398 

998 
135 
614 
611 

1240 

888 

136 

40 

999 

65 

1069 
246 
672 

1346 
470 
390 

1292 
459 

1347 
471 
375 

1293 
498 

700 

1291 

284 

482 

701 

1253 

296 

289 



338 
359 

422 

509 

532 

451 

432 

554 

567 

500 

475 



466 
426 
444 
589 
457 



221 
311 
730 
127 
128 
130 
129 
193 
312 
131 



913 
159 



377 

499 

712 

1299 

287 

485 

704 

1256 

307 

309 



342 
360 

428 

1250 

1240 

1162 
1268 
1290 
1173 
1196 



343 
361 



487 1190 
438 1163 



1181 
1160 
1167 
633 
1178 



746 748 
1308 1309 



222 
313 
733 
128 
129 
131 
130 
197 
319 
132 



460 
1014 

351 
1977 

622 

676 
1400 
1001 

160 

617 

632 
1531 1532 



461 

1015 

352 

2041 

623 

677 

1414 

1008 

162 

629 



1330 

749 

1309 

224 

315 
735 
129 
130 
132 
132 
199 
320 
133 

485 
1015 

354 
2048 

624 

679 
1421 
1008 

366 



914 
161 



378 
500 



1299 

307 



388 
514 



344 
362 



434 440 
1260 1413 
1377 1389 



1174 1310 
1197 1346 
1191 1236 



750 

231 
317 
738 
130 
131 
133 
134 
203 
328 
134 

515 



356 
2073 

630 
689 

1009 

391 



1535 1574 
915 938 
163 



1029 1031 1034 1068 

158 1035 1062 1106 

1077 1083 1084 1086 

321 332 588 591 

686 832 850 917 



428 
1372 



345 
363 



447 
1420 



1168 1304 1305 



756 

232 
319 
740 
131 
132 
134 
135 
235 
338 
135 

516 



346 
364 



453 
1432 



347 
365 



462 
1437 



348 
366 



471 



349 
367 



350 
368 



351 
369 



352 
370 



353 
550 



354 

563 



1401 1449 1461 



1311 1355 1356 

1347 

1340 1341 1361 1362 1368 



768 770 



234 
322 
743 
132 
133 
135 
137 
237 
347 
136 



235 
325 
745 
134 
135 
137 
139 
242 
375 
138 



771 

246 
327 
748 
136 
137 
139 
141 
247 
380 
140 



772 

255 
330 
750 
137 
138 
140 
142 
252 
394 



778 

257 
332 
753 
138 
139 
141 
174 
255 
424 



973 978 



980 



610 
755 
139 
140 
142 
175 
260 
481 



611 712 



140 
141 

176 
265 
486 



141 
142 



177 
270 



718 



143 
144 



178 
273 



179 
278 



10 182 

11 286 



690 693 



1012 1042 1050 1056 1058 
393 400 1290 1358 1361 



1583 1585 1596 1596 1605 1614 1616 1621 1635 1635 1646 1646 
998 1020 1021 



1074 1075 1076 1081 1083 

1120 1125 1256 1352 1355 
1089 

591 599 603 615 634 

929 1084 1352 1372 



1086 1088 1088 1089 



407 



1299 1302 1302 1302 1305 1305 1305 1310 
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hminit 287 289 

text 

globals 3 3 

init 1090 1091 

convert 35 36 40 87 

librarian 37 44 102 217 2406 

xminit 1230 

tapebkup 764 
textbuf 

librarian 1451 1464 1473 1475 1479 1483 
textbufblocks 

librarian 2226 25S3 2586 2589 2589 2590 2590 2592 
textbuf fer 

loader 1500 1515 1516 1563 

librarian 2204 2247 2249 2274 2276 2277 2302 2307 2307 2308 2320 2321 2525 2592 2618 2669 
textbuf top 

librarian 2205 2316 2593 2617 2668 
textdescptr 

loader 873 900 
textdescriptor 

loader 873 988 1530 

librarian 1374 1958 1959 2003 2028 2031 2251 2286 2784 2871 
textfield 

crt 68 206 217 437 

textf ile 

globals 49 

librarian 2996 
textinblock 

librarian 2227 2328 2329 2329 2703 
textindex 

librarian 2206 2247 2274 2276 2304 2304 2308 2314 2316 2320 2321 2328 2331 2331 2617 2618 2662 2665 
2666 2668 2669 2670 2671 2671 2777 
textinsize 

librarian 2228 2317 2317 2330 2330 2701 2777 
textoutblock 

librarian 2229 2243 2277 2302 2303 2303 
textoutsize 

librarian 2230 2247 2271 2674 2674 2704 2704 
textpntr 

globals 33 257 
textrecctr 

librarian 1356 1364 1365 1367 1367 1369 
textrecords 

loader 962 1527 

librarian 378 1364 1369 2025 2061 2692 2835 2892 2892 
tex trees 

librarian 1939 2025 2026 2035 2035 
textsize 

loader 990 1532 1539 

librarian 1371 1378 1379 1380 1387 1953 1960 1966 1966 1966 2004 2029 2029 2029 2030 2030 2244 2271 
2291 2694 2701 2704 2884 2886 2887 2888 2890 
textstart 

loader 989 1539 

librarian 1370 1379 2243 2703 2887 

te * tS librarian 315 322 324 325 349 350 350 353 355 1355 1360 1361 1362 1362 1363 1363 1363 1365 

1374 1374 1376 1377 
■text type 

srmdam 70 

tioame 

bootdam 651 662 662 665 
tf r_data_sec 

amigo 762 766 

t f r end 

~ srm_drv 1299 1305 1348 
-thedate 

clock 41 43 87 103 147 151 

thetl clock 42 44 59 78 82 118 122 130 139 140 161 165 174 186 187 197 203 207 
thirdparm 

librarian 3190 3192 3211 3218 
this 

heapt 133 147 148 153 154 157 
thislink 

heapt 133 148 149 150 153 154 156 
this device 

"amigo 205 207 208 215 
this entry ptr 

"qminit 963 1032 1033 1046 1077 
tid 

globals 42 102 

loader 1018 

misc 181 

ldr 926 

srmdam 1586 
tidleng 

globals 19 42 

bootdam 69 7 

ldr 929 

lifdam 216 1051 

srmdam 1523 
time 

globals 231 

lifdam 529 536 537 538 

srm drv 1113 1114 1115 1234 1236 1240 1242 1246 1248 1253 1257 1259 

srmdam 335 347 348 349 350 1420 

librarian 218 230 231 

miui 53 62 78 80 81 83 84 

iolib 144 228 230 235 235 244 
timel 

CS80 285 494 504 
time2 

cs80 285 494 505 
timeout 

srm drv 125 9 

kernel 393 407 421 1130 1188 

iolib 246 415 441 492 518 578 628 

printer 114 244 252 

dischpib - 265 323 
timeouts_pe r_beep 

printer 56 216 
timeout blanked 

printer 76 196 206 210 210 
timeout counter 
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Page 


107 


printer 


79 


201 


214 


215 


215 


216 


218 








timer 






















iolib 


402 


456 


458 


458 


459 


479 


533 


535 


535 


536 


timerec 






















globals 


223 


231 


















misc 


192 




















clock 


42 


44 


118 


161 














lifdam 


115 


529 


566 
















srmdam 


333 


363 


















librarian 


218 




















miui 


53 




















timerhook 






















kbd 


11? 


300 


350 
















timerhook type 






















kbd 


99 


117 


















times 






















xminit 


1240 


1396 


1398 


1469 














timestring 






















miui 


57 


76 


79 


80 


82 


83 


86 


87 


90 




tin 






















globals 


145 




















loader 


1611 




















initload 


1678 




















misc 


267 


443 


450 


484 


486 


502 


529 


545 


558 


637 


initunits 


779 




















ctable 


316 


335 


335 


605 














ascii 


37 


50 


137 
















lifdam 


244 


336 


337 


428 


431 


453 


509 


511 


1124 


1125 


SUJVOl 


24 




















miui 


486 


488 


490 
















tmpcnt 






















dc_drv 


342 


423 


424 


441 


442 












tmpptr ~ 






















dc drv 


341 


347 


348 


357 


358 


461 


462 








tm fib 






















miui 


453 


478 


486 


488 


490 












tm name 






















ctable 


287 


326 


















tm_p roc 






















ctable 


314 


326 


327 


329 


335 












toe 






















miui 


407 


441 


















tod 






















lifdam 


115 


117 


118 
















todaysdate 






















librarian 


38 


229 


2043 


2967 


3229 


3566 










miui 


56 


67 


68 


69 


70 


71 


74 


90 






todindex 






















lifdam 


370 


399 


407 


407 


408 


415 


415 


416 


441 


447 


togglea 






















crt 


200 


448 


















togg lea lphahook 






















kbd 


120 




















keys 


218 


226 


















crt 


448 




















toggleg 






















crt 


135 


449 


















togglegraphicshook 






















kbd 


121 




















keys 


219 


225 


















crt 


449 




















toggleprinter 






















librarian 


2988 


3494 


















token 






















srmdam 


189 


206 


261 


262 


264 


266 


278 


283 


286 


293 


tokenlen 






















srmdam 


180 


205 


















tokentype 






















srmdam 


176 


184 


















topbyte 






















crt 


66 


208 


219 


439 














topos 






















lifdam 


370 


399 


409 


419 


422 


431 


432 


432 


437 


437 


total 






















librarian 


3247 




















totaldefs 






















loader 


1077 


1471 


1490 


1641 














ldr 


1052 




















totalglobal 






















loader 


1062 


1373 


1379 


1379 


1631 


1635 










ldr 


1042 


1046 


















librarian 


1791 


2053 


3070 
















totalpatchspace 






















librarian 


78 


1750 


1759 


1759 


2252 


2584 










totalreloc 






















loader 


1061 


1373 


1378 


1378 


1515 


1535 


1563 


1639 






ldr 


1050 




















librarian 


1790 


2051 


3070 
















total words 






















79885 


105 


143 


158 


159 


212 


212 










to_memory 






















srm_drv 


1324 


1424 


1429 


1434 


1439 


1449 










kernel 


456 




















dc drv 


478 




















iolib 


1256 


1464 


















dischpib 


437 


501 


512 


522 














tp 






















librarian 


1570 


1600 


1601 


1602 


1611 


1614 


1615 








tpm 






















ctable 


178 


183 


184 


185 


186 


187 


188 


189 


190 


191 




906 


1216 


1224 


1257 


1257 


1418 


1418 


1469 






cs80 


891 


983 


984 
















tposit 






















ascii 


101 


112 


112 


119 


119 


120 










tps 






















lifdam 


51 


280 


494 


502 














tptr 






















f 9885 


81 


154 


184 


264 














tr 






















lifdam 


566 


569 


569 


569 














track 






















f 9885 


60 


116 


149 
















ami go 


342 


348 


351 


352 


356 


357 


366 


372 


373 


374 


trackl 























399 



412 
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xminit 1167 1178 
track 2 

xminit 1165 1176 
tracka 

xminit 1233 1456 1459 1535 1536 1539 1553 1563 1588 1621 1624 1629 

trackb 

xminit 1233 1536 1552 1587 1622 1625 1628 

tracknum 

xminit 1162 1173 
tracknumber 

xminit 



1234 1400 1410 1412 1416 1446 1453 1456 1458 1472 1480 1481 1481 1485 1485 1491 1498 1502 
1504 1504 1516 



tracks 

misc 260 288 289 

ctable 395 397 399 399 400 

tracks per medium 

hminit 254 316 334 353 389 400 437 

track_ert 

qminit 501 1076 

track_ert passes 

qminit 969 1076 

transblocks 

librarian 2902 2935 2936 2937 2938 2939 2940 2941 
transfer 

mini 406 514 

iolib 1072 1303 

f9885 105 286 

cs80 912 1111 1121 

transfercomplete 

£9885 61 208 

transfer_cmd_buf 

amigo 713 751 

transfer command 

amigo 712 724 725 731 732 751 

transfer end 

iolib 1089 1396 

transfer setup 

iolib 1065 1217 1297 1312 1336 1361 1410 

transfer successful 

mini 409 450 459 475 

amigo 784 829 850 857 860 906 918 943 

transfer until 

iolib 1083 1351 
transfer word 

iolib 1077 1326 
transition 

librarian 785 824 827 833 836 
trans la tedate 

srmdam 331 410 411 581 582 1420 

transparent sec 

C580 ~ 265 333 
trickint 

clock 49 68 137 184 

trick rec 

srmdam 882 888 930 938 989 998 

tries 

f9885 112 142 210 232 232 233 

trigger 

iolib 1666 1848 

'trim 

librarian 2972 3203 3304 3320 

trkjoer cyl 

hminit 241 437 



true 



amigo 130 193 194 196 197 198 199 200 201 202 203 225 356 357 373 

globals 164 

mini 450 

bootdam 636 639 641 659 666 677 774 

loader 927 1006 1017 1334 1338 1433 1436 1461 1623 1624 1637 

initload 1695 1793 

misc 271 446 446 482 600 610 628 649 655 

initunits 818 822 

ldr 891 917 1012 1013 1029 1048 

kbd 177 178 179 180 181 296 299 309 

keys si? 224 231 237 250 292 296 311 312 320 328 333 339 358 359 359 455 

tail 68 93 93 

ctable 242 350 663 720 741 983 

llfdam 210 226 226 251 252 276 276 286 359 364 408 412 416 423 441 492 579 606 

680 690 694 729 734 791 798 805 817 848 923 1009 1013 1017 1025 1068 1075 1100 

1108 1121 

srro dru 1218 1377 1424 1434 2051 

srmdam 63 269 289 295 296 426 446 486 508 524 564 569 608 648 721 766 787 796 

841 883 931 947 990 1041 1059 1147 1165 1186 1190 1278 1347 1408 1409 1444 1493 1510 

1518 1527 1528 1622 1646 1657 1667 1678 1679 1690 1694 1726 

librarian 166 318 389 389 395 669 670 978 1084 1115 1119 1232 1323 1475 1581 1581 1626 1644 

1684 1708 1721 1773 1773 1845 1853 1854 1873 1877 1926 2014 2129 2140 2141 2153 2175 2287 

2392 2458 2490 2569 2622 2626 2717 2818 2818 2848 2915 2915 3041 3041 3117 3232 3290 3293 
3471 

qminit 863 868 981 987 997 1003 1009 1017 1027 1039 1044 1047 1058 1064 1070 1075 1078 1097 

xminit 1277 1425 1427 1429 1430 1498 

tapebkup 254 260 308 314 350 355 439 445 487 514 633 639 740 826 863 920 

heapt 62 71 199 

lock mod 29 66 

kernel 357 1041 1048 

dma drv 19 2 

dc 3rv 353 398 410 430 445 631 

iolib 364 379 712 756 1339 1413 1529 1539 

printer 193 243 248 264 270 274 320 

f9885 75 75 77 77 

dischpib 101 119 166 

amigo 850 857 918 943 

cs80 630 631 639 845 661 723 1306 
tryit 

heapt 211 257 262 264 
tryrec 

heapt 29 
trysrniboot 

initload 1756 1785 
try tracks 

- misc 263 271 274 287 289 290 
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tttt 

amigo 


106 


317 


482 


484 


532 


534 


668 


B97 






















ttttttt 






































hminit 


177 


185 


































tva 






































qminit 


746 


752 


753 


754 






























amigo 


142 


363 


369 


384 


387 


397 


400 


408 


414 


414 


415 
















tva_type 






































qminit 


470 


746 


































amigo 


88 


122 


142 


339 


363 


384 


397 


408 






















typeof token 






































srmdam 


184 


228 


233 


243 


251 


259 


























typepos 






































srm_drv 


1086 


1938 


1951 
































typestring 






































librarian 


3189 


3211 


3211 


3218 


3218 




























type_card_id 






































kernel 


274 


435 


































type_device 






































kernel 


261 




































iolib 


300 


303 


305 


308 


399 


476 


563 


611 


664 


666 


669 


673 


675 


678 


681 


684 


687 


689 




699 


780 


803 


833 


859 


879 


892 


905 


918 


938 


1066 


1072 


1078 


1085 


1090 


1218 


1303 


1327 




1353 


1396 


1647 


1650 


1654 


1656 


1659 


1660 


1666 


1705 


1728 


1756 


1775 


1794 


1810 


1848 


1892 


1953 


type_hpib_addr 






































kernel 


279 




































iolib 


293 


333 


1649 


1663 


1665 


1721 


1833 


1841 






















type_hpib_line 






































kernel 


280 




































iolib 


1577 


1579 


1581 


1590 


1601 


1612 


























type_isc 






































srm drv 


1252 


1296 


































kernel 


260 


508 


656 


659 


662 


665 


668 


671 


761 


780 


799 


818 


838 


853 


874 


1174 






h drv 


179 




































di drv 


180 




































g dVv 


182 




































dc_drv 


340 


532 


































rs drv 


179 




































iolib 


134 


135 


137 


139 


141 


143 


171 


179 


190 


201 


214 


227 


290 


292 


295 


298 


301 


304 




306 


309 


310 


321 


332 


356 


371 


385 


400 


401 


477 


478 


564 


565 


612 


613 


704 


784 




806 


836 


862 


881 


894 


907 


920 


940 


1071 


1116 


1223 


1224 


1308 


1332 


1357 


1400 


1534 


1576 




1578 


1580 


1589 


1600 


1611 


1646 


1648 


1652 


1662 


1664 


1667 


1663 


1678 


1706 


1720 


1729 


1748 


1757 




1777 


1795 


1811 


1832 


1840 


1854 


1860 


1888 


1890 


1896 


1898 


1900 


1902 


1905 


1922 


1939 


1955 


1976 




1994 


2004 


2013 


2023 


2074 


2075 


2078 


2090 


2153 


2216 


2362 


2365 


2368 


2371 


2374 


2377 


2388 


2456 




2540 


2593 


2657 


2692 






























printer 


68 




































type_of_card 






































kernel 


273 


433 


































type of position 






































packets 


680 




































srm^drv 


1951 




































type_parity 






































kernel 


293 




































iolib 


2372 


2594 


































type_serial_line 






































kernel 


299 




































iolib 


2075 


2077 


2079 


2091 


2154 


2217 


























t_cnt 






































iolib 


1070 


1222 


1238 


1263 


1277 


1293 


























t_count 






































iolib 


1096 


1125 


1134 


1138 


1309 


1311 


1312 


1333 


1335 


1336 


1358 


1360 


1361 


1401 


1405 


1408 


1410 




t dir 






































iolib 


1068 


1074 


1080 


1087 


1092 


1220 


1256 


1291 


1305 


1312 


1329 


1336 


1355 


1361 


1363 


1398 


1403 


1410 


dischpib 


427 


437 


442 


458 






























t_tfr 






































iolib 


1067 
1397 


1073 
1410 


1079 


1086 


1091 


1219 


1288 


1304 


1312 


1328 


1336 


1354 


1361 


1375 


1376 


1377 


1378 


1378 


t type 






































cs80 


219 


282 


438 


444 






























u 

srmam 


146 


166 


167 


168 


169 




























miui 


15 


172 


327 


344 


468 




























ub 






































loader 


843 


895 


































librarian 


2753 


2753 


2754 


2754 


2755 


2755 


























ubyte 






































loader 


857 


933 


































librarian 


2750 




































ubyterec 






































loader 


843 


895 


































librarian 


2752 




































uc 






































cs80 


359 


365 


366 


367 


367 




























ucase 






































loader 


1019 


1438 


































ldr 


936 




































uc 1 r__t imeou t_cons t 






































printer 


53 


114 


































ucsd 






































ctable 


48 




































ucsd_dam 






































"ctable 


201 


381 


































ucsd_to_any 






































convert 


36 


87 


































ue 






































ctable 


858 


872 


881 


882 


883 


884 


885 


886 


887 


898 


900 
















uee 






































tapebkup 


669 


672 


































cs80 


209 




































uee_byte 






































tapebkup 


541 


552 


































uee_pending 






































tapebkup 


593 


669 


670 


671 


673 




























ueovbytes 






































misc 


210 


255 


279 


280 


293 


294 


442 
























lifdam 


201 


488 


































miui 


514 




































uep 






































mini 


393 


466 


467 


481 


482 


489 


492 


492 


507 


507 


514 
















ctable 


640 


642 


644 


644 


645 


645 


646 


821 


822 


823 


















hminit 


140 


141 


142 


146 


155 


158 


165 


166 


168 


171 


189 


202 


203 


204 


220 


228 


233 


238 




249 


258 


266 


275 


277 


309 


310 


311 


311 


314 


315 


316 


317 


318 


323 


329 


341 


342 




343 


344 


345 


345 


348 


349 


350 


350 


351 


352 


353 


354 


355 


355 


374 


375 


376 


376 




387 


388 


389 


390 


391 


396 


397 


398 


399 


399 


410 


417 


420 


424 


424 


425 


430 


431 




432 


435 


439 


442 


445 


449 


450 


451 
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qminit 509 510 511 512 513 514 516 518 532 534 535 539 557 558 559 563 580 584 

585 586 590 606 609 610 611 615 632 636 637 638 642 664 668 669 671 673 

679 680 684 704 714 717 718 720 727 728 732 749 755 756 757 761 777 780 

781 782 795 796 797 799 818 826 839 854 857 858 859 362 863 867 868 870 

873 875 883 954 975 980 981 986 987 996 997 1002 1003 1008 1009 1016 1017 1026 

1027 1038 1039 1045 1047 1057 1058 1063 1064 1069 1070 1076 1078 1083 1096 1097 1100 1104 

1105 1106 

miui 19 35 35 36 36 37 166 167 191 326 332 341 344 347 468 470 485 486 

488 490 492 502 507 

tapebkup 24 25 26 27 28 43 45 46 50 56 57 58 62 79 83 84 85 89 

109 116 117 118 122 137 139 140 141 145 164 169 170 171 231 232 233 234 

235 236 241 246 248 249 253 254 259 260 263 266 267 268 274 277 279 280 

282 284 287 288 289 295 300 302 303 307 308 313 314 317 320 321 322 328 

341 344 345 346 349 350 354 355 357 360 361 362 370 386 403 404 480 495 

499 506 508 509 513 514 519 523 527 528 529 724 732 734 735 739 740 743 

747 748 749 852 876 877 882 

£9885 79 126 131 136 137 148 164 201 254 255 260 279 279 286 

dischpib 62 63 64 65 66 67 105 115 125 129 130 133 138 146 149 150 155 157 

158 163 165 170 175 177 192 193 194 195 196 197 198 199 200 201 215 217 

218 219 221 226 228 233 235 237 244 249 252 254 274 279 280 294 297 302 

303 312 333 335 337 341 347 348 355 363 367 378 379 384 389 394 396 400 

410 413 415 416 420 421 422 424 430 431 436 441 466 471 475 479 481 484 

488 492 492 506 510 510 519 526 529 

amigo 137 138 139 140 141 142 144 145 146 147 148 149 150 151 152 160 162 172 

177 179 183 185 189 207 209 212 219 223 219 235 240 268 269 274 291 292 

296 300 304 310 311 311 312 314 315 328 334 335 339 344 349 351 363 368 

371 372 379 387 388 392 400 401 405 412 413 413 414 415 428 439 470 472 

473 474 475 476 477 477 478 483 490 511 512 513 515 516 519 521 524 525 

527 528 528 529 530 533 535 543 544 545 546 547 548 557 563 566 577 578 

580 581 582 583 587 594 596 598 604 604 605 607 609 611 612 613 616 622 

625 631 632 643 644 646 652 657 659 664 665 666 669 673 676 678 679 680 

683 684 687 688 689 691 698 700 703 708 718 720 736 751 753 754 756 760 

764 766 768 772 775 776 778 782 788 797 799 800 800 815 818 820 821 824 

833 835 869 870 876 879 881 887 888 890 891 892 896 897 898 901 902 905 

909 913 916 920 921 922 925 930 937 940 942 945 955 957 958 959 960 963 

965 968 

cs80 276 277 278 279 280 281 282 283 284 285 293 294 303 314 319 331 333 334 

335 339 350 354 367 371 377 378 379 383 389 389 389 390 391 395 402 403 

404 406 407 411 417 418 419 423 430 431 432 433 434 438 454 456 456 460 

470 471 472 476 488 489 490 494 506 507 508 512 535 536 545 557 559 565 

583 584 625 626 628 686 691 696 699 704 804 805 810 811 819 820 825 826 

831 832 835 843 847 858 859 864 855 871 872 895 912 914 921 922 923 924 

925 938 952 956 957 952 963 974 1017 1021 1023 1032 1043 1048 1049 1050 1051 1052 

1053 1054 1055 1058 1059 1066 1070 1072 1079 1080 1081 1082 1083 1087 1091 1093 1098 1103 

1105 1106 1106 1111 1111 1121 1129 1134 1149 1159 1165 1177 1189 1197 1211 1216 1221 1227 

1229 1240 1241 1242 1244 1245 1250 1252 1255 1260 1264 1269 1272 1273 1278 1280 1282 1284 

1288 1290 1293 1295 1299 1305 1306 1307 1308 1311 1312 1314 



uepl 






































tapebkup 
uep2 

tapebkup 


805 


807 


809 


809 


810 


810 


811 


815 


817 


817 


















805 


808 


809 


809 


810 


810 


811 


815 


817 


817 


















uep proc type 






































ctaBle 


821 


829 


































uep type 






































c table 


819 


821 


822 


823 






























hminit 


140 


141 


142 


146 


158 


171 


202 


203 


204 


220 


233 


249 














qminit 


503 
796 


510 
797 


511 
799 


512 
818 


513 
826 


514 
839 


516 
954 


518 


532 


539 


563 


590 


615 


642 


684 


732 


761 


795 


miui 


19 




































tapebkup 


24 


25 


26 


27 


28 


29 


43 


50 


62 


89 


122 


145 


175 


231 


232 


233 


234 


235 




236 


237 


241 


274 


295 


328 


385 


536 


724 


805 


815 


852 


957 












dischpib 


35 


62 


63 


64 


65 


66 


67 


105 


125 


146 


155 


163 


175 


192 


193 


194 


195 


196 




19 7 


198 


199 


200 


201 


215 


226 


233 


244 


274 


297 


333 


341 


367 


394 


400 


420 


421 




424 


479 


488 


510 


510 




























aniigo 


13 7 


138 


139 


140 


141 


142 


144 


145 


146 


147 


148 


149 


150 


151 


152 


160 


177 


183 




189 


219 


229 


240 


274 


296 


304 


328 


339 


363 


379 


392 


405 


428 


439 


490 


543 


545 




557 


652 


700 


708 


764 


775 


788 


937 






















cs80 


43 


276 


277 


278 


279 


280 


281 


282 


283 


284 


285 


293 


294 


303 


319 


339 


354 


371 




383 


395 


411 


423 


438 


460 


476 


494 


512 


557 


559 


565 


704 


895 


912 


914 


921 


922 




9*38 


1017 


1043 


1066 


1121 


1221 


1250 


1260 


1280 


1290 


1307 
















uisblkd 






































globals 


163 




































initload 


1695 




































misc 


279 


440 


449 
































initunits 


796 


797 


































ctable 


352 


353 


606 


627 






























lifdam 


242 




































uisfixed 






































globals 


160 




































initload 


1692 




































initunits 


793 




































ctable 


349 




































cs80 


850 




































uisinteractive 






































globals 


157 




































initload 


1689 




































initunits 


790 




































ctable 


346 




































umaxbytes 






































globals 


154 




































initload 


1696 




































misc 


280 


293 


294 


439 






























initunits 


798 




































ctable 


354 


671 


671 
































cs80 


853 




































uroediavalid 






































globals 


158 




































mini 


4E6 


507 


































initload 


1690 




































misc 


446 




































initunits 


791 




































ctable 


347 




































lifdam 


209 


252 


1098 


1100 


1140 




























miui 


263 




































tapebkup 


825 


944 


































£9885 


136 


279 


































amigo 


577 


604 


664 


887 






























cs80 


625 


1106 


































un 






































initunits 


755 


777 


































ctable 


225 


226 


227 


228 


229 


230 


231 


232 


233 


234 


235 


236 


237 


285 


332 


362 


420 


422 




432 


434 


438 


440 


444 


447 


451 


453 


457 


462 


466 


471 


475 


483 


487 


496 


500 


505 




509 


528 


532 


550 


554 


563 


567 


580 


717 


766 
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ctable 


723 


785 


unaddressing char 






dischpi5 


508 


523 


unassemble 






librarian 


291 


3503 


unassignedB 






ctable 


855 




unassigned7 






ctable 


855 




unassigned_dav 






ctable 


956 


1041 


unblockeddam 






misc 


211 


421 


initunits 


738 


818 


lif dam 


1139 




unbuf fedam 






misc 


464 


677 


unbuf read cmd 
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524 525 



1048 1111 
820 824 

amigo - 53 731 
unbuf _w r i te_cmd 

amigo 55 732 
unco r rec table_da ta_e r ro r 

hminit " ' 269 

amigo 73 805 868 
undefined 

tapebkup 1004 1094 

CS80 39 53 627 1023 1027 1031 1083 
uninitialized media 

cs80 155 606 
unit 

misc 210 255 265 266 267 278 

tapebkup 24 50 54 548 554 556 559 565 573 575 578 

amigo 64 102 268 

cs80 277 280 364 365 371 377 411 417 
uni table 

globals 251 

mini 481 

loader 1390 1438 1605 

initload 1675 1676 

misc 265 267 278 426 468 500 529 545 558 597 637 

initunits 777 812 

ctable 600 603 626 634 642 643 669 671 1499 1513 1538 

ascii 35 46 81 137 

lif dam 209 210 239 334 424 453 507 1098 1100 1101 1116 1122 1140 

srm drv 1229 1359 1363 1401 1497 

srm3am 161 312 368 426 717 840 853 1145 1184 1597 

srmam 149 167 168 169 187 

suvol 22 

miui 34 166 232 506 

tapebkup 807 808 823 876 913 965 976 1057 1095 

lockmod 26 49 67 

printer 290 

f 9885 254 

amigo 563 

cs80 1070 
unitableptr 

globals 172 251 

ctable 246 
unitabletype 

globals 167 172 
unitentry 

globals 142 167 

mini 393 

initload 1675 

ctable 640 819 858 

£9SS5 79 

dischpib 36 
unitid 

xminit 1230 1341 1375 1390 1391 1398 1410 1446 1447 1453 1472 1490 1509 1510 1527 1528 1539 1549 
1573 1580 1585 1610 1611 1624 1625 1655 1656 
unitioinit 

initload 1671 1779 

initunits 717 828 

init 1133 
unitnum 

globals 40 117 140 167 

bootdam 543 607 

misc 210 211 255 421 

initunits 715 734 739 755 806 810 829 

ctable 117 206 210 212 213 214 215 225 226 227 228 229 230 231 232 233 234 235 
236 237 285 420 432 438 444 451 457 466 475 487 500 509 532 554 567 586 
595 613 622 631 638 656 659 980 983 

lifdam 28 189 

srm_drv 999 1000 1001 1003 1004 1012 1020 1028 1032 1034 1040 1054 1066 1069 1071 1073 1076 1084 
1088 1094 1100 1104 1106 1107 1227 1355 1389 1487 1524 1542 1580 1618 1653 1676 1697 1723 
1775 1820 1840 1859 1876 1897 1936 1960 1990 2017 2040 2059 2076 

srmdam 44 306 322 358 422 432 473 536 619 849 873 928 958 985 1133 1173 1208 1226 
1266 1285 1394 1428 1452 1580 

srmam 146 

miui 32 219 368 

tapebkup 803 821 839 897 900 956 1042 1077 
unitstatus 

globals 67 

mini 499 

keys 148 

crt 330 

£9885 271 

amigo 586 

CS80 1086 
unit_available 

amigo 7 
unit_busy 

dischpib 66 163 166 169 177 

amigo 587 

cs80 1087 
unit_fault 

tapebkup 416 616 

cs80 143 597 
unit_num 

packets 262 

srm drv 1499 
unit numEer 

suvol 8 13 14 18 19 



unit_pref ix_successf ul 
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Page 


112 


















ctable 


978 


984 


1493 


1499 


1500 




























unit_unavailable 






































amigo 


80 


878 


































unit_wait 






































dischpib 


67 


175 


































amigo 


578 


594 


631 
































cs80 


1079 


1091 


1103 


1245 






























unlisten 






































iolib 


1667 


1854 


































unlock 






































lockmod 


8 


39 


































■unlockf ile 






































globals 


138 




































srmdam 


1617 


1737 


































lockmod 


49 




































unlockpack 






































srm drv 


1104 


2040 


































srm3am 


1465 




































unl_message 






































kernel 


209 




































iolib 


1762 


1856 


































unmasked 






































cs80 


724 


729 


730 


731 


732 


733 


734 


735 


736 


737 


738 


739 


740 


741 


742 


743 


744 


746 




747 


748 


749 


750 


751 


752 


753 


754 


755 


756 


757 


758 


759 


760 


761 


763 


764 


765 




766 


767 


768 


769 


770 


771 


772 


773 


774 


775 


776 


777 


778 


780 


781 


782 






unmodified 






































cs80 


39 


1012 


1035 
































unop 






































librarian 


767 


847 


































unop type 






































librarian 


763 


767 


































unrecognized 






































keys 


250 


302 


305 


323 


325 


346 


377 


395 






















unrecoverable_data 






































tapebkup 


427 




































cs80 


163 


619 


































unrecoverable_data_ 


overf 1 


ouf 


































tapebkup 


" 426 




































cs80 


162 


618 


































unresbits 






































loade r 


1023 




































librarian 


190 


393 


394 


395 


1656 


1771 


1772 


1773 


1773 


1873 


















unsgn24 






































qminit 


472 


513 


732 
































cs80 


72 


97 


109 


711 


945 




























unsgn4 






































tapebkup 


24 


50 


548 
































cs80 
unsgn8 

qminit 


74 


78 


79 


277 


280 


354 


371 


411 


712 


946 


















473 


483 


484 


486 


487 


488 


489 


494 


495 


509 


509 


510 


510 


511 


512 


512 


513 


513 




514 


515 


516 


517 


518 


518 


539 


539 


550 


563 


563 


576 


577 


590 


603 


615 


615 


628 




629 


642 


643 


651 


660 


661 


684 


685 


696 


697 


699 


700 


701 


732 


732 


761 


761 


774 




807 


808 


809 


847 


898 


960 


962 
























tapebkup 


24 

335 


25 
724 


25 


26 


27 


28 


29 


50 


62 


62 


75 


76 


89 


103 


122 


145 


175 


236 


cs80 


73 


94 


96 


99 


100 


105 


106 


107 


110 


113 


210 


276 


277 


278 


279 


280 


281 


282 




283 


283 


284 


285 


294 


303 


311 


319 


328 


371 


383 


395 


411 


423 


43B 


460 


460 


465 




476 


494 


716 
































■unsigned 16 






































hminit 


140 


146 


151 
































amigo 


134 




































untalk 






































iolib 


1668 


1860 


































untyped file 






































globals 


46 




































bootdam 


669 


708 


713 
































loader 


831 




































initload 


1706 




































misc 


452 


674 


681 
































lifdam 


145 


523 


901 
































srmdarti 


89 


919 


































librarian 


3225 




































unt_message 






































kernel 


210 




































iolib 


1862 


1962 


































unum 






































globals 


140 




































bootdam 


543 


607 


































misc 


211 


421 


426 


442 






























initunits 


715 


734 


739 


806 






























lifdam 


28 


189 


201 


209 


210 


239 


334 


488 


507 


1098 


1100 


1101 


1102 


1116 


1122 


1139 


1140 




srm drv 


999 


1000 


1001 


1003 


1004 


1012 


1020 


1028 


1032 


1034 


1040 


1054 


1066 


1069 


1071 


1073 


1076 


1084 


' 


1088 


1094 


1100 


1104 


1106 


1107 


1227 


1229 


1355 


1359 


1363 


1384 


1389 


1401 


1467 


1487 


1497 


1524 




1534 


1536 


1542 


1564 


1575 


1576 


1580 


1602 


1613 


1614 


1618 


1637 


1648 


1649 


1653 


1665 


1671 


1672 




1676 


1692 


1693 


1697 


1718 


1719 


1723 


1749 


1770 


1771 


1775 


1798 


1815 


1816 


1820 


1835 


1836 


1840 




1854 


1855 


1859 


1872 


1876 


1892 


1893 


1897 


1915 


1931 


1932 


1936 


1955 


1956 


1960 


1976 


1985 


1986 




1990 


2013 


2017 


2035 


2036 


2040 


2054 


2055 


2059 


2068 


2071 


2072 


2076 


2102 










srmdam 


44 


306 


312 


315 


322 


327 


358 


368 


371 


396 


422 


426 


426 


432 


465 


473 


502 


536 




561 


619 


717 


780 


794 


812 


817 


823 


840 


849 


853 


855 


866 


868 


873 


895 


900 


928 




951 


958 


978 


985 


1049 


1054 


1063 


1070 


1076 


1087 


1093 


1098 


1107 


1110 


1121 


1126 


1133 


1145 




1147 


1164 


1167 


1173 


1184 


1186 


1190 


1197 


1201 


1202 


1208 


1219 


1226 


1239 


1240 


1257 


1260 


1266 




1285 


1307 


1310 


1321 


1322 


1327 


1335 


1336 


1337 


1339 


1344 


1346 


1349 


1359 


1375 


1379 


1381 


1382 




1383 


1385 


1388 


1394 


1402 


1414 


1417 


1421 


1428 


1432 


1438 


1452 


1463 


1465 


1580 


1597 


1644 


1646 




1651 


1654 


1657 


1660 


1662 


1667 


1670 


1672 


1679 


1682 


1684 


1694 


1697 


1700 


1706 


1709 


1710 


1716 




1718 


1720 


1722 


1726 


1729 


1730 


1735 


1737 


1739 


1741 


1743 


1745 


1747 












up 

kbd 


66 


152 


206 
































ctable 


829 


885 


686 


898 


900 




























upc 






































misc 


209 


244 


































ldr 


931 




































srmdani 


261 


283 


































librarian 


2796 


3106 


3134 


3308 


3323 


3327 


























upccha r 






































tapebkup 


767 


780 


1126 
































upchar 






































misc 


172 




































crt 


385 




































upc name 






































ldr 


926 


931 


931 


936 






























updatecursor 






































crt 


50 


210 


213 


241 


414 




























upon_data_transfer_ 


comp 




































amigo 


" 547 


766 


772 
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cs80 


924 


1282 


1288 










upon_t ransf e r_comp 


lete 














dischpib 


422 


465 


506 










upper bound 
















ctable 


249 


251 












upper byte 
















ctable 


862 


890 












upper char 
















dischpib 


373 


382 












u repo r tchange 
















globals 


161 














mini 


467 


507 












in it load 


1693 














misc 


283 


283 


292 


438 


446 






initunits 


794 














ctable 


350 














lif dam 


210 


251 


1101 










miui 


485 


492 


513 


515 








tapebkup 


826 














£9885 


137 


279 












amigo 


604 


665 


901 










C580 


628 


952 


1048 


1049 


1058 


1106 




urr 
















tapebkup 


477 


480 


679 


682 








C580 


213 


683 


686 










urr_index 
















tapebkup 


397 


472 


475 


475 


476 


477 


480 


cs80 


574 


677 


681 


681 


682 


683 


686 


us 
















misc 


172 














keys 


266 


295 












usecurptr 
















srm drv 


1102 


2019 


2031 










usefef t 
















srmdam 


1002 


1016 


1055 


1088 


1099 


1111 


1294 


userheap 
















ldr 


897 


905 


915 










userprogram 
















in it load 


1719 














ldr 


911 














userstack 
















loader 


1068 


1127 


1133 


1598 


1625 


1631 


1633 


initload 


1719 














ldr 


911 


1004 


1014 


1034 


1042 


1044 


1045 


use r_conf i rma t ion 
















miui 


272 


541 












tapebkup 


831 


993 


1051 


1088 








user_isr 
















kernel 


386 


400 


414 


1134 


1135 


1189 


1190 


user_parm 
















kernel 


387 


401 


415 


1136 


1191 






user sequencing field 














packets 


324 


332 












srm_drv 


1445 


1447 


1448 


1481 








user spec timeout 
















printer 


77 


261 


296 


301 








user_tf r_type 
















kernel 


441 


466 












iolib 


1067 


1073 


1079 


1086 


1091 


1219 


1304 


user time 
















srm_drv 


1257 














kernel 


434 


947 


1182 










iolib 


244 


246 


415 


441 


448 


456 


492 


use_current_ptr 
















packets 


754 














srm drv 


2031 














usf 
















srm drv 


1475 


1481 












usi 
















miui 


285 


325 


326 


328 


329 


332 




usr_tf r 
















srm_drv 


1343 














kernel 


466 














dc drv 


351 


352 


367 










iolib 


1288 


1375 


1376 


1377 








dischpib 


454 


455 


494 










utb 
















tapebkup 


114 


206 


211 










cs80 


85 


539 












uuppercase 
















globals 


159 














loader 


1438 














initload 


1691 














initunits 


792 














ctable 


348 














uuuu 
















tapebkup 


204 


209 


496 


554 


689 






cs80 


79 


696 












uvalc 
















cs80 


522 


535 


536 


537 


538 


539 


540 


uvid 
















globals 


152 














initload 


1685 














misc 


431 


432 












initunits 


786 














ctable 


229 


342 


466 


471 


627 


1538 




lifdam 


257 


258 


260 


1116 








srmdam 


868 














srmam 


163 


169 












uu 
















loader 


896 


1235 












librarian 


2562 


2636 


2647 


2760 


2761 


2762 




uuiord 
















loader 


857 


933 












librarian 


2757 














uuordext 
















librarian 


443 


989 












miui 


15 


173 


327 


344 


468 






kernel 


312 


314 


316 


318 


321 


324 


329 


iolib 


1127 














vl 
















ascii 


141 


143 


145 


145 








v2 
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ascii 141 143 149 149 
v3 

ascii 141 145 145 149 149 
val 

librarian 139 171 171 209 211 212 454 457 635 637 1400 1416 1417 

h drv 129 131 135 137 

dl drv 130 132 136 138 

g 3rv 132 134 138 

dc drv 138 140 177 179 183 252 255 270 273 287 304 312 

rs_drv 133 135 139 
valptr 

librarian 2215 2251 2252 2254 2256 2256 2257 2380 2388 2389 2389 2390 2442 2463 2474 2482 2523 2626 
2627 2628 2655 2655 2656 2717 2722 2727 2806 2829 2830 2876 2877 
value 

loader 933 1465 

ctable 219 256 262 276 276 311 317 323 323 326 326 329 329 828 870 909 921 921 
922 922 923 923 924 924 925 925 927 927 928 928 929 929 931 932 933 934 
935 

packets 209 

srmdam 375 1434 

librarian 171 280 285 1256 1575 1575 1576 1576 1578 1578 1579 1579 1630 1630 1630 1631 1631 1631 
1683 1724 1904 1910 2013 2257 2443 2443 2523 2628 2656 2733 2733 2734 2735 2735 2740 2740 
2741 2742 2742 2747 2748 2753 2753 2754 2755 2755 2760 2760 2761 2762 2762 2768 2830 2877 

kernel 661 667 673 690 694 695 698 705 707 782 793 820 832 841 847 848 855 858 

iolib 136 138 142 180 185 191 196 215 218 667 682 781 792 893 897 1103 1105 1425 
1443 1452 1470 
valueextend 

loader 924 1461 

librarian 169 1528 1684 1719 1729 1902 1908 2010 2014 2254 2624 2653 2827 2853 2874 
walueextension 

loader 872 930 1464 

librarian 172 1632 1682 1726 1727 1729 1905 1911 2012 2463 
ualueptr 

ctable 259 274 276 
valuer 

loader 934 
veloc 

librarian 1243 1255 1256 
yep 

loader 899 1465 

ctable 276 „ 

librarian 1255 1575 1575 1576 1576 1578 1578 1579 1579 1630 1630 1630 1631 1631 1631 1683 1723 1904 
1910 2257 2442 2523 2628 2656 2727 2830 2877 
veptr 

loader 872 899 

librarian 171 2013 
verify 

hminit 140 146 316 353 389 

xminit 1160 1171 1414 1562 

tapebkup 1039 1132 
verif yblock 

£9885 51 57 
verifying 

librarian 49 3035 3111 3117 3124 3318 3435 3449 3508 3588 
verif ymod 

librarian 3115 3167 3505 
verif ynext 

librarian 3101 3118 3127 3508 
verif y_cmd 

hminit 155 

amigo 54 
verify cmd buf 

hminit 148 154 155 
verify pass 

hminit 362 378 383 383 408 408 
verify pass complete 

hminit" 298 319 334 336 365 392 400 402 
verify starting track 

hminit ~ 297 312 314 316 333 334 364 384 387 389 396 400 404 
version 

lifdam 49 280 480 493 494 499 501 556 

miui 395 430 
vevalue 

librarian 2221 2568 2569 2621 2622 2528 2630 2638 2649 
vid 

globals 41 100 152 266 

misc 422 

initunits 764 

ctable 229 294 466 981 

lifdam 192 

srmdam 421 1588 

miui 124 222 

tapebkup 8 46 903 
vidleng 

globals 18 41 

srmdam 1527 
vidptr 

misc 422 431 432 

vmo n ^ m brarian 64 38g 136g 140? 1435 1468 3035 3103 3105 3105 310B 3110 3117 3126 3135 3138 3166 3318 

3324 3328 3331 3441 3445 3500 3502 3589 
vn4 

ctable 722 786 
vname 

lifdam 35 44 
vnh 

srm_drv 1485 1489 
vnlength 

loader 814 819 

librarian 3227 3227 

VOi lifdam 191 227 230 231 244 245 256 271 272 272 279 280 280 280 280 282 311 328 
336 470 509 548 548 552 554 555 556 1121 1124 

tapeokup 24 50 55 548 553 565 573 575 578 
vol id 

lifdam 192 256 257 258 297 547 1088 
volname 

loader 819 832 

lifdam 44 227 230 231 256 492 1121 

librarian 3226 
vol number 

bootdam 56 5 

lifdam 66 599 924 



volpack 



1-116 



Pascal Cross- reference 


RELEASE2 . 


0.TEXT 






srm drv 


1106 


2059 










5 rm3am 


371 












srmam 


157 












volpass 














s rmdam 


437 


464 


466 


478 


497 


503 




950 


951 


964 


977 


978 


995 




1153 


1164 


1165 


1175 


1195 


1197 




1350 


1376 


1379 








volpass2 














s rmdam 


1176 


1196 


1198 








volsize 














lifdam 


199 


202 


393 


550 


790 


798 


vo lume_cop y_da ta 














tapebkup 


29 


175 


215 


707 






volume_ert 














qminit 


501 


1016 










vo lume_e r t_passes 














qminit 


808 


927 


938 


1012 


1016 




volume_header_type 














packets ~ 


335 


376 


399 


422 


439 


493 


srm drv 


1486 












volume_info_type 














packets 


344 












volume_label 














packets 


349 












volume_name 














packets 


341 


791 










srm drv 


1502 












s rmdam 


379 












vo lume_name_heade r 














packets 


376 


399 


422 


439 


493 


519 


s rm_d rv 


1564 


1602 


1637 


1665 


1749 


1798 


volume num 














packets 


263 












srm_drv 


1500 












vol bytes 














ctable 


216 


393 


400 


1243 


1253 


1263 


vol label 














miui 


390 


425 










vol_name 














suivol 


7 


11 


12 


13 


18 


20 


vol_num 














miui 


409 


443 










vol offset 














ctable 


217 


404 


406 


1241 


1251 


1261 


vol stamp 














miui 


398 


433 










vpass 














srm drv 


1029 


1654 


1666 








vptr 














librarian 


1562 


1575 


1575 


1576 


1576 


1578 




1723 


1727 


1727 


1728 






vsize 














lifdam 


194 


201 


201 


202 


280 


281 


vt 














misc 


166 












vu 














tapebkup 


546 


553 


554 








vvname 














lifdam 


221 


226 


231 


233 


248 




WW 














tapebkup 


203 


208 


553 








cs80 


78 












Ul 

loader 


846 


868 


1235 








librarian 


437 


488 


496 


1273 


1274 


1281 




2562 


2636 


2647 


2760 


2761 


2762 


hminit 


432 












miui 


15 


174 


327 


344 


468 




£9885 


55 


127 


129 


151 


178 


196 


amigo 


109 


895 










ui3pad 














£9885 


75 


77 










wait 














srm_drv 


1075 


1878 


1880 


1889 






uiait4ba tread ready 














bat 


55 


84 










uiait4bat ready 














bat 


47 


67 


72 








uiait4kbd read ready 














keys 


426 


466 


472 








wait4kbd ready 














kbd 


251 


263 


266 








uiaitforlock 














lockmod 


9 


55 










waitforlock timeout 














srm^drv 


995 


1222 


1242 


1407 






waitingforlcck 














s rm_d rv 


1126 


1406 


1880 








wait for lock 














packets 


631 












s rm^d rv 


1889 












wa rn ing^Tssued 














miui 


218 


228 


236 


239 


266 




tapebkup 


899 


909 


917 


920 


947 




wd 














srm_drv 


1008 


1016 


1024 


1044 


1080 


1092 




1964 


1980 










uidata 














£9885 


194 












udmacO 














£9885 


75 


77 










wdmacl 














£9885 


75 


77 










wenab 














£9885 


75 


77 










uendbuf fer 














ascii 


64 


93 


247 








wendf ile 














ascii 


125 


298 


324 








w£tn 














tapebkup 


131 


137 


138 


139 


139 




wholeword 














kbd 


94 
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544 557 562 623 
1011 1049 1054 1064 
1210 1218 1219 1228 



368 1024 



699 


700 


701 


781 


813 


878 


895 


936 


.087 


1093 


1098 


1107 


1110 


1121 


1126 


1137 


.254 


1257 


1268 


1287 


1313 


1322 


1346 


1347 



519 537 



604 



646 695 



784 



537 604 646 695 784 
1915 1976 2068 



1271 1380 1392 1404 1416 1423 1435 1440 1452 1464 1479 



1269 1378 1390 1402 1414 1421 1433 1438 1450 1462 1477 



1578 1579 1579 1630 1630 1631 1631 1682 1683 1717 1721 1722 



1282 1291 1292 1314 1315 1774 1775 1872 1917 1918 1924 1924 



1509 1516 1546 1570 1584 1608 1622 1641 1727 1753 1901 1919 
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keys 


158 


247 




























crt 


251 


265 


274 


405 


433 






















printer 


162 


176 




























who le_5ec tors 
































mini 


410 


421 


422 


426 


428 


430 


431 


















whole_sector_bytes 
































mini 


411 


431 


432 


433 
























width 
































kbd 


61 


142 


196 


























crt 


118 


121 


123 


127 


427 


429 


431 


















mm in it 


109 






























printer 


160 


161 


174 


175 
























window 
































globals 


60 


61 


69 


























mini 


309 


384 




























bootdam 


545 


592 


748 


























misc 


465 


497 


516 


























initunits 


713 


722 


726 


730 


802 






















keys 


55 


137 




























crt 


48 


317 




























ascii 


7 


14 




























srmam 


41 


179 




























librarian 


127 


133 


2810 


























printer 


40 


49 




























49885 


40 






























aroigo 


431 






























cs80 


900 






























windowp 
































globals 


61 


73 




























lifdam 


372 






























wlp 
































loader 


903 


1229 




























wnextbyte 
































ascii 


89 


107 


108 


108 


131 


134 


134 


241 


242 


242 


331 


331 








word 
































loader 


845 


846 


848 


868 
























ctable 


861 


872 


887 


























lifdam 


38 


43 




























dischpib 


372 


390 




























wordl5 
































bootdam 


554 


565 




























lifdam 


40 


66 




























wordcount 
































heapt 


134 


159 


178 


178 


187 






















wordext 
































librarian 


444 


488 


527 


815 


1299 


1308 




















wordlen 
































heapt 


191 


196 


197 


197 


198 


200 


201 


202 


208 


218 


256 


267 








wordlist 
































loader 


848 


849 




























wordlistptr 
































loader 


849 


903 


1021 


1173 


1214 


1221 


1252 


















wordrec 
































loader 


846 


847 


1235 


























librarian 


2759 






























wordrecptr 
































loader 


847 


896 




























librarian 


1872 






























words 
































£9885 


113 


159 


160 


161 


178 


212 


213 


















wordsdisposed 
































heapt 


78 


122 


187 


198 


198 


256 


256 


292 
















wordsiz 
































librarian 


412 


724 


747 


884 


895 


902 


908 


977 


983 


998 


1018 


1146 


1147 


1162 




wordsize 
































heapt 


284 


286 


288 


291 


291 


292 


293 


296 


303 


307 


308 


308 


310 






wo rking_di rectory 
































packets 


268 






























srm drv 


1516 






























working Torval 
































tapebkup 


392 


406 


418 


420 


422 


425 


428 


432 


465 


469 


494 


589 


606 


618 


626 


cs80 


569 


586 


599 


601 


604 


608 


610 


612 


614 


617 


620 


629 


673 


678 


694 


wrapup 
































librarian 


3553 


3596 


3600 


























write 
































misc 


369 


411 


412 


























crt 


187 


190 




























convert 


100 


104 


117 


























swvol 


21 






























librarian 


91 


96 


99 


112 


114 


115 


117 


220 


228 


231 


232 


272 


323 


324 


325 




468 


470 


1261 


1265 


1331 


1340 


1344 


1414 


1459 


1505 


1508 


1531 


1533 


2410 


2421 




2994 


3050 


3068 


3069 


3147 


3157 


3201 


3240 


3249 


3265 


3271 


3277 


3278 


3285 


3303 




3360 


3362 


3365 


3366 


3367 


3372 


3374 


3375 


3376 


3381 


3382 


3383 


3384 


3385 


3407 




3418 


3425 


3434 


3440 


3461 


3463 


3519 


3520 


3521 


3522 


3523 


3524 


3525 


3526 


3527 




3532 


3533 


3534 


























midecs 


45 






























qminit 


905 






























xminit 


1339 


1446 


1527 


1610 


1624 






















rniui 


135 


194 


198 


199 


200 


201 


205 


244 


248 


249 


296 


297 








tapebkup 


777 


857 


882 


886 


925 


929 


930 


1122 


1134 














kernel 


707 






























printer 


46 


195 


198 


200 


207 


209 




















uriteblock 
































f 9885 


51 


57 


174 


























writeblocks 
































librarian 


2298 


2300 


2301 


2302 


2303 


2337 


2339 


2340 


2341 


2342 












uiritebuf f er 
































iolib 


1104 


1451 


1519 


























ujritebuf fer^string 
































iolib 


1110 


1506 




























writebytes 
































globals 


66 






























mini 


427 


443 


505 


























misc 


470 


529 


562 


588 
























keys 


166 






























crt 


343 


358 


371 


























ascii 


37 


315 




























lifdam 


336 


431 


509 


511 


1124 






















srmam 


198 






























librarian 


129 


2297 


2300 


2301 


2304 


2305 


2306 


2307 


2312 


2320 


2321 


2322 


2324 


2337 


2340 


rniui 


486 






























printer 


322 






























f9885 


172 


223 


277 


























amigo 


592 































326 328 343 

2567 2797 2856 

3319 3333 3357 

3412 3416 3417 

3528 3529 3531 



2343 2344 2812 
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Page 


117 


cs80 


1011 


1101 


1172 


1189 














writechar 






















iolib 


137 


190 


898 


899 


911 


912 










writechars 






















ascii 


232 


317 


320 
















writedate 






















librarian 


102 


227 


229 


327 


344 


2799 










uiritedir 






















1 if dam 


359 


441 


450 


516 


645 


679 


690 


694 


926 


990 


writedirectory 






















librarian 


2948 


3062 


















uiriteendline 






















ascii 


99 


129 


327 
















writeeol 






















globals 


66 




















raise 


560 




















keys 


164 




















crt 


357 


363 


















ascii 


325 




















printer 


317 




















writef ilemark 






















tapebkup 


134 


138 


















writeln 






















raise 


369 


372 


409 


411 


413 












ldr 


901 
1077 


970 


974 


975 


976 


989 


990 


1008 


1008 


1057 


crt 


129 




















tail 


45 


91 


















convert 


119 




















swvol 


17 


17 


17 


18 


20 


26 










librarian 


233 


234 


257 


267 


268 


327 


329 


330 


344 


346 




374 


377 


378 


1266 


1346 


1347 


1368 


1370 


1372 


1389 




1524 


1525 


1526 


1527 


1528 


1529 


1530 


1533 


2167 


2290 




3055 


3066 


3070 


3085 


3352 


3377 


3387 


3391 


3395 


3401 




3431 


3432 


3437 


3445 


3446 


3447 


3449 


3463 


3517 


3573 


raidecs 


49 




















mminit 


106 




















qminit 


932 


945 


946 
















xminit 


1255 


1260 


1261 


1367 


1375 


1390 


1391 


1398 


1410 


1434 




1539 


1549 


1573 


1580 


1581 


1585 


1611 


1625 


1640 


1655 


miui 


25 


27 


89 


91 


92 


93 


94 


151 


157 


158 




238 


251 


274 


294 


339 


340 


349 


499 


500 


530 


tapebkup 


486 


574 


576 


578 


580 


782 


789 


791 


798 


833 




997 


998 


1003 


1006 


1015 


1017 


1021 


1046 


1055 


1056 




1154 


1155 


1156 


1157 


1158 












writenumber 






















iolib 


666 


780 


897 
















writenumber In 






















iolib 


680 


891 


















uiriteprotected 






















£9885 


62 


223 


















uiritesector 






















librarian 


2810 


2888 


















writes tates 






















librarian 


575 


732 


1101 


1180 














writestring 






















iolib 


675 


859 


910 
















uiritestringln 






















iolib 


683 


904 


















uiriteuiord 






















iolib 


141 


214 


















write file mark 






















tapebKup 


27 


122 


141 


313 














w r i te_p rog ram_heade 


r 




















miui 


41 


538 


















write protect 






















cs80 


158 


613 


















writ ing_p rev ious_cha r 




















printer 


74 


257 


272 


274 


276 


303 










wrongbyte 






















loader 


1055 


1549 


















ldr 


1068 




















wrong rec 






















loader 


1075 


1550 


















ldr 


1069 




















wrtchar 






















printer 


145 


275 


319 


320 


325 












wword 






















£9885 


75 


77 


















keys 


117 




















crt 


51 


106 


108 


223 


225 


228 


230 


231 


232 


238 


mminit 


98 


107 


















miui 


15 


103 


180 


346 


468 












kernel 


614 


616 


618 


620 














h^drv 


128 


130 


133 


138 


142 


143 










dT drv 


129 


131 


134 


139 


143 


144 










g_Hrv 


131 


133 


136 


143 














dc_drv 


130 


132 


136 


176 


178 


181 


242 


247 


260 


265 


rs^drv 


132 


134 


137 
















prTnter 


155 


161 


162 


162 


169 


175 


176 


176 


185 


189 


xaddr 






















bootdam 


588 


648 


655 


671 


672 












srm drv 


1053 


1736 


1765 
















xfer 






















librarian 


3121 


3501 


















xf r 






















cs80 


914 


1000 


1011 


1034 


1134 


1159 


1189 


1221 






xfr_chain semaphore 






















discFipib 


46 




















amigo 


620 


701 


704 
















cs80 


1235 


1253 


1256 
















xfr required 






















cs80 


1019 


1023 


1024 


1027 


1029 












xminit 






















xminit 


1184 




















miui 


12 




















xminitialize 






















xminit 


1192 


1206 


















miui 


346 




















xmitconf ig 






















keys 


70 


471 


















xmitlang 






















keys 


69 


465 



















1032 1058 1075 



1068 1069 1070 1072 1073 1074 1075 1076 



347 348 356 361 363 

1406 1418 1434 1440 1459 

2422 2570 2611 2634 2645 

3402 3409 3410 3411 3413 



1447 1453 



365 368 370 

1467 1522 1523 

2685 2800 3054 

3419 3420 3430 



159 160 

547 548 

873 883 

1058 1081 



1472 


1476 


1490 


1509 


1510 


1528 


161 


185 


193 


202 


207 


209 


888 
1092 


890 
1093 


919 
1096 


932 
1127 


963 
1152 


974 
1153 



248 



251 253 253 253 



279 
212 



281 
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382 383 384 386 389 391 392 403 

246 248 251 254 254 254 



crt 


42 


216 


225 


230 


231 


232 


248 


381 


XX 


















amigo 


105 
















x count 


















iolib 


1076 


1082 


1307 


1311 


1331 


1335 






y 

crt 


223 


225 


228 


233 


234 


235 


238 


240 


mminit 


98 


107 


109 












kernel 


615 


617 


619 












printer 


185 


189 


212 












year 


















globals 


218 
















clock 


105 


153 














lifdam 


120 


120 


315 


330 


330 


531 


535 


568 


packets 


254 
















srmdam 


343 


343 


362 












librarian 


110 


115 


3565 












miui 


44 


65 


70 


71 


90 








yencode 


















keys 


36 


362 














crt 


304 
















yenrom loca t ion 


















crt 


58 


304 














yes 

midecs 


37 


41 


50 












qminit 


934 


947 














miui 


162 


275 














tapebkup 


773 


783 


834 












ypos 

crt 


43 


216 


225 


233 


234 


235 


248 


364 




388 


389 


391 


394 


403 


408 


409 


411 


y 


















clock 


88 


94 


95 


102 


102 


105 


148 


153 


cs80 


282 


438 


452 












zap assigned unit 


















ctable 


213 


631 


672 


1501 










zbadblock 


















globals 


184 
















mini 


364 
















bootdam 


600 
















misc 


303 
















miui 


119 
















tapebkup 


428 


484 


498 


842 










£9885 


236 
















amigo 


869 
















cs80 


620 
















zbaddma 


















globals 


188 
















misc 


324 
















£9885 


119 
















zbadha rdwa re 


















globals 


188 
















mini 


344 


352 


353 


354 


355 


356 


369 




bootdam 


601 
















misc 


322 
















hminit 


259 


425 














qminit 


675 


722 














tapebkup 


404 


418 


604 


518 










£9885 


242 
















dischpib 


337 
















amigo 


888 


913 














cs80 


584 


599 














zbadmode 


















globals 


184 
















mini 


511 
















bootdam 


760 


768 














misc 


305 
















printer 


330 
















£9885 


283 
















amigo 


607 
















cs80 


1133 
















zbit 


















cs80 


445 


452 














^catchall 


















globals 


188 
















mini 


368 
















bootdam 


602 
















misc 


323 
















hminit 


442 
















tapebkup 


465 


659 














£9885 


132 


156 


186 


202 


209 


225 


237 


245 


amigo 


212 


477 


528 


800 


905 


909 


925 


930 


C580 


673 


1308 














zero 


















miui 


396 


431 














zerodate 


















srmdam 


362 


386 


388 












zerodatetime 


















li£dam 


556 


597 














ze romem 


















loader 


1089 


1567 


1635 












ldr 


1045 
















zerotime 


















srmdam 


363 


387 


389 












zero parity 


















kernel 


296 
















iolib 


2610 


2631 














zinitfail 


















globals 


187 
















mini 


342 


343 














misc 


319 
















hminit 


275 


277 


311 


329 


345 


350 


355 


376 


qminit 


1083 
















cs80 


610 
















zitl 


















packets 


297 
















zit2 


















packets 


298 
















zmediumchanged 


















globals 


195 
















mini 


349 


464 


508 












misc 


353 

















365 381 381 382 383 383 384 385 386 386 
165 155 156 



399 
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lifdam 


208 












hminit 


424 


430 










tapebkup 


432 


626 










f 9885 


138 


280 










amigo 


605 


666 


902 








CS80 


629 


1010 


1107 








znoblock 














globals 


191 












mini 


351 


357 


360 


361 


362 


363 


bootdam 


758 












misc 


334 












miui 


119 












tapebkup 


425 


842 










£9885 


228 


235 










an igo 


824 


870 


876 


922 






cs80 


517 












znodevice 














globals 


187 












mini 


370 


483 


490 


493 






bootdam 


597 












misc 


318 












initunits 


804 


807 










srm drv 


1151 


1459 










s rmdam 


1599 












srmam 


151 


159 


188 








qminit 


859 












tapebkup 


249 


280 


303 


346 


509 


703 735 


printer 


105 


140 


308 








£9885 


89 


217 


255 


262 






dischpib 


218 


237 










amigo 


172 


470 


478 


483 


516 


519 529 


csSO 


601 


843 


847 


974 


1053 


1073 1241 


znomedium 














globals 


191 












mini 


345 


346 


347 


348 


350 


367 


bootdam 


598 












misc 


336 












hminit 


431 












£9885 


220 












amigo 


892 












znosuchblk 














globals 


187 












misc 


317 












tapebkup 


420 












amigo 


921 












cs80 


604 












znotready 














globals 


191 












bootdam 


599 












misc 


335 












s rm_d rv 


1180 












tapebkup 


422 












amigo 


890 












CS80 


612 












zprotected 














globals 


187 












mini 


358 


359 










misc 


320 












hminit 


432 












£9885 


224 












amigo 


881 


896 










cs80 


614 












zstrangei 














globals 


188 












mini 


365 


366 










misc 


321 












ztimeout 














globals 


184 












misc 


306 












srm_drv 


1381 


1464 










printer 


132 


224 


334 








dischpib 


221 












zuninitialized 














globals 


191 












misc 


333 












miui 


120 












tapebkup 


843 












amigo 


669 


898 










cs80 


608 












z type 














cs80 


224 
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Assembly Source Listings 

This volume of the System Internals Documentation contains the source text for the following 
Assembly modules: 



• ALPHALIST 

• ASM 

• BOOTDEFS 

• COMASM 

• DC 

• DISCINT 

• DRV ASM 
• EVALGVR 

• FASTMOVE 

• FMINIT 

• FORMAT 

• GPIO 

• GPIODVR 

• MATCH 



• MATCHSTR 

• MODIV 

• NEWWORDS 

• POWERUP 

• RANDOM 

• ROMCALL 

• RS 

• RSTRINT 

• SCAN 

• SETSTUFF 

• STRG1 

• STRG2 

• STRINT 

• SYSDEF 
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ALPHALIST 



Purpose 

ALPHALIST alphabetizes a list of symbols. 

Usage 

ALPHALIST is used by the linking loader. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PAGE 1 [2.0] 11/4/82 13:14:18 ASSEMBLY OF ALPHALIST .TEXT 



PASS 1 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
• 32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



COMPLETE. ERRORS: 



arraytO. .6^ 
arrayfO. ,N 
0..65S3S; 



65S3S] of char: {symbol table) 
" 1] of 0.. 65535; 



00000000 



0000 0000 alphalist equ 



00000000 245F 
00000002 381F 
00000004 22SF 
00000006 205F 
00000008 2F0A 



0000000A 
OOOOOOOC 
OOOOOOOE 

ooooooio 

00000012 
00000014 
00000016 
00000018 
0000001A 
0000001C 
0000001E 



5544 
654C 
5489 
4280 
4281 
4242 
2449 
3602 
3019 
5242 
3222 



I_loop 



J_loop 



procedure alphalist 

var symtable: 
var list: 
N: 

The N elements of the list are offsets into the symbol table, 
where strings are found. The object is to rearrange the list 
so that the strings are alphabetized. 

rorg 



base of symbol table containing strings 
index into list 
index into list 
address of string 
address of string 

offset into symbol table 
offset into symbol table 
number of elements processed 
inner loop counter 
size of list 
length of string 
condition codes 



return address 
size of list 
address of list 
address of symbol table 
replace return address 

list must have least two elements 

start with second list element 

sign extend to long 

sign extend to long 

initialize tally of elements processed 

for J :■ I 

down to 
ioffset :- list [I] 

I := I + 1 
J := J - 1; joffset := list[J] 





def 


alphalist 


0000 0000 symtabl 


e equ 


aO 


0000 0001 I 


equ 


al 


0000 0002 J 


equ 


a2 


0000 0003 Istr 


equ 


a3 


0000 0004 Jstr 


equ 


a4 


0000 0000 Ioffset 


equ 


dO 


0000 0001 Joffset 


equ 


dl 


0000 0002 Icount 


equ 


d2 


0000 0003 Jcount 


equ 


d3 


0000 0004 N 


equ 


d4 


0000 0005 len 


equ 


dS 


0000 0006 comp 


equ 


d6 



movea.l (sp)+,J 
move.w jsp +,N 
movea.l jspj+,I 
movea.l (sp)+, symtable 
move.l J,-(sp) 



subq.w 

bcs. s 

addq.l 

clr.l 

clr.l 

clr .w 

movea.l 

move.w 

move .w 

addq .w 

move.w 



#2,N 

done 

#2,1 

Ioffset 

Joffset 

Icount 

I.J 

Icount , Jcount 

U) + , Ioffset 

#1 .Icount 

-(J) .Joffset 



00000020 49F0 1800 
00000024 47F0 0800 
00000028 4245 
0000002A 1A1B 
0000002C 8A1C 
0000002E 40C6 
00000030 6304 
00000032 1A2C FFFF 
00000036 5305 
00000038 6508 
0000003A B70C 



lea 

lea 

clr .w 

move.b 

cmp.b 

move 

bls.s 

move.b 
str_comp subq.b #l,'len 

bcs.s cmp_end 
cmp_lp cmpm.b (Jst r)+, (Istr)+ 



Ofsymtable, Joffset 

0(symt able, Ioffset 

len 

(Istr)+,len 

(Jstr)*, len 

sr ,comp 

str comp 

-1 (Istr), len 



l),Jstr standard string comparison: 
li.Istr 

sign extend to word 

compare lengths 

save comparison till later 

?et minimum of two string lengths 
oop if at least one character 

compare string bodies 
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59 


0000003C 


S6CD 


FFFC 


60 


00000040 


6602 




61 


00000042 


44C6 




62 


00000044 


640C 




63 








64 


00000046 


3541 


0002 


65 


0000004A 


51CB 


FFD2 


66 


0000004E 


3480 




67 


00000050 


6004 




68 








69 


00000052 


3540 


0002 


70 


00000056 


51CC 


FFBE 


71 








72 


0000005A 


4E7S 




73 








74 








PASS 1 


ERRORS: 






PASS 2 


ERRORS: 







dbne 
bne . s 
cmp__end move 
cmp bcc.s 



len,cmp_lp 
cmp 

comp,ccr 
found 



Joffset, 2(J) 

Jcount.J loop 



move .w 

dbra ,.._...,. „. 

move.w Ioffset ,J3) 

bra.s next_I 

move.w Ioffset ,2(J) 

dbra N, I_loop 



loop till not equal or end of string 
if string bodies are equal, 

then compare lengths 
if string(I) >- string(J), J loop done 

list[J+l] :» joffset 

loop until J = 

if J - then list[0] :- ioffset 



list[J+l] :~ ioffset 
loop until N = 

wasn't that easy? 
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*** 68000 ASSEMBLER SYMBOL TABLE DUnP *«* 

EXTERNAL SYMBOLS 
»»* NO EXTERNAL SYMBOLS *** 

INTERNAL SYMBOLS 



SYMBOL 


TYPE 


DEF EQU SYM VALUE 


no 


AREG 





00000000 


m 


AREG 





00000001 


A2 


AREG 





00000002 


A3 


AREG 





00000003 


A4 


AREG 





00000004 


A5 


AREG 





00000005 


A6 


AREG 





00000006 


P7 


AREG 





00000007 


ALPHALIST 


REL 


28 


00000000 


CCR 


STREG 





00000005 


CMP 


REL 


62 


00000044 


CMP END 


REL 


61 


00000042 


CMP~LP 


REL 


58 


0000003A 


COM? 


DREG 


26 


00000006 


DO 


DREG 





00000000 


Dl 


DREG 





00000001 


D2 


DREG 





00000002 


D3 


DREG 





00000003 


D4 


DREG 





00000004 


D5 


DREG 





00000005 


D6 


DREG 





00000006 


D7 


DREG 





00000007 


DONE 


REL 


72 


0000005A 


FOUND 


REL 


69 


00000052 


I 


AREG 


IS 


00000001 


I COUNT 


DREG 


22 


00000002 


IOFFSET 


DREG 


20 


00000000 


ISTR 


AREG 


17 


00000003 


I LOOP 


REL 


42 


00000016 


J~ 


AREG 


16 


00000002 


JCOUNT 


DREG 


23 


00000003 


JOFFSET 


DREG 


21 


00000001 


JSTR 


AREG 


18 


00000004 


J LOOP 


REL 


46 


0000001E 


LEN 


DREG 


25 


00000005 


N 


DREG 


24 


00000004 


NEXT I 


REL 


70 


00000056 


SP 


AREG 





00000007 


SR 


STREG 





00000006 


STR COMP 


REL 


56 


00000036 


SYMTABLE 


AREG 


14 


00000000 


USP 


STREG 





00000007 
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ASM 



Purpose 

ASM provides the Pascal declarations for a number of routines which are in assembly. ASM also 
contains initialization and utilities used during the boot-up process. 



Usage 

ASM is part of SYSTEM_P. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 



1-129 



1-130 



PAGE 
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13:00 


ASSEMBLY 


OF ASM. TEXT 






PASS 1 


COMPLETE. 


ERRORS: 












1 










I1NAME 


ASM 






2 

3 

4 










SPRINT 
















DEF 


ASM ASM. ASM POUERUP, ASM ERRMSG.G DOLLAR .STACKFUDGE 




5 
6 










DEF 


ASMlUSERPROG'RAM,ASM_CI 


_3"WI TCH , ASfl_FINDROMS , ASM_CPYMSG 




7 
8 








SRC 


HODULE ASM 








9 








SRC 


IMPORT SYSGLOBALS; 






10 








SRC 


EXPORT 








11 








SRC 


TYPE 








12 








SRC 


STRINGMAX 


= STRING[255]; 






13 








SRC 


PROCEDURE 


MOVELEFT (ANYVPR S,D: 


INTEGER; Z: INTEGER); 




14 








SRC 


PROCEDURE 


MOVERIGHT ANYVAR S,D: 


INTEGER; Z:INTEGER ; 




IS 








SRC 


PROCEDURE 


FASTMOVE S,D: 


ANYPTR; Z: INTEGER ; 




16 








SRC 


PROCEDURE 


NEWBYTES(VAR P: ANYPTR 


; Z: INTEGER ; 




17 








SRC 


PROCEDURE 


POWERUP; 






IS 








SRC 


PROCEDURE 


ERRMSG; 






19 








SRC 


PROCEDURE 


FINDROMS; 






20 








SRC 


PROCEDURE 


F PUR ON; 






21 








SRC 


PROCEDURE 


FrPYRFAD (SECTOR: INTEGER; ANYVAR BUFFER: INTEGER); 




22 








SRC 


PROCEDURE 


FLPY URT (SECTOR: INTEGER; ANYVAR BUFFER: INTEGER); 




23 








SRC 


PROCEDURE 


FLPYffREADfSECTOR COUNT 
FLPYMWRITE (SECTOR" COUN 
FLPYINIT(PTR: ANYPTR; 


. SECTOR: INTEGER: ANYVAR 8UFFER: INTEGER); 
T, SECTOR: INTEGER; ANYVAR BUFFER: INTEGER); 




24 








SRC 


PROCEDURE 




25 








SRC 


PROCEDURE 


I: SHORTINT); 




26 








SRC 


PROCEDURE 


SETINTLEVEL (LEVEL: INTEGER); 




27 








SRC 


FUNCTION 


INTLEVEL: INTEGER; 






28 








SRC 


PROCEDURE 


NEUWORDS(VAR P: ANYPTR 
USERPROGRAM (EXECLOC.I 
SAPPEND(VAR DEST : STRI 


; UORDSIZE: INTEGER); 




29 








SRC 


PROCEDURE 


NITSP: INTEGER); 
NG;SRC:STRINGMAX); 




30 








SRC 


PROCEDURE 




31 








SRC 


FUNCTION 


IAND(A,B: INTEGER): INTEGER; 




32 








SRC 


FUNCTION 


IOR (A.B: INTEGER): INTEGER: 




33 








SRC 


PROCEDURE 


CI SWITCH; 






34 








SRC 


PROCEDURE 


INTTVECTS; 






35 








SRC 


PROCEDURE 


CPYMSG(MSG: STRING2SS) 


; 




36 
37 








SRC 


ENO; 








38 
39 










REFR 


FS FWRITESTRINT.INITLOAD INITLOAD 




40 










REFA 


SYSGLOBALS. LOADER 
EQU SYSGLOBALS-2 






41 




FFFF 


FFFE 


ESCAPECODE 






42 




FFFF 


FFF6 


RECOVERBLOCK 


EQU SYSGLOBALS-10 






43 




FFFF 


FFF2 


HEAPPOINTER 


EQU SYSGL0BALS-14 






44 




FFFF 


FFEE 


HEAPBASE 


EQU SYSGLOBALS-18 






45 




FFFF 


FFEA 


IORESULT 


EQU SYSGLOBALS-22 






46 
47 
48 




FFFF 


FFBA 


SYSDEFS 


EQU LOADER-70 


LINKED LIST OF PERMANT PROGRAMS 






0000 


1388 


SUPSTACKSPACE 


EQU 5000 SPACE 


FOR SUPERVISOR STACK 




49 
SO 
SI 




0000 


01F4 


STACKFUDGE 


EQU 500 SLOP SPACE FOR STACK OVERFLOW CHECK 






FFFF 


FB2E 


G DOLLAR 


EQU SFFFFFB2E MAGIC 


NUMBERS, CONSULT 'POUERUP' LISTING 




52 




FFFF 


FB22 


IfJlTSTACK 


EQU SFFFFFB22 






S3 




FFFF 


FB26 


INITPC 


EQU JFFFFFB26 






54 




FFFF 


FB2A 


INITRECOVER 


EQU SFFFFFB2A 






55 
56 
S7 




FFFF 


FB48 


INITSR 


EQU SFFFFFB48 








FFFF 


FDCE 


LOUMEM 


EQU SFFFFFDCE BOOT ROM DEFINED ADDRESSES 




58 




FFFF 


FBOO 


HIGHMEM 


EQU SFFFFFBOO LEAVES 


ROOM FOR VECTORS, MONITOR STUFF, ETC. 
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ASSEMBLY 


DF ASM. TEXT 






59 




FFFF 


FFS2 


TRAPU 


EQU SFFFFFFS2 






60 




FFFF 


FF58 


TRAP10 


EQU SFFFFFFS8 






61 
62 




FFFF 


FF94 


TRAPO 




EQU SFFFFFF94 






63 
64 




0000 


0150 


CRTMSG 


EQU $150 






65 








*CRTCLEAR 


EQU $148 CAN'T 


USE DUE TO BOOT ROM BUG 




66 
67 
68 




FFFF 


FED2 


SYSFLAG 


EQU -302 








0000 


4EF9 


JMP 




EQU $4EF9 






69 
70 
71 




0000 


0004 


RETURN 


EQU A4 






72 
73 
74 




0000 


0000 


LOUCODE EQU * 




LOWEST CODE LOCATION 




75 
76 
77 




0010 


0000 


HIGHCODE EQU *+ 


S100000 


1 MEGABYTE MAX ROM AREA 




00000000 


FO 






DC.B 


$F0 $FF 'P' 1 
O.INITLdAD JNITL0AD-* 


ROM HEADER 




78 


00000004 


0000 


0000 




DC.L 


CHECKSUM, EXECUTION ADDRESS 
IDENTIFICATION JUNK 




79 
80 


OOOOOOOC 


00 






DC.B 


0,0,0,0,0,0" 




81 
82 




0000 


0012 


AS(1_P0UIERUP 


EQU * 






83 


00000012 


285F 






MOVEA.L 


(SP1+, RETURN 
LOUCOOE.SP 
LOUMEM, SP 






84 


00000014 


4FFA 


FFEA 




LEA 


SOFT SYSTEM STACK = JUST BELOW CODE 




85 


00000018 


BFF8 


FDCE 




CMPA.L 


TEST FOR HARD OR SOFT SYSTEM 




86 


0000001C 


6204 






BHI.S 


SOFT 


SOFT IF SP > LOUMEM" 




87 


0000001E 


4FF8 


FBOO 




LEA 


HIGHMEM,SP 


HARD SYSTEM STACK = HIGH MEMEMORY 




88 
89 
90 




0000 


0022 


SOFT 


EQU * 








00000022 


4BEF 


EC78 




LEA 


-SUPSTACKSPACE(SP),AS 


ALLOCATE OPERATING SYSTEM STACK 




91 


00000026 


48ED 


8000 




LEA 


-32768(AS) .AS 
AS,G_DOLLAR 


SYSTEM GLOBALS START AT 32766 (A5) 




92 
93 
94 


0000002A 


21CD 


FB2E 




MOVE.L 


SAVE FOR ISR's 




0000002E 


2B78 
FFF2 


FDCE 




MOVE.L 


LOWMEM, HEAPPOINTER (AS) 


INITIALIZE HEAP 




95 
96 
97 
98 


00000034 


46FC 


2000 




MOVE 


#$2000, SR 


ENABLE INTERRUPTS 




00000038 


41F8 


FFS2 




LEA 


TRAP11.A0 


SUPERVISOR CALL TRAP 




99 


0000003C 


30FC 


4EF9 




MOVE 


#JMP, (A0) + 
SUPERCALL,A1 






100 


00000040 


43FA 


0026 




LEA 






101 
102 
103 


00000044 


20C9 






MOVE.L 


Al, (A0) + 












* 


LEA 


TRAP10,A0 


ESCAPE(N) TRAP 




104 


00000046 


30FC 


4EF9 




MOVE 


#JMP, (A0)+ 






10S 


0000004A 


43FA 


0016 




LEA 


ESCN,A1 






106 


0000004E 


20C9 






MOVE.L 


Al, (A0)» 






107 


















108 


00000050 


41F8 


FF94 




LEA 


TRAPO, AO 


COMPILED LINE TRAP 




109 


00000054 


30FC 


4EF9 




MOVE 


#JMP, (A0)+ 
P BREAK, Al 






110 


00000058 


43FA 


001C 




LEA 






111 
112 
113 
114 


0000005C 


20C9 






MOVE.L 


AT, (A0) + 






0000005E 


4ED4 






JMP 


(RETURN) 


ALL DONE 
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OF ASM. TEXT 






115 
116 
117 


00000060 


4E7S 




ASM_ASr 


RTS 








00000062 


2E6D 


FFF6 


ESCN 


MOVER. L 


REC0VERBL0CK(A5) ,SP 




118 


00000066 


4E75 






RTS 








119 


















120 




0000 


0068 


SUPERCALL EQU * 




TRfiP #11, GETS INTO SUPERVISOR MODE, SRVES SR 




121 


00000068 


2F2F 


0002 




MOVE.L 


2(SP) ,-(SP) 


COPY RETURN ADDRESS 




122 


0000006C 


3F6F 
0008 


0004 




MOVE 


4(SP),8(SP) 


MOVE STATUS REGISTER UP 




123 


00000072 


2E9F 






MOVE.L 


(SP)+,(SP) 


MOVE RETURN ADDRESS UP 




124 
125 
126 


00000074 


4E75 






RTS 




RETURN TO CALLER IN SUPERVISOR MODE 




00000076 


S4AF 


0002 


P_BREAK 


ADDQ.L 


#2,2(SP) 






127 


0000007A 


4E73 






RTE 








128 


















129 




0000 


007C 


BSM_USERPROGRAM 


EQU * 


PROC USERPROGRAM(ENTRYPOINT,INITSTRCK: INTEGER) 




130 


0000007C 


265F 






MOVEA.L 


(SP)+,A3 


RETURN ADDRESS 




131 


0000007E 


205F 






MOVEA.L 


SP *,B0 


INITIAL SP 




132 


00000080 


225F 






MOVEA.L 


SP +.A1 
A3,-(SP) 


INITIAL PC 




133 
134 
13S 


00000082 


2F0B 






MOVE.L 


RESTORE RETURN 




00000084 


45E8 


FEOC 




LEA 


-STACKFUDGE(AO) 


,A2 




136 


00000088 


B5ED 


FFF2 




CMPA . L 


HERPPOINTERfAS) 


,A2 COMPARE 




137 


0000008C 


6202 






BHI.S 


*+4 


TEST 




138 
139 
140 


0000008E 


4E42 






TRAP 


#2 


STACK OVERFLOW 




00000090 


2F2D 


FFF6 




MOVE.L 


REC0VER8L0CK(AS 


),-(SP) TRY 




141 


00000094 


2F0E 






MOVE.L 


A6,-(SP) 
USER RECOVER 


SAVE A6 




142 


00000096 


4879 


002E 




PEA 


RECOVER CODE 




143 
144 
145 


0000009R 


284 F 


FFF6 




MOVE.L 


SP,RE"C0VERBL0CK(A5) 




0000009E 


21CF 


FB2A 




MOVE.L 


SP,INITRECOVER 


SAVE FOR DEBUGGER 




146 
147 

148 


O0OO00A2 


21C9 


FB26 




MOVE.L 


Al.INITPC 


SAVE FOR DEBUGGER 




OO0OO0A6 


4DDS 






LEA 


(A5) ,A6 
AO.USP 
#$0000, SR 


FRAME POINTER 




149 


OOOOO0A8 


4E60 






MOVE 


SET UP STACK 




150 
151 
152 


OOOOOORA 


46FC 


0000 




MOVE 


GO INTO USER MODE 




OOOOOOAE 


4SEF 


FFF8 




LEA 


-8(SP).A2 
A2.INITSTACK 


SPACE FOR RETURN ADDRESS, DYNAMIC LINK 




153 


OOOOO0B2 


21CA 


FB22 




MOVE.L 


SAVE NON-LOCAL GOTO 




154 


OO0OO0B6 


40F8 


FB48 




MOVE 


SR.INITSR 
HEAPBASE(AS) 


SAVE FOR STOP KEY 




155 
156 
157 
158 
159 


OOOOOOBA 


42AD 


FFEE 




CLR.L 


FOR MEMORY MANAGER 




OOOOOOBE 


4E91 






JSR 


(Al) 


CALL USER PROGRAM 




OOOOOOCO 


426D 


FFFE 




CLR.U 


ESCAPEC0DE(A5) 


NORMRL EXIT 




160 


000000C4 


4E4A 






TRAP 


#10 


ESCAPE (0), DONE TO CLOSE FILES 




161 




0000 


00C8 


USER_RECOVER 


EQU * 






162 


000000C6 


2CSF 






MOVEA.L 


(SP)+,A6 


RESTORE A6 




163 


000000C8 


2BSF 


FFF6 




MOVE . L 


SP ♦,REC0VERBL0CK(AS) RESTORE RECOVER BLOCK 




164 


oooooocc 


204F 






MOVEA.L 


SP,AO 


SAVE STACK POINTER 




165 


OOOOOOCE 


4E4B 






TRAP 


#11 


GET INTO SUPERVISOR MODE 




166 


OOOOOODO 


2E48 






MOVEA.L 


AO,SP 


RESTORE STACK POINTER 




167 


000000D2 


4E75 






RTS 








168 


















169 




0000 


00D4 


ASM_CI_ 


SUIITCH EQU * 






170 


OO00O0D4 


205F 






MOVEA.L 


(SP)+,AO 


RETURN ADDRESS 
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171 


00000006 


4E4B 






TRAP 


#11 


GET ONTO SUPERVISOR STACK 




172 


00000008 


544F 






ADDQ 


#2,SP 
(A6) 


DISCARD SR 




173 


OOOOOODA 


4ED0 






JMP 


DONE 




174 


















175 




OOOO 


4000 


K16 


EQU 


$4000 


16 K INCREMENTS 




176 




0000 


0012 


HDLINK 


EQU 


18 


OFFSET OF MODULE DESCRIPTOR 




177 
178 
179 




0000 


0028 


MDSIZE 


EQU 


40 


SIZE OF DESCRIPTOR 






0000 


OODC 


ASrLFINDROMS EQU * 






180 


OOOOOODC 


41FA 


FF22 




LEA 


LOUCODE.AO 


BEGINNING OF SEARCH AREA 




181 


OOOOOOEO 


226D 


FFF2 




MOVEA.L 


HEAPP0INTER(A5) 


,A1 HEAP START 




182 
183 
184 


OOO0O0E4 


202D 


FFBA 




MOVE.L 


SYSDEFS(AS),DO 


LINKED LIST HEAD 




0000OOE8 


0C90 


FOFF 


SEARCH 


CMPI.L 


#$F0FF5080, (AO) 


PASCAL OPTION? 








5080 














185 


OOOOOOEE 


6624 






BNE.S 


NOROM 


NO MATCH 




186 
187 
188 


OOOOOOFO 


4SE8 


0012 




LEA 


MDLINK(AO) ,A2 


LOCATE DESCRIPTOR 




OOO0OOF4 


4CEA 


18FE 


COPY 


MOVEM.L 


4(A2) ,D1-D7/R3- 


R4 REMAINDER OF MOB 








0004 














189 


OOOOOOFA 


48D1 


18FF 




MOVEM.L 


D0-D7/A3-A4, (Al) COPY ONTO HEAP 




190 


000000 FE 


2009 






MOVE.L 


Al.DO 


INSERT LINK INTO LIST 




191 


00000100 


D3FC 
0028 


0000 




ADDA.L 


#MDSIZE,A1 


ALLOCATE FROM HEAP 




192 


00000106 


2B49 


FFF2 




MOVE.L 


A1,HEAPP0INTER( 


AS) RESTORE HEAP 




193 
194 
195 


0000010A 


2B40 


FFBA 




MOVE.L 


DO,SYSDEFS(AS) 


RESTORE LIST 




OOOOOIOE 


2452 






MOVEA.L 


COPY 


MOVE DOWN CHAIN 




196 


00000110 


220A 






MOVE.L 


TEST FOR NIL 




197 


00000112 


66E0 






BNE.S 


NOT END OF CHAIN 




198 


00000114 


DOFC 


4000 


NOROM 


ADDA.U 


#K16,A0 


NEXT ROM BOUNDARY 




199 


00000118 


B1FC 
0000 


0010 




CMPA.L 


#HIGHC00E,A0 


END OF ROM AREA? 




200 


00O0O11E 


66C8 






BNE.S 


SEARCH 


NOPE 




201 


00000120 


4E75 






RTS 








202 


















203 


















204 








***************** CRT CLEAR ROUTINE **************************************** 




205 




0000 


0122 


CRTCLEAR 


EQU * 






206 


00000122 


4E56 


FFAE 




LINK 


A6,#-82 
(SP) .AO 
#79, DO 
#0,SYSFLAG 






207 


00000126 


41D7 






LEA 






208 


00000128 


704F 






MOVEQ 






209 


0000012A 


0838 


0000 




BTST 


TEST FOR 50 CHAR SCREEN 








FED2 














210 


00000130 


6702 






BEQ.S 


LCI 






211 


00000132 


7031 






MOVEQ 


#49, DO 






212 


00000134 


10FC 


0020 


LCI 


MOVE.B 


#' '(A0)+ 
00, LCI 

(a6) 






213 


00000138 


S1C8 


FFFA 




DBRA 






214 


OOO0O13C 


4210 






CLR.B 






215 


0000013E 


422E 


FFFF 




CLR.B 






216 


00000142 


41D7 




LC2 


LEA 






217 


00000144 


4240 






CLR 






218 


00000146 


102E 


FFFF 




MOVE.B 


-1 (A6),D0 
CRTMSG 






219 


0000014H 


4EB8 


0150 




JSR 






220 


0000014E 


522E 


FFFF 




A03Q.B 


#1,-1 (A6) 
#24,-1 (A6) 






221 


00000152 


0C2E 


0018 




CMPI .B 










FFFF 
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222 

223 
224 
22S 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
24S 
246 
247 
248 
249 
250 
251 
252 
253 
2S4 
255 
256 
257 
258 
2S9 
260 
261 
262 
263 
264 

265 

266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 



00000158 66E8 
0000015A 4E5E 
0000015C 4E75 



BNE.S 

UNLK 

RTS 



LC2 
A6 



***************** INTRODUCTORY MESSAGE ROUTINE 



**************************** 



0000015E 
00000162 
00000164 
00000168 
0000016C 
0000016E 
00000170 
00000172 
00000174 
00000176 
0000017A 
0000017C 
00000180 



0000 01SE 

4EBA FFC2 

7000 

41 FA 0088 

4EB8 0150 

7002 

225F 

205F 

4241 

1218 

4230 1000 

2F09 

4EB8 0150 

4E7S 



COPYRIGHT NOTICE 



ASM_CPYt1SG 
JSR 
MOVEQ 
LEA 
JSR 
MOVEQ 
MOVEA. 
MOVEA. 
CLR 
MOVE.B 
CLR.B 
MOVE.L 
JSR 
RTS 

***************** PRIMITIVE ERROR MESSAGE ROUTINE ************************* 



EQU * 

CRTCLEAR 

#0,00 

M.AO 

CRTMSG 

#2. DO 
SP)+,A1 
SP)+,AO 

(A0)+.D1 
0(A0,D1) 
Al -ISP 
CRTMSG 



FFFF FFAA STR EQU -86 

FFFF FFFC I EQU -4 

00000182 4281 INT CLR.L 

00000184 122E FFAA MOVE.B 

00000188 5281 ADDQ.L 

0000018A 2D41 FFFC MOVE.L 

0000018E 1F3C 0060 MOVE.B 

00000192 486E FFAA PEA 

00000196 486E FFFC PEA 

0000019A 2F00 MOVE.L 

0000019C 3F3C FFFF MOVE.UI 

000001AO 4EBA FESE JSR 

000001A4 4E7S RTS 



01 

STR(A6),01 

#1,D1 

01,I(A6) 

#80, -(SP) 

STR(A6) 

I (06) 

DO,-(SP) 

#-l,-(SP) 

FS FURITESTRINT 



000001A6 
000001A8 
000001AC 
000001B0 

000001B6 

000001BC 
000001CO 
000001C2 
000001C6 
000001C8 
000001CA 
000001CC 
000001D0 
00000102 
000001D4 
000001D8 



0000 
4E4B 
4ES6 
4EBA 
4CFA 
0062 
48EE 
FFAA 
202D 
61C0 
302D 
48C0 
61B8 
4280 
41EE 
4241 
1210 
4230 
5248 



01A6 

FFAA 
FF74 
003E 

003E 

FFEA 

FFFE 



FFAA 
1001 



ASM ERRMSG EQU 
TRAP 
LINK 
JSR 
MOVEM.L 



#11 

A6,#STR 
CRTCLEAR 
M1,D1-DS 



MOVEM.L D1-05,STR(A6) 



MOVE.L 

BSR.S 

MOVE.U 

EXT.L 

BSR.S 

CLR.L 

LEA 

CLR 

MOVE.B 

CLR.B 

AOOQ 



IORESULT(AS),DO 

INT 

ESCAPECODE(AS),DO 

DO 

INT 

DO 

STR(A6),A0 

01 

(A0),D1 

1 (A0.D1) 

#1,A0 
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277 


000001DA 


4EB8 


0150 


278 








279 


000001DE 


701C 




280 


000001E0 


S1C9 


FFFE 


281 


000001E4 


S1C8 


FFFA 


282 








283 


000001E8 


4ESE 




284 


000001EA 


46DF 




285 


000001EC 


4E75 




286 








287 


000001EE 


43 




288 


00000216 


12 




289 








290 








291 








292 








PASS 1 


ERRORS: 






PASS 2 


ERRORS: 







M 
Ml 



JSR 

MOVEQ 

DBRA 

DBRA 

UNLK 

MOVE 
RTS 

DC.B 

DC.B 



NOSYMS 
END 



CRTMSG 

#28,00 

D1,L 

DO,L 

A6 
(SP)+,SR 



'Copyright 1982 Hewlett-Packard Company. ',0 
18,'IORESULT, ERROR = ' 
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BOOTDEFS 



Purpose 

BOOTDEFS defines several entry points and table addresses within the Boot ROM. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PAGE 

PASS 1 

1 
2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
S3 
54 
55 
56 
57 
58 
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COMPLETE. ERRORS 
00000000 



rorg 

nosyms 

* This file contains hardware dependent addresses for the 
* 

* manufacturing unit 

* Chipmunks 



The followin 
eva 



following are the address 
iuation or Basic functions 



0000 3C26 cff_loga equ 

0000 3C3E cff_logb equ 

0000 3C56 cff_expp equ 

0000 3C6E cff_expq equ 

0000 3C8E cff sin 



are the addresses of the coefficients used in the 
LOG coefficients 
EXP coefficients 



$3c26 
$3c3e 



$3cS6 
$3c6e 



equ $3c8e 

0000 3CCE cff_tanp equ $3cce 

0000 3CEE cff_tanq equ $3cee 

0000 3016 cff_asnp equ $3dl6 

0000 3D3E cff_asnq equ $3d3e 

0000 3066 cff_atnp equ $3d66 

0000 3D86 cff_atnq equ $3d86 

0000 3DR6 cff_powp equ $3da6 

0000 3DC6 cff_powq equ $3dc6 



SIN/COS coefficients 
TAN coefficients 

ASN/ACS coefficients 

ATN coefficients 

x~y coefficients 



* The following are address of tables used in t 

* conversions and in the evaluation of x"y. 



he BCD <-> real 



0000 3658 tb_pwt 

0000 3698 tb pwt8 

0000 36B8 tb~pwt4 

0000 36D8 tb_pwtt 

0000 3AE0 tb auxpt 

0000 3B28 tb bed 

0000 3BC2 tb_bin 

0000 3DFE tb al 

0000 3E8E tb a2 



equ 


$3658 


equ 


$3698 


equ 


$36b8 


equ 


$36d8 


equ 


$3ae0 


equ 


$3b28 


equ 


$3bc2 


equ 


$3dfe 


equ 


$3e8e 



BCD <-> real tables 



x A y tables 



* The following are compiler support routines 

* in the boot rom. 
* 

def asm_assign,asm T difference 

def asm_equal, asm_Tn,asm_inclusion 

def asm_intersect , asm_mpy, asm_nequal 

def asm_union 

def asm_rmovel, asm_rmover 

def asm_pos 
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S9 




0000 


3372 


asm assign 


equ 


$3372 


60 




0000 


3488 


asm_difference 


equ 


$3488 


61 




0000 


330A 


asm_equal 


equ 


$330a 


62 




0000 


34DA 


asm_in 


equ 


$34da 


63 




0000 


33 F4 


asm_inclusion 


equ 


$33f4 


64 




0000 


344 A 


asm_intersect 


equ 


$344a 


65 




0000 


31A6 


asrnjnpy 


equ 


$31a6 


66 




0000 


3300 


asm nequal 


equ 


$3300 


67 
68 
69 




oooo 


3398 


asm_union 


equ 


$3398 




0000 


3108 


asm_rmovel 


equ 


$3108 


70 




0000 


31SA 


asm_rmover 


equ 


$315a 


71 
72 
73 




0000 


361E 


asm_pos 


equ 


$361e 








end 






PASS 1 


ERRORS: 













PASS 2 


ERRORS: 
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COMASM 



Purpose 

COMASM contains common I/O driver assembly language support routines and binary 
operations. 



Usage 

The buffer, interrupt and DMA facilities are used by HPIB, GPIO and RS232 low-level drivers, 
The binary operations are exported for common usage (and are used in the I/O library). 



Requirements 

I/O library kernel (IODECLARATIONS, etc.; 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PfISS 1 COMPLETE. ERRORS: 
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3 ******************************************************************************** 

4 * 

5 * COPYRIGHT (C) 1982 BY HEULETT-PACKARD COMPANY 

6 * 

7 ******************************************************************************** 

8 * 

9 * 

10 * IOLIB IOCOMASM 

11 * 

12 * 

13 ******************************************************************* ************* 

14 * 

15 * 

17 * Library - IOLIB 

18 * Module - IOCOMASM 

19 » 

20 * Purpose - This set of assembly language 

21 * code is intended to be used as 

22 * a support module for I/O drivers 

23 * 

24 » Date - 08/18/81 

25 » Update - 09/22/82 

26 * Release - 09/22/82 

27 * 

29 * Source - IOLIB :C0MASM. TEXT 

30 * Object - IOLIB:COMASM.CODE 

31 * 

32 * 

33 *********** ********************************************* ***** ******** *********** 

34 * 

35 * 

36 * RELEASED 

37 * VERSION 2.0 

38 * 

39 * 

40 ******************************************************************************** 
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PAGE 

42 
43 

44 
45 
46 
47 
48 
49 
SO 
SI 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
63 
63 
63 
63 
64 
65 
66 
67 
68 
69 
70 
71 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

* 

» PASCAL DEFINITION OF MODULE 

* 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

MNAME IOCOMASM 



SRC MODULE IOCOMASM; 

SRC IMPORT iodeclarations; 

SRC EXPORT 



SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC END; 



FUNCTION dma_request 

PROCEDURE dma release 

FUNCTION bit_set 

FUNCTION binand 

FUNCTION binior 

FUNCTION bineor 

FUNCTION bincmp 
< IOCOMASM ) 



DEF IOC0MASM_IOC0MASM 
DEF IOCOMASM_DMA_REQUEST 
DEF IOCOMASM DMA RELEASE 
DEF IOCOMASM BIT SET 
DEF IOCOMASM BINAND 
DEF IOCOMASM BINIOR 
DEF IOCOMASM BINEOR 
DEF IOCOMASM BINCMP 



b 
( * 

y 

( * 

<* y 



temp : ANYPTR 
temp : ANYPTR 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 



INTEGER; 



BOOLEAN 

INTEGER 

INTEGER 

INTEGER 
INTEGER 



4 [2.0] 11/4/82 16:16:33 IOLIB IOCOMASM - COMMON ASSEMBLY ROUTINES 

xxxxxxxxxxxx**x*x***xx**xxx*xxxxxxxxx*xxxx*xxxxx*xxxxx*xx*xx*x**xx*xxxxxxxxx*xxx 

X 

x SYMBOLS FOR EXPORT - COMMON ASSEMBLY LANGUAGE ROUTINES 



73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 



90 
91 
92 
93 



x THE SYMBOLS DO NOT HAVE PASCAL ENTRY 

* POINTS SINCE THEY ARE ONLY USED BY 

» ASSEMBLY LANGUAGE MODULES 

X 

xxxxxxxxxx*xxxxx**x*x*xx*xxxxxxxxxxxxxxxxxxxxxx*xxxxxxxxxxxxxxxxxxx*xxxxxxxxxxxx 

DEF DROPDMA 

DEF GETDMA 

DEF TESTDMA 

DEF LOGINT 

DEF LOGEOT 

DEF STBSY 

DEF STCLR 

DEF DMA STBSY 

DEF ITXFR 

DEF ABORT 10 

DEF UAIT TFR 

DEF CHECK TFR 
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96 
97 
98 
99 

100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 



module Initialization 



0000 0000 IOCOMASM_IOC0MASM EQU 
00000000 4E75 RTS 



0000 0002 
00000002 20SF 
00000004 201F 
00000006 221F 
00000008 4202 
OOOOOOOA 0101 
OOOOOOOC 6702 
OOOOOOOE 7401 
00000010 1E82 
00000012 4ED0 



* bit test 

* 

iocomasm bit set 
~ moVea.l 

MOVE . L 
MOVE . L 
CLR.B 
BTST 
BEQ.S 
MOVEQ 
BITT EXIT MOVE.B 

jnp 



-,A0 
*,D0 
•,D1 



EQU 

SP) 

SP 

SP) 

2 
D0.D1 
BITT EXIT 
#1,D2 
D2,(SP) 
(A6) 



binary and 



00000014 20SF 
00000016 201F 
00000018 221F 
0000001A C280 
0000001C 2E81 
0000001E 4ED0 



0000 0014 IOCOMASM 8INAN0 



MOVEA.L 

MOVE.L 

MOVE.L 

AND.L 

HOVE.L 

jnp 



EQU * 
SP)+,AO 
SP +,00 
SPj + ,01 
0,01 

Dl (SP) 

(HO) 



binary inclusive or 



00000020 20SF 
00000022 201F 
00000024 221F 
00000026 8280 
00000028 2E81 
0000002A 4ED0 



0000 0020 IOCOMASM_BINIOR 



novE. 

MOVE. 
OR.L 
MOVE. 
JMP 



EQU 
SP 



■,A0 



SP +,D0 



SP 

(b6j 



.01 
(SP) 



binary exclusive or 



0000002C 205F 
0000002E 201F 
00000030 221F 
00000032 B1S1 
00000034 2E81 
00000036 4ED0 



0000 002C IOCOMASM BINEOR 



MOVEA.L 

MOVE.L 

MOVE . L 

EOR.L 

MOVE.L 

JMP 



EQU 
SP 
SP 
SP 
0, 

01. ( 

(f>6) 



+ ,A0 
+ ,D0 
+ ,D1 

(SP) 



binary complement 



0000 0038 IOCOMASM BINCMP 

00000038 20SF MOVEA.L 

0000003A 201F MOVE.L 

0000003C 4680 NOT . L 

0000003E 2E80 MOVE.L 

00000040 4E00 JMP 



EQU * 
SP)+,A 
SP)+,D 


DO.(SP) 

(HO) 



save return address 
get bit # 
get numeric value 
clear indicator 
test bit in value 

if bit set set indicator 

push result 
return 



save return address 
get last param 
get first param 
perform AND 

push result 
return 



save return address 
get last param 
get first param 
perform OR 
push result 
return 



save return address 
get last param 
get first param 
perform XOR 
push result 
return 



save return address 
get param 
perform complement 
push result 
return 
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153 
153 
153 
153 
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159 ******************************************************************************** 

160 * 

161 * modified: 02/22/82 JPC added parm to user EOT & ISR proc's 

162 * 

163 ******************************************************************************** 

164 * 

165 * HPL CONVENTIONS 

166 * 

167 * 

168 * Much of this code is taken intact from the 9826 HPL 

169 * language system EIO ROM ( extended I/O ROM J. 

170 * ".--•-- ----- « it ten - ' ■'■■•■ 

171 * Tne Pascal that .. ;\ *fe tlwirtg this cone uses 

172 * the stack for parameter passage. The HPL code 

173 * uses the Ax and Dx registers for all parameters. 

174 * The Pascal driver entry points on the previous pages 

175 * take care of getting the parameters into the correct 

176 * registers. 

177 * 

178 * 

179 * GENERAL HPL ENTRY/EXIT CONDITIONS: 

180 * 

181 * 01 . L = CARD ADDRESS 

182 * P.2.L = DRIVER TEMP fiDDRESS 

183 * UNLESS OTHERWISE INDICATED, THESE REGISTERS ARE UNALTERED. 

184 * 

185 * 

186 * NED ENTRY/EXIT CONDITIONS FOR PASCAL USE : 

187 * 

188 * A3.L = BUFFER CONTROL BLOCK ADDRESS 

189 * In addition to the A1/B2 convention, Pascal will use 

190 * A3 for a pointer to tne buffer control block. 

191 * The HPL system kept much of the transfer 

192 * information in the s.c. temps. 

193 * 

194 * TIME0UT(B2) = contains timeout information 

195 * Timeout was a global temp in HPL and a timeout 

196 * generated an error. 

197 * In PASCAL each card has a timeout value stored in 

198 * its temporary area. A timeout error 

199 * generates an ESCAPE ( which can be trapped ). 

200 * 

201 * 

202 ******************************************************************************** 
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9 C2.0] 11/4/82 


16:16:33 IOLIB 


COMDCL - COMMON EQUATES AND DEFINITIONS 




204 






I******************************************************************************* 




205 






* 








206 






* 








207 






* 


DRIVER TEMPS TEMPLATE 






208 






* 








209 






* 


OFFSET FROM A2 






210 






* 








211 






* 


HPL DECLARATIONS ( 


MODIFIED ) 




212 






* 








213 






* 








214 






******************************* 


************************************************* 




215 


0000 


OOOO 


ISR ENTRY 


EQU . . 19 


PASCAL ISR LINK & UNLINK area 




216 


0000 


0014 


USER" ISR 


EQU 20 


user ISR: do NOT change the proc/stat link/parm ordering. 


i ! 


217 


0000 


0014 


H ISU PR 


EQU 20 . .23 


procedure pt r 
static link 




218 


0000 


0018 


H ISR SL 


EQU 24 . .27 




219 


0000 


001C 


H ISR PM 


EQU 28 . .31 


parameter 




220 


0000 


0020 


C ADR 


EQU 32 . .35 


card address 




221 


0000 


0024 


BUFI OFF 


EQU 36 . .39 


buffer pointer offset 




222 


0000 


0028 


BUFO OFF 


EQU 40 . .43 


buffer pointer offset 




223 


0000 


002C 


EIRB OFF 


EQU 44 


e i r byte 




224 


0000 


002D 


10 SC 


EQU 45 


select code ( i.e. 7, 22, etc. ) 




225 


0000 


002E 


TIMEOUT 


EQU 46 . .49 


timeout value 




226 






* 




=0 : no timeout 




227 






* 




to : value of timeout 




228 


0000 


0032 


MA U 


EQU 50 . .51 


word access to my address 




229 


0000 


0033 


nfl 


EQU 51 


byte access to my address 




230 


0000 


0034 


AVAIL OFF 


EQU 52 ..?? 


standard space taken from temps 




231 






* 


52 ..83 


normal cards ( 32 bytes ) 




232 






X 


52 ..179 


98628 card j 128 bytes ) 




PAGE 
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COMDCL - COMMON EQUATES AND DEFINITIONS 




234 






********** 


********************************************************************** 




23S 






* 








236 






* TRANSFER OFFSETS IN BUFFER CONTROL BLOCK 




237 






* 








238 






* 


OFFSET FROM A3 






239 






* 








240 






* 


PASCAL DECLARATION 






241 






* 








242 






******************************* 


************************************************* 




243 


0000 


OOOO 


TTtIP OFF 


EQU . .3 


pointer to driver temp offset 




244 


0000 


0005 


T SC OFF 


EQU 5 


transfer select code 




245 


0000 


0007 


TfiCT OFF 


EQU 7 


actual transfer mode 




246 


0000 


0009 


TUSR OFF 


EQU 9 


t ransfer mode 




247 






* 




00 - not used 




248 






* 




01 serial DMA 




249 






* 




02 serial FHS 




250 






* 




03 serial FASTEST ( DMA or FHS ) 




251 
252 






* 




04 - not used 
















253 






* 




05 overlp INTR 




254 






* 




06 overlp DMA 




255 






* 




07 overlp FHS ( BURST ) 




256 






* 




08 overlp FASTEST DMA or BURST ) 




257 






* 




09 overlp OVERLAP ( DMA or INTR ) 




258 


0000 


OOOA 


T BUI OFF 


EQU 10 


transfer byte/word indicator 




259 






* 




= byte / 1 = word 
transfer EOI/END indicator 




260 


0000 


OOOB 


TEND OFF 


EQU 11 




261 






* 




= no eoi / 1 = eoi sent or searched for 




262 


0000 


OOOD 


TDIR OFF 


EQU 13 


transfer direction 




263 






* 




= input / 1 = output 




264 


0000 


OOOE 


TCHR OFF 


EQU 14 . .15 


transfer terminate character 




265 






* 




-1 = no termination character 




266 


0000 


0010 


TCNT OFF 


EQU 16 . .19 


transfer count 




267 


oooo 


O014 


TBUF~OFF 


EQU 20 . .23 


transfer buffer pointer 




268 


0000 


0018 


TBSZ OFF 


EQU 24 . .27 


transfer buffer maximum size 




269 


0000 


001C 


TEMP OFF 


EQU 28 . .31 


transfer empty pointer pointer 
transfer fill pointer 




270 


0000 


0020 


TFIL OFF 


EQU 32 . .35 




271 


oooo 


0024 


T PR OFF 


EQU 36 . .39 


transfer pointer to eot procedure 




272 






* 




NIL no procedure 




273 


0000 


0028 


T SL OFF 


EQU 40 . .43 


transfer eot proc static link 




274 


oooo 


002C 


T PM OFF 


EQU 44 . .47 


transfer eot proc parameter 




275 


oooo 


0030 


T DMRPRI 


EQU 48 


dma priority request 




276 






* 








277 






* TRANSFER EQUATES 






278 






* 








279 


oooo 


0001 


TT INT 


EQU 1 


interrupt 




280 


oooo 


0002 


TT DMA 


EQU 2 


DMA 




281 


oooo 


0003 


TT BURST 


EQU 3 


burst 




282 


oooo 


0004 


TT FHS 


EQU 4 


fast handshake 
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285 








******************************************************************************** 




28$ 








* 




287 








* EXTERNAL REFERHNCES for escape 




288 








* 




289 








***************************************************************************x**** 




290 








REFA iodeclarations reference the io lib var. area 




291 








REFA sysglobals 




292 












292 












293 








XXXX*XX**X*X**XMXXX*X*XXXX***XXXXX*XX**X*XX* XX* XX* ****** XXX* XX* XXXXXX *********** 




294 








* 




295 








* Escape code values 




296 








* 




297 








************** XX* XX* *X**XXX****XX*X********* **************************** ******** 




298 




0000 


0001 


NO CURD EQU 1 no interface 




299 




0000 


0002 


NOT HPIB EQU 2 not an hpib interface 




300 




0000 


0003 


NO ffCTL EQU 3 no active controller 




301 




0000 


0004 


NO DVC EQU 4 sc ( not device ) specified 




302 




0000 


0005 


NO SPACE EQU 6 not enough space in the buffer 




303 




0000 


0006 


NO DATA EQU 6 not enough data left in the buffer 




304 




0000 


0007 


TFR" ERR EQU 7 tfr error 




305 




0000 


0008 


SC B"USY EQU 8 sc is currently busy 
BUF BUSY EQU 9 the buffer is busy 




306 




0000 


0009 




307 




0000 


OOOfi 


TCNTERR EQU 10 bad count 




308 




0000 


OOOB 


BAOTflO EQU 11 bad timeout value 




309 




0000 


OOOC 


NO DRV EQU 12 no driver 




310 




0000 


OOOD 


NO DMA EQU 13 no dma installed 




311 




0000 


OOOE 


NO WORD EQU 14 no word transfers allowed 




312 




0000 


OOOF 


NOT TALK EQU 15 not addressed as talker 




313 




0000 


0010 


NOT LSTN EQU 16 not addressed as listener 




314 




0000 


0011 


TMO ERR EQU 17 timeout 




315 




0000 


0012 


NO SCTL EQU 18 not system controller 




316 




0000 


0013 


BAD" RDS EQU 19 bad read status / write control 




317 




0000 


0014 


BAD SCT EQU 20 bad set/clear/test 




318 




0000 


001S 


CRD DUN EQU 21 interface is dead 




319 




0000 


0016 


EOD SEEN EQU 22 end of data has happened 




320 




0000 


0017 


I0_fiISC EQU 23 misc. error 




321 












321 












321 












322 




FFFF 


FFE6 


I0E_ERR0R EQU -26 io sub system error escape code 




323 












323 












323 












324 




FFFF 


FFBE 


IOE RSLT EQU I0DECLARATI0NS-66 




325 




FFFF 


FFBA 


I0E_SC EQU I0DECLARHTI0NS-70 




326 












326 












326 












327 




FFFF 


FFFE 


ESC CODE EQU SYSGLOBALS-2 




328 




FFFF 


FFF6 


RCVR"_BLK EQU SYSGLOBALS-10 




329 
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332 








*********X****XX****************XX*X*X*X*XX*X*********X* ****** **X*X**XX**X**X*X* 




333 








* 




334 








* Error escapes 




335 








* 




336 








XX****X****XXXXXXX*X*X*XXXXXXXX*XXXXXXX**XXXX*XX*XXXXXX********X***X*X***X****** 




337 


00000042 


7011 




CTMO ERR MOVEQ #TM0 ERR, DO timeout 




338 


00000044 


eoofl 




BRA.S ESC FRR 




339 


00000046 


700A 




TERR C MOVEQ ttTCNTERR.DO bad transfer specification 




340 


00000048 


6006 




BRA.S ESC ERR 




341 


0000004A 


7007 




TERR 8 MOVEQ #TFR" ERR, DO bad transfer specification 




342 


0000004C 


6002 




BRA.S ESC E~RR 




343 


0000004E 


700D 




TERR D MOVEQ #N0 DMA, DO DMA not installed 




344 








* ~ BRA.S ESC_ERR 




345 












346 












345 












345 












346 


00000050 


48C0 




ESC ERR EXT.L DO 




347 


00000052 


2B40 


FFBE 


MOVE.L DO, IOE RSLT(AS) save io error 
MOVE.B IO SC(A"2),D0 \ get sc for error 
MOVE.L DO. IOE SCJA5) / 
MOVE.U #I0E_ER"R0R,ESC_CODE(A5) give i/o error 




348 
349 


00000055 
0000005A 


102P 
2640 


002D 
FFBA 




350 


0000005E 


3B7C 


FFE6 








FFFE 








351 


00000064 


4E4A 




TRAP #10 escape 
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354 








******************************************************************************** 




355 








* 








356 








* ABORT 10 






357 








* 








358 








* 


USED DURING INITIALIZATION/RESET TO MAKE SURE THERE 




359 








* 


IS NO ACTIVE BUFFER LEFT AROUND. 




360 








* 








361 








* 


ENTRY: A2.L = TEMP POINTER 






362 








* 








363 








» 


USES: D1,D2,D3 AND ROUTINE 


DROPDMA (WHICH USES AO) 




364 








* 








365 








* 


HPL ROUTINE ( MODIFIED ) 






366 








X 








367 








******************************************************************************** 




368 


00000066 


4E4B 




ABORT 10 


TRAP #11 


GET INTO SUPERVISOR MODE, SAVE SR scs 




369 








* scs 


MOVE SR.-(SP) 
ORI t$2700,SR 


\ PREVENT INTERRUPTS FOR A MOMENT. 




370 


00000068 


007C 


2700 




/ 




371 


0000006C 


617C 




AB0RT_I03 


BSR.S ITXFR 


IS THERE A TRANSFER IN PROGRESS? 




372 


0000006E 


672E 






BEQ.S ABORT 102 


IF NOT, DO NOTHING 
ELSE IS IT A DMA? 




373 


00000070 


B23C 


0002 




CMP.B #TT 0HA.D1 
BEQ.S ABOR"T 101 




374 


00000074 


671A 






IF NOT. SKIP 

ELSE FREE UP THE DMA CH, GET COUNT 




375 


00000076 


6100 


01D6 




BSR DROPDHA 




376 


0000007A 


2744 


0010 




MOVE.L D4,TCNT 0FF(A3) 


fix up count 




377 


0000007E 


9684 






SUB.L D4.D3 

TST.B TDIR 0FF(A3) 


fix up actual count 




378 


00000080 


4A2B 


0000 








379 


00000084 


6606 






BNE.S AB OOT 






380 


00000086 


D7AB 


0020 




ADD.L D3.TFIL 0FF(A3) 
BRA.S ABORT Iffl 


if input then update fill 




381 


00000O8A 


6004 










382 


0000008C 


D7AB 


001C 


AB OUT 


ADD.L D3.TERP 0FFJA3) 
MOVE.B #2SS,T_5"C_0FF(A3) 


if output then update empty 
UNBUSY THE BUFFER 




383 


00000090 


177C 


OOFF 


ABffRT_I01 








0005 












384 


00000096 


422B 


0007 




CLR.B TACT 0FF(A3) 


SET TRANSFER TYPE TO NONE 




385 


0000009R 


4294 






CLR.L (A4) 

BRA ABORT 103 


clear buffer pt r 




386 


0000009C 


60CE 






see if there is another 




387 


0000009E 


46DF 




AB0RT_I02 


MOVE (SPl + .SR" 


RESTORE USER MODE scs 




388 


OOOOOOBO 


4E75 






RTS 


scs 




389 








* scs 


RTE 


RESTORE INTERRUPT LEVEL & RETURN 
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391 








******************************************************************************** 




392 








* 








393 








* CHECK TFR 






394 








* 








395 








* 


ROUTINE TO CHECK FOR ACTIVE TRANSFER IN THE OPPOSITE DIRECTION. 




396 








* 


( this is called by a tfr routine on cards 




397 








* 


that can't do bi-directional tfrs ) 




398 








» 


[ gpio and hpib modules 


use this routine ) 




399 








* 


( with a timeout wait ) 






400 








* 








401 








» 


ENTRY: A2.L - TEMP POINTER 






402 








* 


A3.L = BUF CTL BLK POINTER 




403 








* 








404 








* 


EXIT : IF NOT TRANSFER, RETURN 




405 








* 


IF TRANSFER, THEN 


wait until finished 




406 








* 




or until timeout ( if any ) 




407 








* 








408 








******************************************************************************** 




409 


O000OOA2 


4A2B 


OOOD 


CHECK_TFR 


TST.B TDIR 0FF(A3) 


base test on direction 




410 


O0OO0OA6 


6608 






BNE.S CHKT IN 


( if this is in , check out ) 

IS THERE AN output BUFFER ACTIVE? 




411 


O0OO0OPI8 


49EA 


0028 


CHKT_OUT 


LEA BUFO 0FF(A2),A4 




412 


OOOOOOAC 


2214 






MOVE.L (A4)?D1 
BRA.S CHKUAIT 






413 


OOOOOOAE 


6006 






IF SO , THEN UAIT 




414 
















414 
















415 


OOOOOOBO 


49EA 


0024 


CHKT_IN 


LEA BUFI 0FF(A2),A4 


is there an input tfr 




416 

417 


O00O00B4 


2214 




* 


MOVE.L (A4),D1 
BRA.S CHKUIAIT 






418 
















418 
















418 
















419 


00000OB6 


6714 




CHKUIAIT 


BEQ.S CHKEXIT 


exit if no tfr 




420 


000000B8 


242A 


002E 




MOVE.L TIME0UTfA2),D2 
BEQ.S CHECK TFR 


get timeout value 




421 


OOOOOOBC 


67E4 






if timeout = then try forever 




422 


OOOOOOBE 


E18A 






LSL.L #8,D2~ 






423 


OOOOOOCO 


2214 




CHKLOOP 


MOVE.L (A4),D1 
BEQ.S CHKEXIT 


check the buffer again 




424 


000000C2 


6708 






if finished in time then return 




425 


000000C4 


5382 






SUBQ.L *1,D2 


decrement 




426 


000000C6 


66F8 






BNE.S CHKLOOP 






427 


OOOOO0C8 


6000 


FF78 




BRA CTMO ERR 






428 


oooooocc 


4E75 




CHKEXIT 


RTS 
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******************************************************************************** 

* 

» UAITJTFR 

* 

* ROUTINE TO CHECK FOR ACTIVE TRANSFER. 

* ( with a timeout wait ) 
* 

* ENTRY: A2.L = TEMP POINTER 
* 

* EXIT : IF NOT TRANSFER, RETURN 

* IF TRANSFER, THEN wait until finished 

* or until timeout ( if any ) 
* 

* USES: NO REGS OTHER THAN RETURN VALUES. 
* 

* 
******************************************************************************** 



OOOOOOCE 6100 001A UAIT_TFR 

0O00O0D2 6714 

000000D4 2C2A 002E 

00000008 67F4 

OOOOOODA EB8E 

OOOOOODC 610C UIT LOOP 

OOOOOODE 6708 

OOOOOOEO 5386 

000000E2 66F8 

OO0OO0E4 6000 FFSC 

000OOOE8 4E75 UT_DONE 



BSR ITXFR 

BEQ.S UT DONE 

MOVE. I TlRE0UT(A2) ,D6 

BEQ..S WAIT TFR 

LSL.L #S,D6~ 

BSR.S ITXFR 

BEQ.S UT_DONE 

SUBQ.L #1,D6 

BNE.S UIT LOOP 

BRA CTfiO_ERR 

RTS 



quick check for tfr 

and exit 

get timeout value 

if timeout = then try forever 

try 

if finished in time then return 

decrement 



PAGE 16 [2.0] 11/4/82 16:16:33 IOLIB IOCOMASM - TRANSFER SUPPORT 



459 








****** 


460 








* 


461 








* 


462 








* 


463 








* 


464 








* 


465 








* 


466 








* 


467 








* 


468 








* 


469 








* 


470 








* 


471 








* 


472 








* 


473 








* 


474 








* 


475 








* 


476 








* 


477 








****** 


478 


OOOOOOEA 


49EA 


0024 


ITXFR 


479 


OOOOOOEE 


2214 






480 


OOOOOOFO 


6608 






481 


0O00OOF2 


49EA 


0028 




482 


000000F6 


2214 






483 


000OOOF8 


6722 






484 


OOOOOOFA 


2641 




ITXFR3 


485 


OOOOOOFC 


4281 






486 


OOOOOOFE 


122B 


0007 




487 


00000102 


4282 






488 


00000104 


342B 


OOOE 




489 


00000108 


262B 


0010 




490 


0000010C 


206B 


001C 




491 


00000110 


4A2B 


OOOD 




492 


00000114 


66C4 






493 


00000116 


2001s 


0020 




494 


0000011A 


7A01 




ITXFR2 


495 




0000 


one 


STCLR1 


496 


ooooouc 


4E75 




ITXFR1 



******************************************************************* 



ROUTINE TO CHECK FOR ACTIVE TRANSFER. 

ENTRY: A2.L = TEMP POINTER 

EXIT : IF NOT TRANSFER, RET with zero flag set 
IF TRANSFER, RET with not zero 
Dl .U = ACTUAL TFR TYPE 
D2.U = TERMINATING CHAR FROM TEMPS 
D3.L = TRANSFER COUNT FROM TEMPS 

AO.L ■ DATA POINTER FROM TEMPS ( either emtpy or fill ) 
A3.L = BUF CTL BLK POINTER FROM TEMPS 

HPL ROUTINE ( MODIFIED ) 

******************************************************************************** 

■■"" ' BUFFER ACTIVE? 



LEA 


BUFI 0FF(A2),A4 


IS 


THERE AN input 


MOVE.L 


Itxfr? 1 






BNE.S 


IF 


NOT, SKIP 


LEA 


BUFO 0FF(A2) ,A4 


15 


there an output 


MOVE.L 


IT-XFR? 1 






BEQ.S 




-no 



MOVEA.L Dl ,A3 

CLR.L Dl 

MOVE.B TACT_0FF(A3) ,D1 

CLR.L 02 

MOVE.OJ TCHR 0FF(B3),D2 

MOVE.L TCNT_0FF(A3 ,03 

MOVEA.L TEMP_0FF(A3 ,A0 

TST.B TDIR 0FF(A3) 

BNE.S ITXFR2 

MOVEA.L TFIL 0FF(A3),A0 

MOVEQ #1,D5" 

EQU * 

RTS 



ELSE GET BUFFER TYPE UORD 
/ 

GET TERMINATING CHAR 

GET COUNT 

GET EMPTY POINTER 

check direction 

\ IF INPUT 

/ THEN GET FILL POINTER 

set not zero 



1-148 



PRGE 

498 

499 
500 
501 
502 
503 
504 
505 
S06 
507 
508 
509 
510 
511 
512 
513 
514 
515 

516 
517 
518 
519 
519 
519 
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««*«**«*«***«*x«* ******* x**x*******«**x********«**«*********»«*********x* ******* 
* 

* STCLR 
* 

* ROUTINE TO SET A BUFFER & SELECT CODE NOT BUSY 
* 

* ENTRY: gets buf ptr from ITXFR routine 

» assumes only one tfr per select code 

* 

» USES: A3, DO 

* HPL ROUTINE ( MODIFIED ) 

* 

OO00O11E 61CA STCLR BSR ITXFR GET BUFFER POINTER FROM TEMPS 

00000120 67FA BEQ.S STCLR1 IF ALREADY CLEAR, SKIP 

00000122 177C OOFF MOVE.B #255, T SC 0FF(A3) CLEAR S.C. INDICATOR IN THE BUF CTL BLK 

0005 ~ " 

00000128 422B 0007 CLR.B TACT 0FF(A3) clear tfr type 

0000012C 4294 CLR.L (A4) CLEAR BUF POINTER IN SC TEMPS 
*RTS 



* 

* LOGEOT 
x 

* CALL THE USER PROC AT END OF TRANSFER 
* 

* PASCAL ROUTINE 
* 

» modified to pass a user parameter: JPC 02/22/82 
* 



0000012E 41EB 0024 LOGEOT 
H E0T1 



00000132 
00000134 

00000136 
0000013A 
0000013E 
00000142 
00000144 
00000146 
00000148 
0000014A 



2010 
6718 

48E7 0078 

2F28 0008 

2228 0004 

6702 

2F01 

2040 H E0T2 

4E90 

4CDF 1E00 



LEA 



MOVE . L 
BEQ.S 



T_PR_0FF(A3),A0 

(AO).DO 
H E0T3 



point to procedure/static link/parameter 

is there a proc? 
skip if not 



iiutcii.l ni-Mt, 

MOVE.L 8(A0),- 

MOVE.L 4 AOj.Dl 

BEQ.S H E0T2 



0000014E 4E7S 



H E0T3 



movem.l a1-a4,-(sp) 
,-|spJ 

move.l dt, : (sp) 
movea.l do.ao 

JSR (AO) 

MOVEM.L (SP)*,A1-A4 

RTS 



save dedicated regs 

push the parameter 

is there a static link? 



procedure address 

call it 

restore dedicated regs 



(8/10/82 JPC) 



(8/10/82 JPC) 
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*x**x*x****xx***********x**x*x*xx***»*«**x*************x***************x******»* 
* 

* LOGINT 
* 

* THIS ROUTINE UAS CALLED H LOG 

* ~ 

* CALL THE USER PROC WHEN AN ISR SAYS TO 

HE 

* PASCAL ROUTINE 
* 

* modified to pass a user parameter: JPC 02/22/82 

* 

****************x***x***********x*x***********X********************************* 

00000150 41EA 0014 LOGINT LEA H ISR PR(A2),A0 point to procedure/static link/parameter 
00000154 60DC BRA HlEOTT call it (if it exists) 
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570 
571 
572 
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574 
575 
576 
577 
578 
S79 
580 
581 
582 
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584 
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589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 

607 



I******************************************************************************* 
* 

* DMA_STBSY 
x 

* ROUTINE TO SET A BUFFER BUSY 
* 

» ' 00. Ul = TRANSFER COUNT TO BE PUT IN TCNT_OFF (A2) 

* UNO TO BE ADDED TO E/F COUNT. 

* AO.L = pointer to DMA temps 

* A2.L • POINTER TO DRIVER TEMPS 

* A3.L = POINTER TO BUFFER CTL BLOCK 

* A4.L = POINTER TO TERMINATION ROUTINE 
* 

* HPL ROUTINE ( MODIFIED ) 
* 

**************** **************************************************************** 
00000156 214C 0000 DMA STBSY MOVE . L B4 .DMRISR (BO) SRVE THE TERMINBTION ROUTINE 

0000015B 42B8 0004 ~ CLR.L DMASL(BO) CLEAR THE STATIC LINK 

* BRB.S STBSY SET THE BUFFER BUSY 



I******************************************************************************* 

* STBSY 

* ROUTINE TO SET B BUFFER BUSY 
* 

* ENTRY • 

* DO .Ul - TRANSFER COUNT TO BE PUT IN TCNT_0FF(B2) 

* BND TO BE RDDED TO E/F COUNT. 

* A2.L = POINTER TO DRIVER TEMPS 

* A3.L = POINTER TO BUFFER CTL BLOCK 

« HPL ROUTINE ( MODIFIED ) 

* 

********************* ************************************************** ********* 



0000015E 2740 0010 STBSY 

00000162 4B2B 0000 

00000166 6606 

00000168 2548 0024 

0000016C 6004 

0000016E 2S4B 0028 STBSY1 

00000172 176B 002D STBSY2 

0005 
00000178 4E75 



MOVE.L DO.TCNT 0FF(B3) 

TST.B TDIR 0FF(A3) 

BNE.S STBSVl 

MOVE.L B3,BUFI_0FF(A2) 

BRB.S STBSY2 

MOVE.L B3,BUF0 0FF(B2) 



COPY TFR COUNT INTO TEMPS. 
\ 

MAKE SELECT CODE BUSY 
/ 
/ 



MOVEiB I01SC(A2"),T_SC_0FF(B3) SET UP BUFFER ACTIVE SELECT CODE 
RTS DONE! 
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*************************************************** ************** ************* ** 

* DMA RESOURCE MANAGEMENT ROUTINES 

* 

************************************************** ****************************** 

******************************************************** ************************ 
* 

* DMA RESOURCE temporaries 

* These resource temporaries need to be aligned with the offsets 

* generated by the main Pascal library. This is not an automatic 

* operation - it must be done by hand if ANY new declarations are 

* added in the iodeclarat ions in front of the dma resource temps. 

******************************************************************************** 
FFFF FFC 3 OMAFLAG EQU iodecla rat ions-61 boolean indicating presence of dma hardware 



FFFF FFF8 DMAO EQU 

FFFF FFF8 DMAISR EQU 

FFFF FFFC DMASL 0" EQU 

FFFF FFF7 DMR_SC"_0 EQU 



FFFF FFEE DMA1 EQU 

FFFF FFEE DMAISR 1 EQU 

FFFF FFF2 DMASL T EQU 

FFFF FFED DMA SC 1 EQU 



0000 0000 DMAISR EQU 
0000 0004 DMASL EQU 
FFFF FFFF DMA SC EQU 



iodeclarations-8 
iodeclarations-8 
iodeclarations-4 
iodeclarations-9 



iodeclarat ions-18 
iodeclarations-18 
iodeclarat ions-14 
iodeclarations-19 



channel temps 



channel 1 temps 



isr pointer 
static link 
allocated s. 



0050 0000 DMACHO EQU $500000 address of dma channel 

aa^o 0008 DMACH1 EQU $500008 address of dma channel 1 

uu J,;;;****,*******;********************************************************"***"' 

* ADDRESS CONSTANTS 
* 

******************************************************************************** 
0047 8000 H_INT_CB EQU $478000 ADDRESS OF INTERNAL HPIB INTERFACE 
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33 IOLIB IOCOHASn - PASCAL DMA 


PROCEDURES 




653 








> 














654 








* 




request 


a dma channel 








655 








* 














656 




0000 


017A 


IOCOMASM.DMA REQUEST EQU * 








657 


0000017A 


285F 








MOVE A 


L (SP)+,A4 




save return address 




658 


0000017C 


245F 








MOVEA 


L (SPJ+,A2 




get sc temp 




659 


0000017E 


226A 


0020 






MOVEA 


L C ADR(A2),A1 




get card pt r 

GET INTO SUPERVISOR MODE scs 




660 


00000182 


4E4B 








TRAP 


#11" 






661 








* 


scs 


MOVE 


SR.-ISP) 
#$2700. SR 
TESTDMA 




JUST IN CASE CALLER DIDN'T DISABLE 




662 


00000184 


007C 


2700 






ORI 




INTERRUPTS, I WILL. 




663 


00000188 


6100 


0080 






BSR 




SEE IF DMA IS INSTALLED 




664 


0000018C 


6710 








BEQ.S 


DR FAIL 




IF NOT, return -1 

turn $82/$81 to $81/$80 




665 


0000018E 


5343 








SUBQ.L 


#1,D3 






666 


00000190 


0243 


0001 






ANDI ,U 


#1,D3 




determine channel 




667 


00000194 


48C3 








EXT.L 


D3 








668 


00000196 


116A 
FFFF 


002D 






MOVE.E 


I0_SC(A2),DMA_ 


SC(AO) 


ELSE CLAIM THIS CHANNEL FOR CALLER 




669 


0000019C 


6006 








BRA.S 


DR GOOD 








670 


0000019E 


263C 
FFFF 


FFFF 


DR 


_FAIL 


MOVE . L 


#-T,D3 




return -1 




671 


000001A4 


460F 




DR 


_G000 


MOVE 


(SP)+,SR 
D3, (SP) 




restore int . st ate 




672 


oooooifl6 


2E83 








MOVE.L 




assign return value - channel ( or -1 ) 




673 


000001A8 


4ED4 








JMP 


(A4) 




return addr 




674 






















674 






















674 






















674 






















675 








* 














676 








* 




release 


a dma channel 








677 








* 














678 




0000 


01AA 


locormsr 


DMA RELEASE EQU * 








679 


000001AA 


205F 








MOVEA . 


L (SP)+,AO 




save return address 




680 


000001AC 


245F 








MOVEA. 


L SP) + ,A2 




get sc temp 




681 


000001RE 


226A 


0020 






MOVEA. 


L C ADR(A2) ,A1 




get ca rd pt r 




682 


000001B2 


4850 








PEA 


DROPDMA 




push return address 




683 


000001B4 


6000 


0098 






BRA 




release it 




684 






















684 






















684 






















684 
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687 








******************t*****#***********#***********34!***»<*****»:i****!«******)«*******x* 




688 








* 














689 








* 




GETDMA 










690 








* 














691 








X 




ROUTINE TO OBTAIN CONTROL OF 


A DMA CHANNEL 




692 








* 




GET EITHER DMA CHANNEL 


TRYING FOR CH 1 FIRST. 




693 








* 














694 








# 




ENTR: 


CONDITIONS ARE 


THE SAME AS FOR THE tfr DRIVER ENTRY POINT. 




695 








* 














696 








* 




EXIT: 


IF DMA IS NOT 


INSTALLED, 'no dma' escape is generated. 




697 








* 






IF DMA IS INSTALLED. 
BECOME AVAILABLE AND 


THE ALGORITHM WAITS FOR A CHANNEL TO 




698 








* 






THEN: 




699 








* 






LOGS USE OF 


DMA CHANNEL 




700 








* 






SETS UP ADDRESS AND COUNT REGISTERS. 




701 








* 






CONSTRUCTS CARD ARM AND DMA ARM MASKS AS FOLLOWS: 




702 








* 






D2.U 


= DMA 


ARM BYTE WITH BITS 1. 2 DEFINED BY 




703 








* 








CONTENTS OF Dl AND BIT 0'= 1. 




704 








* 






D3.B 


= CARC 


ENABLE BYTE WITH BITS 0. 1 DEFINED BY 




705 








* 








WHICH DMA CHANNEL LIAS GRANTED AND BIT 7=1. 




706 








* 






A4.L = ADDRESS OF 


DMA CHANNEL ARM WORD. 




707 








* 














708 








* 




NOTE: 


IF THE REQUEST 


IS FOR 


INTERNAL HP-IB AS INDICATED BY Al , 




709 








* 






ONLY CHANNEL 


WILL BE GRANTED. 




710 








* 














711 








* 




HPL ROUTINE ( MODIFIED 


) 






712 








* 














713 








*»xxx**x*x«**x*x*x«*x*xx»**x«***»**«s*x**x***»x»*xx*«*x***xxx«*x*«x««x*wx»«**x** 




714 


000001B8 


4E4B 




GETDMA 


TRAP 


#11 




GET INTO SUPERVISOR MODE SCS 




715 








* 


scs 


MOVE 


SR.-fSP] 
#$2700, SR 




JUST IN CASE CALLER DIDN'T DISABLE 




716 


000001BA 


007C 


2700 






ORI 




INTERRUPTS, I WILL. 




717 


000001BE 


0C80 
0001 


0001 






cmpi.l 


#$010001, DO 




\ make sure count <=65536 




718 


000001C4 


6A00 


FE80 






BPL 


TERR C 




SEE IF DMA IS INSTALLED 




719 


000001C8 


6140 








BSR.S 


TESTETMA 






720 


000001CA 


6700 


FE82 






BEQ 


TERR D 




IF NOT. GIVE ERROR 




721 


000001CE 


1160 
FFFF 
2842 


002D 






MOVE.B 


I0_SC(A2) ,DMA_SC(AO) 


ELSE CLAIM THIS CHANNEL FOR CALLER 




722 
723 
724 


000001D4 








MOVEA. 


L D2.A4 




A4 = ADDRESS OF DMA CHANNEL HARDWARE. 




000001D6 


242B 


ooic 






MOVE.L 


TEMP 0FFIA3) ,D2 




\ 




72S 


000001DA 


4A2B 


OOOD 






TST.B 


TDIR 0FF(A3) 




\ 




726 


000001DE 


6604 








BNE.S 


GETDffAl 




SET UP ADDRESS 




727 


000001EO 


242B 


0020 






MOVE.L 


TFIL 0FF(A3),D2 




/ 




728 


000001E4 


28C2 




GETDMA 1 


MOVE.L 


D2, (B~4) + 




/ 




729 






















730 


000001E6 


5380 








SUBQ.L 


#1,00 




COUNT REGISTERS (COUNT REG 




731 


000001E8 


38C0 








MOVE.U 


DO, (A4) + 




MUST BE COUNT-1) 




732 


000001EA 


5280 








ADDQ.L 


tl,DO 








733 






















733 






















734 


000001EC 


4242 








clr.u 


D2 








735 


000001EE 


142B 


OOOD 






MOVE.B 


TDIR 0FF(A3),D2 




MOVE DIRECTION BIT INTO B2 OF D2 




736 
737 
737 


000001F2 


E54A 








LSL 


#2,D? 




IN ORDER TO CONSTRUCT DMA ARM 
























738 


000001F4 


4A2B 


OOOA 






TST.B 


T BW 0FF(A3) 




IF BYTE TRANSFER 




739 


000001F8 


6702 








BEQ.S 


GE"TDHA2 




THEN SKIP 
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740 
741 
742 
743 
744 
74 S 
746 
747 
748 
748 
748 
748 
748 
748 
749 
750 
751 
752 
753 
754 
7S5 
7S6 
757 
758 
7S9 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 

771 
772 
773 

774 
775 
776 

777 
778 
779 

780 
781 
782 

783 
784 
785 
786 



000001FA 5442 

000001FC 4A2B 0030 GETDMA2 

00000200 6702 

00000202 5042 

00000204 5242 GETDMA3 

00000206 46DF 

00000208 4E75 

* scs 



ADDQ.U #2.D2 
TST.B T DMfiPRI (R3) 
BEQ.S GFTDMA3 
ADDQ.U #8,02 
ADDQ.U #1,02 
MOVE (SP)*,SR 
RTS 
RTE 



ELSE SET BIT 1 OF Dnfl ARM. 
check for dma priority requested 

if set then set pri bit 
SET BITO OF DMA flRtl 



scs 
scs 



********************************************************************»**** ,, * , " , *** 
* 

* TESTDMA 

* THIS ROUTINE TESTS FOR PRESENCE OF DMA HARDWARE AND WRITS FOR 

* A CHANNEL TO BECOME AVAILABLE. 



ENTRY: 
EXIT: 



PI 



CARD ADDRESS 



IF NO DMA IS INSTALLED, RET with zero flag set 
IF DMA IS INSTALLED, RET with not zero set 

* BO L = ADDRESS OF DMA FLAG FOR AVAILABLE CHANNEL 

* D2.L = ADDRESS OF AVAILABLE DMA CHANNEL 

* D3.B = CARD ENABLE BYTE FOR AVAILABLE CHANNEL 
* 

* HPL ROUTINE ( MODIFIEO ) 
* 

**************************** **************** ************************************ 



0000020A 
0000020E 
00000210 
00000212 

00000218 
0000021A 
0000021E 



41ED 
4A10 
673A 
B3FC 
8000 
6716 
41ED 
243C 
0008 



00000224 163C 
00000228 0C28 

FFFF 
0000022E 671A 
00000230 41ED 
00000234 243C 

0000 

0000023A 163C 
0000023E 0C28 
FFFF 
00000244 6704 
00000246 4245 
00000248 4E75 
0000024A 7A01 



FFC3 TESTDMA 

0047 



FFEE 
0050 



0082 
OOFF 



LEA DMAFLAG(AS) ,A0 
TST.B (AO) 
BEQ.S TESTDMA C 
CMPA.L #H_INT_CA,A1 

BEQ.S TESTDMA A 
LEA DMA1(A57,A0 
MOVE.L #DMBCH1 ,D2 

MOVEQ #S82,D3 
MOVE.B #$82,03 
CMPI.B #25S,DMA_SC(A0) 



FFF8 
0050 



BEQ.S 
TESTDMA A LEA 



0081 
OOFF 



TESTDMA B 
DMAO(AST,A0 
MOVE.L #DM«CH0,D2 

MOVEQ #$81, D3 
MOVE.B #$81, D3 
CMPI .B #25S,DMA_SC(A0) 



BEQ.S 
CLR 
RTS 
TESTDMA_B MOVEQ 



TESTDMA_B 
D5 



DO RET 1 IF NO OMA 

IF THIS IS A REQUEST FOR THE INTERNAL 

HP-IB, THEN CAN'T TRY FOR CH 1 SO SKIP. 
ELSE ASSUME UE CAN GET CH 1 



CAN UE? 

IF SO, THEN RET 3 

ELSE ASSUME UE CAN GET CH 



CAN UE? 

IF HARDWARE PRESENT BUT BUSY, same as not there 

ELSE UE GOT A CH 
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787 
788 
788 
788 
788 
788 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 

815 
816 
816 
817 
818 
819 
820 
821 

822 

823 
824 
825 
826 
827 
828 
829 
830 
831 



0000024C 4E7S 



TESTDMA C RTS 



********************************************* 
* 

* OROPDMA 
* 

* ROUTINE TO FREE UP A DMA CHANNEL 

* ENTRY: A2 . L = POINTER TO DRIVER TEMPS 
* 

* EXIT: 



******************************** 



D4.U = FINAL DMA CHANNEL COUNT 
CHANNEL IS DISARMED. 



USES: AO 

HPL ROUTINE ( MODIFIED ) 



00000250 007C 2700 
000002S4 7800 
00000256 102D FFF7 
0000025A B02A 002D 
00C0025E 660C 
00000260 49ED FFF8 
00000264 41F9 0050 

0000 
0000026A 6014 



scs 



********************************* 
0000 024E DROPDMA EQU » 
0000024E 4E4B TRAP #11 

MOVE SR.-(SP) 

ORI 

MOVEQ 
MOVE. I 
CMP.B 
BNE ,S 
LEA 
LEA 



c************ 



********************************** 



#$2700, SR 

#0,04 

DMA SC 0(A5) ,00 

10 S"C(A~2) ,D0 

drCpdmao 

0MAO(A5 ,A4 
DMPCHO.AO 



0000026C 102D FFED DROPDMPO 
00000270 B02A 002D 
00000274 6622 
00000276 49ED FFEE 
0000027A 41F9 0050 

0008 
00000280 197C OOFF DR0PDMA1 

FFFF 
00000286 42AC 0004 
0000028A 42AC 0000 
0000028E 2818 
00000290 4284 
00000292 3810 
00000294 D87C 0001 
00000298 46DF 
OO00O29A 4E75 



BRA.S 0R0PDMB1 



MOVE.B DMA SC 1 (AS) ,D0 
CMP.B 10 5"C(A"2) ,D0 
BNE.S DRrPDMA2 
LEA DMB1(B5),A4 
LEA DMPCHl.AO 

MOVE.B #255,DMA_SC(A4) 





CLR.L 


DMBSL(A4) 




CLR.L 


DMfiISR(P4) 




MOVE.L 


(BO) +,04 




CLR.L 




MOVE.U 
ADD.U 


i?X* 


DR0PDMA2 


MOVE 
RTS 


(SP)+,SR 


* scs 


RTE 





JUST IN CASE CALLER DIDN'T DISABLE 

INTERRUPTS, I UILL. 

ASSUME DMA CHA ALREADY DROPPED... 

IS IT CH 0? 
F NOT, SKIP 
GET A POINTER TO THE CHANNEL R/U 
POINT AO TO CH 

GO DO IT 



/ IS IT CH 1? 

IF NOT, DO NOTHING 

GET A POINTER TO THE CHANNEL R/U 

POINT AO TO CH 1 

clear s . c . 

clear static link 
clear isr pointer 
DISARM CH BY READING ADDRESS 

GET FINAL COUNT INTO DO 

FIX UP COUNT TO INDICATE LEFT OVER TFR'S 

scs 
scs 
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833 
PASS 1 ERRORS: 
PASS 2 ERRORS: 



END 
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«** 68000 ASSEMBLER SYMBOL TABLE DUMP *** 
EXTERNAL SYMBOLS 



ASSEMBLY DMA PROCEDURES 



SYMBOL 


TYPE 


DEF 


VALUE 




IODECLARATIONS ABS 


290 


00000002 




SYSGLOBALS 


ABS 


291 


00000006 






INTERNAL SYMBOLS 






SYMBOL 


TYPE 


DEF 


EQU SYM 


VALUE 


AO 


AREG 







00000000 


Al 


AREG 







00000001 


A2 


AREG 







00000002 


A3 


AREG 







00000003 


A4 


AREG 







00000004 


A5 


AREG 







00000005 


A6 


AREG 







00000006 


A7 


AREG 







00000007 


ABORT 10 


REL 


368 




00000066 


ABORT 101 


REL 


383 




00000090 


ABORT 102 


REL 


387 




0000009E 


ABORT 103 


REL 


371 




0000006C 


AB OUT 


REL 


382 




0000008C 


AVHIL OFF 


ABS 


230 




00000034 


BADTMO" 


ABS 


308 




OOOOOOOB 


BAD RDS 


ABS 


316 




00000013 


BAD SCT 


ABS 


317 




00000014 


BITT EXIT 


REL 


112 




00000010 


BUFI OFF 


ABS 


221 




00000024 


BUFO OFF 


ABS 


222 




00000028 


BUF B"USY 


ABS 


306 




00000009 


CCR - 


STREG 







00000005 


CHECK TFR 


REL 


409 




000000A2 


CHKEXTT 


REL 


428 




OOOOOOCC 


CHKLOOP 


REL 


423 




OOOOOOCO 


CHKT IN 


REL 


41S 




00000060 


CHKT OUT 


REL 


411 




OO000OA8 


CHKUA"IT 


REL 


419 




000000B6 


CRD DUN 


ABS 


318 




00000015 


CTMO" ERR 


REL 


337 




00000042 


C ADR" 


ABS 


220 




00000020 


DO" 


DREG 







00000000 


Dl 


DREG 







00000001 


02 


DREG 







00000002 


D3 


DREG 







00000003 


D4 


DREG 







00000004 


D5 


DREG 







00000005 


06 


DREG 







00000006 


D7 


DREG 







00000007 


DMAO 


ABS 


629 


IODECLARATIONS + 


FFFFFFF8 


DMA1 


ABS 


634 


IODECLARATIONS + 


FFFFFFEE 


DMACHO 


ABS 


643 




00500000 


DflACHl 


ABS 


644 




00500008 


DMAFLAG 


ABS 


627 


IODECLARATIONS + 


FFFFFFC3 


DMAISR 


ABS 


639 




00000000 
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DMAISR 




ABS 


630 


IODECLARATIONS + 


FFFFFFF8 


DMAISR _ 1 




ABS 


635 


IODECLARATIONS ♦ 


FFFFFFEE 


DMPSL 




ABS 


640 




00000004 


DMASL 




ABS 


631 


IODECLARATIONS ♦ 


FFFFFFFC 


DMPSL 1 




ABS 


636 


IODECLARATIONS ♦ 


FFFFFFF2 


DMA SC" 




ABS 


641 




FFFFFFFF 


DMR SC 




ABS 


632 


IODECLARATIONS + 


FFFFFFF7 


DMA SC 1 




ABS 


637 


IODECLARATIONS ♦ 


FFFFFFED 


DMR STffSY 




REL 


681 




00000156 


DROFDMP 




REL 


80S 




0000024E 


DROPDMAO 




REL 


817 




0000026C 


OROPDnfli 




REL 


822 




00000280 


DR0P0MA2 




REL 


829 




00000298 


OR FAIL 




REL 


670 




0000019E 


DR GOOD 




REL 


671 




000001A4 


EIR"B OFF 




ABS 


223 




0000002C 


EOD SEEN 




ABS 


319 




00000016 


ESC CODE 




ABS 


327 


SYSGLOBALS + 


FFFFFFFE 


ESC ERR 




REL 


346 




00000050 


GETD"MA 




REL 


714 




000001B8 


GETDMA1 




REL 


728 




000001E4 


GETDMA2 




REL 


741 




000001FC 


GETDMA3 




REL 


744 




00000204 


H E0T1 




REL 


533 




00000132 


H E0T2 




REL 


541 




00000146 


H E0T3 




REL 


545 




0000014E 


H~INT CA 




ABS 


650 




00478000 


H~ISR pm 




ABS 


219 




0000001C 


H ISR PR 




ABS 


217 




00000014 


H ISR SL 




ABS 


218 




00000018 


IO"COMA"SM BINAND 


REL 


117 




00000014 


IOCOMASM BINCMP 


REL 


147 




00000038 


IOCOMASM BINEOR 


REL 


137 




0000002C 


IOCOMASM BINIOR 


REL 


127 




00000020 


IOCOMASH BIT 


SET REL 


104 




00000002 


IOCOMASH DMA" 


"RELEASE REL 




678 


000001AA 


IOCOMASM DMA" 


REQUEST REL 




656 


0000017A 


IOCOMASM lOCtfMASM REL 


99 


00000000 


IOE ERROR" 




ABS 


322 




FFFFFFE6 


IOE RSLT 




ABS 


324 


IODECLARATIONS + 


FFFFFFBE 


IOE SC 




ABS 


325 


IODECLARATIONS + 


FFFFFFBA 


10 RISC 




ABS 


320 




00000017 


10 SC 




ABS 


224 




0000002D 


ISR" ENTRY 




ABS 


215 




00000000 


ITXFR 




REL 


478 




OOOOOOEA 


ITXFR1 




REL 


498 




OOOOOHC 


ITXFR2 




REL 


494 




OOOOOHA 


ITXFR3 




REL 


484 




OOOOOOFA 


LOGEOT 




REL 


531 




0000012E 


LOGINT 




REL 


561 




00000150 


MA 




ABS 


229 




00000033 


MA U 




ABS 


228 




00000032 


NOT HPIB 




ABS 


299 




00000002 


NOT LSTN 




ABS 


313 




00000010 


NOT TALK 




ABS 


312 




OOOOOOOF 


NO ffCTL 




ABS 


300 




00000003 


NO CARD 




ABS 


298 




00000001 
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NO DATA 


ABS 


303 


00000006 


NO DMA 


ABS 


310 


00000000 


NO DRV 


ABS 


309 


OOOOOOOC 


NO DVC 


ABS 


301 


00000004 


NO~SCTL 


ABS 


315 


00000012 


NO "SPACE 


ABS 


302 


00000005 


NO UORD 


ABS 


311 


OOOOOOOE 


RCVR BLK 


ABS 


328 SYSGLOBALS 


+ FFFFFFF6 


SC BUSY 


ABS 


30S 


00000008 


SP 


AREG 





00000007 


SR 


STREG 





00000006 


STBSY 


REL 


600 


0000015E 


STBSY1 


REL 


605 


0000016E 


STBSY2 


REL 


606 


00000172 


STCLR 


REL 


513 


0000011E 


STCLR1 


REL 


49S 


0000011C 


TACT OFF 


ABS 


245 


00000007 


TBSZ OFF 


ABS 


268 


00000018 


TBUF OFF 


ABS 


267 


00000014 


TCHR OFF 


ABS 


264 


OOOOOOOE 


TCNTFRR 


ABS 


307 


OOOOOOOA 


TCNT OFF 


ABS 


266 


00000010 


TDIR~OFF 


ABS 


262 


OOOOOOOD 


TEMP OFF 


ABS 


269 


0000001C 


TEND OFF 


ABS 


260 


OOOOOOOB 


TERR B 


REL 


341 


0000004A 


TERR C 


REL 


339 


00000046 


TERR D 


REL 


343 


0000004E 


TEST0MA 


REL 


767 


0000020A 


TESTDMA A 


REL 


778 


00000230 


TESTDMA B 


REL 


786 


0000024A 


TESTDMA C 


REL 


787 


0000024C 


TFIL OFF 


ABS 


270 


00000020 


TFR FRR 


ABS 


304 


00000007 


TIMFOUT 


ABS 


225 


0000002E 


TMO ERR 


ABS 


314 


00000011 


TTMF OFF 


ABS 


243 


00000000 


TT BURST 


ABS 


281 


00000003 


TT DMA 


ABS 


280 


00000002 


TT FHS 


ABS 


282 


00000004 


TT INT 


ABS 


279 


00000001 


TU5"R OFF 


ABS 


246 


00000009 


T BUTOFF 


ABS 


258 


OOOOOOOA 


T _ DMR"PRI 


ABS 


275 


00000030 


T PM OFF 


ABS 


274 


0000002C 


T PR OFF 


ABS 


271 


00000024 


T SC OFF 


ABS 


244 


00000005 


T~SL OFF 


ABS 


273 


00000028 


U5"ER""ISR 


ABS 


216 


00000014 


USP 


STREG 





00000007 


UAIT TFR 


REL 


447 


OOOOOOCE 


UT DONE 


REL 


4S7 


000000E8 


UT LOOP 


REL 


452 


OOOOOODC 
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DC 



Purpose 

DC contains assembly language low -level I/O drivers. 

Usage 

DC is used for the 98628 and 9 8629 interfaces. 

Requirements 

DC DRV 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PASS 1 COMPLETE. ERRORS: 
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4 * 

5 * COPYRIGHT (C) 1982 BY HEULETT-PACKARD COMPANY 

6 » 

7 xx*t*****XXX*******xx****x*XXXX*tx**** ****************** ************************ 

8 * 

9 * 

10 * IOLIB EXTDC 

11 * 

12 * 

13 x*x*xxxx****xxx*xxxx**xxxx*x*XX**x*xx*xxxxxxx**x*x**x****** ********** *********** 

14 * 

15 * 

16 * 

17 * Library - IOLIB 

18 * 

19 * Purpose - This set of assembly language code is intended to be used as 

20 * a PASCAL module for I/O drivers for use by the external I/O 

21 * procedures library. 

22 * 

23 * 

24 * Date - 10/26/81 

25 * Update - 09/22/82 

26 * Release - 09/22/82 

27 * 

28 * 

29 * Source - IOLIB :DC .TEXT 

30 * Object - I0LIB:DC.C0DE 

31 « 

32 * 

33 ****%x**x******x********************************x******x**********x******x****** 

34 * 

35 * 

36 » RELEASED 

37 * VERSION 2.0 

38 * 

39 * 

40 X*XX*XXXX*X***XX*****XXXX*X*XX***XXXXXXX*X*X**X*****X*****XX***XXXXXX**XXXXXXX*X 
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42 
43 
44 
45 
46 
47 
48 
49 
SO 
51 
52 
53 
S4 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 



************************************ ************* 



************************************************* 



dc 


doc 


comdcl 


dc 


decls 


dc 


"buff 


dc 


comm 


dc 


inter 


dc 


rxbuf 


dc 


t rans 


dc. 


Jxbuf 


sprint 
lien 
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78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 
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******************************************** ************************************ 

* 

* 

* The following lines are used to tell the LINKER/LOPDER what this module 

* looks like in PASCAL terms. 
* 

* Note that it is possible to create assembly modules that are functions. 

* These routines are called through an indirect pointer using the CALL 

* facility which does NOT permit functions. 
* 

* This module is called 'EXTDC ( upper or lower case - doesn't matter ) 

* independent of the file name ( by use of the HNAHE pseudo-op ). 



All the externally used procedures are called '£X10C_QQ@Q@Q@Q' in 
this module. If you are using assembly to access them use the 
'EXTDC_@@9@9@@' name. If you are using Pascal use the '<?—"-»- 
name . 



************************** 
l-INAME EXTDC 
SRC MODULE EXTDC: 
SRC IMPORT iodeciarations; 
SRC EXPORT 
SRC 



************************************************* 



SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 
SRC 



PROCEDURE alvinit 

PROCEDURE alvinisr 

PROCEDURE enter_data 

PROCEDURE output_data 

PROCEDURE output_end 

PROCEDURE direct_status 



f temp 

f temp 

( temp 

( temp 

( temp 

( temp 



PROCEDURE direct_cont rol ( temp 
PROCEDURE control_bfd ( temp 



PROCEDURE start_tf r_out 
PROCEDURE start_tfr_in 



SRC END; { of extdc ) 



temp 
temp 



ANYPTR ); 
PISRIB ); 
ANYPTR ; 

ANYPTR ; 

ANYPTR ); 
ANYPTR ; 

ANYPTR ; 

ANYPTR ; 

ANYPTR ); 
ANYPTR ); 



VAR c 

x 

cnt 



reg 
• al 



ANYPTR : 
INTEGER ); 
ANYPTR ; 
INTEGER ); 

io_word : 
io_word) ; 
io_word; 
io_word ); 
io_wo rd ; 
io_word ); 
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PRGE 

119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
13$ 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
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******************************************************************************** 

* 

* SYMBOLS FOR EXPORT AS PROCEDURE NAMES 

******************************************************************************** 
DEF EXTDC_EXTDC 

DEF EXTDC ALVINIT 
DEF EXTOC_ALVINISR 
DEF EXTDC ENTER DATA 
DEF EXTDC OUTPUT_DATA 
DEF EXTDC OUTPUT END 
DEF EXTDC DIRECT STATUS 
DEF EXTDC DIRECT CONTROL 
DEF EXTOC CONTROt BFD 
DEF EXTDC START TFR IN 
DEF EXTDOTART_TFR_0UT 

******************************************************************************** 



SYMBOLS FOR IMPORT 



not used currently in data comm 

if they are ever used - use a JSR to call them 



******************************************************************************** 

* REFA STBSY 

* REFA STCLR 

* REFA ITXFR 

* REFA ABORT 10 

* REFA LOGINT 

* REFA GETDMA 

* REFA DROPDMA 

* REFA TESTDMA 

* REFA DMA STBSY 



change references to allow long jumps when the I/O 
ule 



* modules get moved 

* LMODE STBSY 

* LMODE STCLR 

* LMODE ITXFR 

* LMODE ABORT 10 

* LMODE LOGINT 

* LMODE GETDMA 

* LMODE DROPDMA 

* LMODE TESTDMA 

* LMODE DMA STBSY 



475 TM 9/17/82 
475 TM 9/17/82 
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******************************************************************************** 

* 

* PASCAL DRIVER ENTRY POINTS FOR GPIO CARDS 

* 

******************************************************************************** 



166 

167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 



MODULE initialization 



0000 0000 EXTDC EXTDC 
00000000 4E75 

* 

* ENTRY POINTS 

* 

00000002 6000 OOCC EXTOC ALVINIT 
00000006 6000 02D2 EXTDC_ALVINISR 

OOOOOOOA 6000 0814 EXTDC ENTER DATA 

OOOOOOOE 6000 07B2 EXTDC OUTPUT DATA 

00000012 6000 08CC EXTDC OUTPUT END 

00000016 6000 0154 EXTDC DIRECT STATUS 

0000001A 6000 OOFE EXTDC DIRECT CONTROL 

0000001E 6000 090E EXTDC CONTROU BFD 

00000022 6000 05B6 EXTDC START TFR_IN 

00000026 6000 05D8 EXTDC START TFROUT 



EQU * 

RTS 



BRA ALVINIT 

BRA TOP ISR 

BRA ENTPR DATA 

BRA OUTPUT DATA 

BRA OUTPUT~END 

BRA DIRECT STATUS 

BRA DIRECT CONTROL 

BRA CONTROU BFD 

BRA START TRANSFER IN 

BRA START TRANSFER OUT 
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193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

* The following escapes are possible: * 

x * 

* E0D_SEEN - on ENTERJ3ATA only, * 

* signifies termination with control * 

* block when too few bytes have been * 

* read. * 
x * 

* TM0_ERR - on ENTER_DP.TR if Rx queue * 

* was empty for too long * 
» - on OUTPUT DATA if Tx queue * 

* goto blocked up Tor too long * 

* - on C0NTR0L_BFD if Tx control * 

* aueue got blocked up for too long * 
« - on OUTPUT END if Tx control » 

* queue got blocked" up for too long * 
x x 
x * 

* CRD_DUN - on every routine if card » 

* was totally locked up for more than * 

* one second . * 
x * 

* There are no checks for nested 1/0. * 
x « 
xxxxxxxxxxxxxxxxxx*xxx**x*x*xxxxxx*x*xxx*x******* 



* module: DC_C0MM 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X x 

» procedure DIRECT CONTROL ( * 

x var 5~CT: select_code_t able; * 

* REG: 1..127; * 

* VAL: 0..25S ); * 
x x 

* The ranges of REG S VfiL are not checked « 

* for validity. * 
x x 
xxxxxxxxxxxxx*x*x*x**xxxxxxxxxxxxxxxxxxxxxxxx*x*x 

nosyms 



» module: OCJZOMM 
xxxxxxxxxxxxxxxx 



procedure DIR 
v 

R 



These 

1 
2 

S 
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241 

24 2 
24 3 
244 
24 5 
24 6 
24 7 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 



reqiste 

Gives 
Retur 
Retur 
Retur 
buffe 
Retur 
: Retur 
: Retur 
queue 
cont r 



The range of 
validity. 



x***xxxxxxxx*xxxxxxxxxxxx**xx**x 

X 

ECT STATUS ( * 

ar S"CT: select code_table; « 
EG: 0..127; * 

ar VAL: word ); * 

x 
rs are intercepted: * 

alue from RESET_ID » 

ns true if hardware interrupts * 
ns * 

ns 2 bits saying state of Rx » 
r ' * 

ns last ENTER TERM * 

ns last ENTER MODE » 

ns # bytes available in Tx * 
, or if t here' s not 3 * 
ol block positions available * 

* 
REG is not checked for * 

x 

X 
(XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



* module: DC_TRANS 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx* 



(XXXXXXXXXXXXX 



* procedure OUTPUT DATA ( » 
x vsr S"CT : select_code_t able; * 
x PTR: ~ data_bytes; « 

* COUNT: longword ); * 
x « 

* This operation may hang waiting for space. * 
x * 
xxxxxxxxxxxxxxxxxxxxxxxx*x***xxx*******x*xx***x*x 
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287 * module: DC_INTER 

238 ************************** **************** ******* 

288 * * 

290 * procedure START_TRANSFER_IN ( * 

291 * var SCT: selec t_code_t able ); * 

292 * * 

293 * This starts the card doing a transfer. * 

294 * The calling code must have already * 

295 * linked the transfer block in to the * 

296 * select_code_table structure. * 

297 * ■ * 

298 ************************************************* 
299 

300 
301 
302 
303 
304 
305 

306 * module: 0C_INTER 

307 ************************************************* 

308 * * 

309 * procedure START_TRANSFER_0UT ( « 

310 * var SCT: select_code_t able ); » 

311 * * 

312 * This starts the card doing a transfer. * 

313 * The calling code must have already * 

314 * linked the transfer block in to the * 

315 * select_code__table structure. * 

316 * * 

317 ************************************************* 
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319 * module: DC_TRANS 

320 ************************************************* 

321 * * 

322 * procedure ENTER_DATA ( * 

323 * var SCT: selec t_code_t able; * 

324 * PTR : " data_bytes; * 

325 * var COUNT: longword ); * 

326 * * 

327 * COUNT initially passes the number of bytes * 

328 * which the upper level wants to read. THE * 

329 * ROUTINE DOES NOT NECESSARILV READ THIS MANY! * 

330 * Upon exit COUNT will be reflect the number * 

331 * of data bytes entered, whether or not there * 

332 * is an escape. * 

333 * * 

334 * escape(EOD): Terminated by reaching a control* 

335 * block when not enough bytes have been * 

336 * entered. TERIW10DE may be read with * 

337 * STATUS 9 and 10. * 

338 * * 

339 ************************************************* 

340 

341 
34 2 
343 
344 
345 
346 

347 * module : DC_TRANS 

348 ************************************************* 

349 * * 

350 * procedure OUTPUT END ( * 

351 * var SCT: selec t_code_t able ); * 

352 * * 

353 * Equivalent to the BASIC OUTPUT Sc;END. * 

354 « * 

355 * This operation may hang waiting for space. * 

356 * * 

357 ************************************************* 
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359 * module: DC TRANS 

360 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

361 * * 

362 * procedure CONTROL BFD ( » 

363 * var SCT: select_code_table; * 

364 * REG: 0..127; • 

365 * VAL: 0..255); • 

366 * * 

367 * Control register is intercepted and * 

368 * if MODE=0 no action is performed, otherwise * 

369 » the card is reset IMMEDIATELY. * 

370 * * 

371 * This operation may hang waiting for space. * 

372 * * 

373 * The ranges of REG & VAL are not checked * 

374 » for validity. * 

375 * » 

376 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx* 

377 
378 
379 
380 
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392 xxxxxxx*xxx*xxxxxxxxx*xxx*x**xxxxx*x*«xxx*£*x*xxx 

383 » 

384 * This code is required to check the validity 

385 * of a 98628/9 card: 

386 * 

387 * var DSDP: 0..6SS3S; 

388 * ATTR: 0. .255; 

389 * 

390 * if binandfreadio (SC.l ) ,60)=52 then begin 

391 * DSDP := readio(SC, 16395) * 256 

392 * + readio(SC, 16393) ; 

393 » if (0S0P<32768) then begin 

394 * ATTR := readio (SC,DSDP*2+1 ) ; 

395 * if binand(BTTR,127)=l then 

396 * (*>» CLAIM CARD! <«x) ; 

397 * end; 

398 * end; 

399 * 

400 * Remember that the readio operations above 

401 * can bus error! 

402 « 

403 x*x*xxxxx*xxxxxxxx*xx*xxxxx*x*x»x*xxx*xxxx*x***«* 

404 

405 
406 

407 **x*xx**x*x*xxx*x*****xxxxxxxx*xxx***xxxxxxxxx*x* 

408 * 

409 * One of the arguments to all routines is a 

410 * structure I call SCT : select_code_t able . 

411 * This is a structure allocated by the higher 

412 * level Modcal code, the last 34 bytes of 

413 * which I INITIALIZE AFTER MODCAL HAS 

414 * INITIALIZED THE FRONT PART. 

415 * 

416 * THE C ADR FIELD MUST BE INITIALIZED BEFORE 

417 * CALLING THIS ROUTINE: 

418 * 

419 » procedure ALVINIT ( 

420 * var SCT: selec t_code_t able ); 

421 * 

422 * This routine also resets the card. This 

423 * routine should be used at INITIALIZE time 

424 * but not at RESET (that's CONTROL 0;1). 

425 * 

425 *xxxxxxx**xx**x********xx***x****xxxxxx***x***xxx 
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428 

429 list 
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432 include COMDCL 
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******************************************************************************** 

* 

* modified: 02/22/82 JPC added parm to user EOT & ISR proc's 



435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 



******************************************************************************** 



******************************************************************************** 
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480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 



************************************************** ****************************** 

* 

* DRIVER TEMPS TEMPLATE 
* 

* OFFSET FROM A2 
* 

* HPL DECLARATIONS ( MODIFIED ) 



************************************************* 
PASCAL ISR LINK & UNLINK area 
user ISR: do NOT change the proc/stat link/parm ordering!!! 

procedu re pt r 

static link 

paramete r 
card address 
buffer pointer offset 
buffer pointer offset 
eir byte 

select code { i.e. 7 , 
timeout value 

=0 : no timeout 
#0 : value of timeout 
word access to my address 
byte access to my address 
standard space taken from temps 
normal cards ( 32 bytes ) 
98628 card ( 128 bytes ) 







*********************** 


**** 


0000 


0000 


ISR ENTRY 


EQU 





.19 


0000 


0014 


USER" ISR 


EQU 


20 




0000 


0014 


H ISR" PR 


EQU 


20 


.23 


0000 


0018 


FTISR SL 


EQU 


24 


.27 


0000 


001C 


H ISR PM 


EQU 


28 


.31 


0000 


0020 


C ADR 


EQU 


32 


.35 


0000 


0024 


BOFI off 


EQU 


36 


.39 


0000 


0028 


BUFO OFF 


EQU 


40 


.43 


0000 


002C 


EIRB OFF 


EQU 


44 




0000 


002D 


10 SC" 


EQU 


45 




0000 


002E 


TIMEOUT 
* 


EQU 


46 


.49 


0000 


0032 


* 
MA U 


EQU 


50 


.51 


ocoo 


0033 


MA 


EQU 


51 




0000 


0034 


AVAIL OFF 


EQU 


52 


-?-? 






* 




52 


!83 






* 




52 


.179 



22, etc. ) 
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510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 



************************** 
* 

* TRANSFER OFFSETS I 

* OFFSET FROM A3 

* PASCAL DECLARA 



****************************************************** 
N BUFFER CONTROL BLOCK 



TION 



oooo 


0000 


TTMP OFF 


EQU 





0000 


0005 


T SC OFF 


EQU 


5 


0000 


0007 


TffCT OFF 


EQU 


7 


0000 


0009 


TUSR~OFF 


EQU 


9 



,3 pointer to driver temp offset 
transfer select code 
actual transfer mode 
t ransfer mode 

00 - not used 

01 serial DMP 

02 serial FHS 

03 serial FASTEST ( DMA or FHS ) 

04 - not used 



0000 


OOOA 


T BU OFF 

* 

TEND OFF 

* 

TDIR OFF 

* 

TCHR OFF 

* 

TCNT OFF 

TBUF OFF 

TBSZ OFF 

TEMP OFF 

TFIL OFF 

T PR OFF 

* 

T SL OFF 

T - PM~OFF 

T~DMA"PRI 

* 

» T 

* 

TT INT 

TT DMA 

TT'BURST 

TT FHS 


EQU 


10 




0000 


OOOB 


EQU 


11 




0000 


OOOD 


EQU 


13 




0000 


OOOE 


EQU 


14 


. .15 


0000 

0000 
0000 
0000 
0000 

oooo 


0010 
0014 
0018 
001C 
0020 
0024 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


16 
20 
24 
28 
32 
36 


. .19 
. .23 
. .27 
. .31 
. .35 
. .39 


0000 

oooo 
oooo 


0028 
002C 
0030 


EQU 
EQU 
EQU 


40 
44 
48 


..43 
. .47 






RANSFER EQUATES 


oooo 
oooo 
oooo 
oooo 


0001 

0002 
0003 
0004 


EQU 
EQU 
EQU 
EQU 


1 
2 
3 
4 





BURST ) 

DMA or BURST ) 

DMA or INTR ) 



05 overlp INTR 

06 overlp DMA 

07 overlp FHS 

08 overlp FASTEST 

09 overlp OVERLAP 

transfer byte/word Indicator 

« byte / 1 ■ word 
transfer EOI/END indicator 

= no eoi / 1 - eoi sent or searched for 
transfer direction 

= input / 1 » output 
transfer terminate character 

-1 = no termination character 
transfer count 
transfer buffer pointer 
transfer buffer maximum size 
transfer empty pointer pointer 
transfer fill pointer 
transfer pointer to eot procedure 
NIL no procedure 
transfer eot proc static link 
transfer eot proc parameter 
dma priority request 



interrupt 

DMA 

burst 

fast handshake 



PAGE 

561 
562 
563 
564 
565 
566 
567 
568 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
S88 
589 
590 
591 
592 
593 
594 
595 
596 
597 
597 
597 
598 
599 
599 
599 
600 
601 
602 
602 
602 
603 
604 
605 
606 
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************************x************************x*x***************** ******** *s* 
* 

* EXTERNAL REFERANCES for escape 

******************************************************************************** 
REFA iodeclarat ions reference the io lib var. area 

REFA sysglobals 

******************************************************************************** 



Escape code values 







******************* 


0000 


oooi 


NO CARD 


EQU 


1 


0000 


0002 


NOT HPIB 


EQU 


2 


oooo 


0003 


NO A"CTL 


EQU 


3 


oooo 


0004 


NO _ DVC 


EQU 


4 


oooo 


0005 


NO SPACE 


EQU 


5 


oooo 


0006 


NO DATA 


EQU 


6 


oooo 


0007 


TFR" ERR 


EQU 


7 


oooo 


0008 


SC BUSY 


EQU 


8 


oooo 


0009 


BUF BUSV 


EQU 


9 


oooo 


OOOA 


TCNTERR 


EQU 


10 


oooo 


OOOB 


BADTMO 


EQU 


11 


oooo 


OOOC 


NO DRV 


EQU 


12 


oooo 


OOOD 


NO DMA 


EQU 


13 


oooo 


OOOE 


NO WORD 


EQU 


14 


oooo 


OOOF 


NOT TALK 


EQU 


IS 


oooo 


0010 


NOT LSTN 


EQU 


16 


oooo 


0011 


TMO~ERR 


EQU 


17 


oooo 


0012 


NO S"CTL 


EQU 


18 


oooo 


0013 


BAt? RDS 


EQU 


19 


oooo 


0014 


BAD SCT 


EQU 


20 


oooo 


0015 


CRD DWN 


EQU 


21 


oooo 


0016 


EOD"~SEEN 


EQU 


22 


oooo 


0017 


10 RISC 


EQU 


23 



FFFF FFE6 I0E_ERR0R EQU 



FFFF FFBE IOE_RSLT EQU 
FFFF FFBA IOE SC EQU 



FFFF FFFE ESC CODE EQU 
FFFF FFF6 RCVR~_BLK EQU 



list 



-26 



no interface 

not an hpib interface 

no active controller 

sc ( not device ) specified 

not enough space in the buffer 

not enough data left in the buffer 

t f r er ror 

sc is currently busy 

the buffer is busy 

bad count 

bad t imeout value 

no driver 

no dma installed 

no word transfers allowed 

not addressed as talker 

not addressed as listener 

timeout 

not system controller 

bad read status / write control 

bad set/clear/test 

interface is dead 

end of data has happened 

misc. error 



io sub system error escape code 



IODECLARflTIONS-66 
IQDECLflRPTIONS-70 



SYSGLOBPLS-2 
SYSGLOBPLS-10 
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609 
610 
611 
612 
613 
614 
61S 
616 
617 
618 
619 
620 
621 
622 
623 
624 
62S 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
841 
642 
643 
644 
64 S 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
6S7 
658 
659 
660 
661 
662 
663 
664 
665 



******************************************************************************** 

* Data Comm card RAM locations * 

* (byte offsets from base address) * 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



0000 
0000 
0000 



0000 
0000 
0000 
0000 

0000 

0000 



ocoo 

0000 
0000 
0000 



0000 
0000 

0000 
0000 



0000 
0002 
0004 
4000 
4002 
4004 
4006 
4008 
400C 



RESET 10 
INT Dflfl 
SEMfiPHORE 
INT COND 
COMMAND 
DATA REG 
PRIMARY ADDR 
DSDP 
ERROR CODE 



equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



soooooo 

$000002 
$000004 
$004000 
$004002 
$004004 
$004006 
$004008 
$004000 



************************ Data Structures Descriptor ************************** 



0000 
0002 
0006 



RTTRIBUTES 
TR QUEUE ADDR 
PRT/M AffDR 



equ 
equ 
equ 



$000000 
$000002 
$000006 



****************************** Queue ****************************************** 



0000 

0001 
0004 
0024 

0000 
0010 



TXENDBLOCKSPflCE equ 
RXDATABUFF_NUMB equ 
TXBUFF equ 

RXBUFF equ 



CTRL AREA 
DBTA_AREA 



equ 
equ 



$000000 
$000001 
$000004 
$000024 

$000000 
$000010 



****************************** Buffer record ********************************** 



0000 
0004 
0008 

oooc 



ADDR 
SIZE 
FILL 
EMPTY 



equ 
equ 
equ 
equ 



$000000 
$000004 
$000008 
$O0O00C 



****************************** Control block ********************************** 



0000 
0004 
0006 
0008 



POINTER 
TERMFIELO 
HODEFIELD 
CTRLBLKSIZE 



equ 
equ 
equ 
equ 



$000000 
$000004 
$000006 
$000008 



************************** 



** select_code_table ****************************** 
1 



0000 0034 ovrlaper equ AVAIL_0FF+00 

0000 0036 usrOmask equ AVAIL_0FF+02 

0000 0037 which_RXbuf equ AVAIL_0FF+03 

0000 0038 last_enter_term equ AVAIL_OFF+04 

0000 0039 last enter_mode equ AVAIL_OFF+0S 

0000 003A intblts equ AVAI LJDFF+06 

* unused 07 

* The following 26 bytes are saved at interrupt 

0000 003C term_and_mode equ AVAI L_0FF+08 ..09 ; Encompasses the two below 



word 

byte 
byte 
byte 
byte 
8 bits 
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666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 



0000 


003C 


term 


equ 


AVA 


0000 


003D 


mode 


equ 


RVP 


0000 


003E 


dat a_address 


equ 


AVA 


0000 


0042 


dat a_numbe r 


equ 


AVA 


0000 


0046 


outer_tx_count 


equ 


AVfi 


0000 


004A 


t imeout_counter 


equ 


AVA 


0000 


004E 


inner_counter 


equ 


AVA 


0000 


0052 


inner tx_count 


equ 


AVA 






* This is where 


the 


/ a r 


0000 


0056 


int savespace 


equ 


AVA 


0000 


0070 


SR Image 


equ 


AVA 


ooco 


0072 


RCR"_hook 


equ 


AVA 


0000 


007A 


err_hook 


equ 


AVA 


0000 


0082 


t re hook 


equ 


AVA 


0000 


008A 


bt6 hook 


equ 


AVA 


0000 


0092 


bt7 hook 


equ 


AVA 



IL OFF+08 




byte 


IL 0FF+09 




byte 


IL OFF+10 . 


. 13 


pointer 


IL~0FF+14 . 


. 17 


integer 


IL OFF+18 . 


. 21 


integer 


IL OFF+22 . 


. 25 


integer 


IL~0FF+26 . 


. 29 


integer 


IL~0FF+30 . 


. 33 


integer 


e saved: 






IL OFF+34 . 


. 59 




IL~0FF+60 . 


. 61 


word 


IL OFF+62 . 


. 69 


procedu re 


IL~0FF+70 . 


. 77 


procedure 


IL OFF+78 . 


. 85 


procedure 


IL~0FF+86 . 


. 93 


procedu re 


IL~0FF+94 . 


. 101 


procedure 



0000 009A sctablebytes equ AVAIL_0FF+102 



size of the entire table for allocation 



Bits for interrupt 
register 



0000 0000 error_int equ 

0000 0001 rx_int equ 1 

0000 0002 tx_int equ 2 

0000 0003 ON_INTR_int equ 3 

0000 0004 RC_reset_int equ 4 

0000 0005 trace_int equ 5 

************************************************************************* ******* 
list 
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699 

700 

701 * **** * x ***** 

702 * ***** 

703 * ***** 

704 * **** * * ***** 

705 * ***** 

706 * ***** 

707 * **** *** * 
708 

709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 



745 
746 
747 
748 
749 
750 
751 
752 
753 
754 



******************************************************************************** 

* * 

* routine gain_access: gets access to SEMAPHORE on card for buffer * 

* =========== utilities. If access is not gained in a * 

* preset time, an escape is performed. * 

* * 

* fit entry: * 
» a3.1 = card base address ($00xx0001) * 

* * 

* Upon normal exit: * 

* If escape performed then * 

* Timeout occurred * 

* Otherwise * 

* Recess was gained * 
« SR has been set to disable all but level 7 interrupt. The * 

* SR has been pushed on the stack and GAIN ACCESS MUST BE * 

* CALLED FIT THE SAME LEVEL ON THE STACK I Ml! * 

* * 

* This bashes d2 . 1 . * 

* * 
******************************************************************************** 



0000 002A 
0000002A 241F 
0000002C 4E4B 

0000002E 2F02 
00000030 007C 2700 



* scs 



00000034 243C 0002 

673C 
0000003A 4A2B 0004 
0000003E 6A1E 
00000040 S382 
00000042 66F6 



00000044 S84F 
00000046 46DF 



00000048 6000 026E 



gain_access equ * 

move.l (sp)+,d2 

trap #11 

move s r , - (spl 

move.l d2.-(sp) 

ori #$2700, sr 

move.w 4(sp),d2 

and.w #$F0FF,d2 
or .w 
move 



* scs 

* scs 

* scs 

* scs 



#$0600, d2 
d2,sr 



; Get return address 

get into supervisor, save SR 

; Push on old SR 

; and push on return address 

lock out all interrupts 

; Now get old SR into d2 

; St rip off old int level 

; Set interrupt level 6 

; and put into SR 



i»v»c u = , o i , aiiu^ui=niuo^ 

move.l #157500, d2 [CALIBRATED 1 SEC] ; Initialize counter 



galoop tst.b 
bpl.s 
subq.l 
bne . s 



addq 
move 
* scs move 
bra 



SEMAPHORE (a3) 
gadone 
Il.d2 
galoop 

Timed out: escape, but first... 

#4,sp pop return addres 

(sp)+,sr restore user mode 

4(sp),sr ; Get old SR back 

lunched ; Now escape 



; Fetch semaphore bit in bit 7 (sign) 
; If bit 7 true then done! 
; Loop for preset time 



scs 
scs 
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******************************************************************************** 



756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 

777 
778 
779 
780 
781 
782 
783 
784 



* routine release_access : releases access to SEMAPHORE on card which * 

* ============== wa s previously gained with gain_access. * 

* Read the notes with the above routine to * 

* see description of stack funnies. * 

* THIS MUST §E CALLED UITH A BSR INSTRUCTION! * 

* £ 

* At entry: * 

* a3.1 = card base address (SOOxxOOOl) * 

« * 

* Upon normal exit: * 

* no registers are bashed. * 

* * 
******************************************************************************** 



0000 004C release_access equ * 



0000004C 1740 0004 

00000050 3F2F 0004 
00000054 2F6F 0002 

0004 
0000005A 3E9F 
0000005C 4E73 



0000005E 4E75 



* scs 

* scs 

* scs 

* scs 



gadone rts 



move.b dO, SEMAPHORE (a3) 

move.w 4(sp),-(sp) 

move.l 2(sp),4(sp) 

move.w (sp)t,(sp) 

rte 

move 4'sp),sr 

move.w 2(sp),4(sp) 

move.w fsp),2(sp) 

adda.l #2,sp 



; Store don't-care into semaphore, 
switch SR and return address 



scs 
scs 



scs 

SC5 



restore user mode, return 

; Now get old SR back 

; Now move return address up 

; into where we will return to 

; & bump up by one word 

; Now return to the return address. 
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7gg *********************************** 

III t routine find TRBUF: Sets up pointer in a2 to point to the record 

y|| * =========== describing the card's TRBUFF structure. 

79? $ routine find TXBUF: Sets up pointer in a2 tp point to the record 

792 * =■==:====== describing the card's TXBUFF structure. 

routine find RXBUF: Sets up pointer in a2 to point to the record 



793 

7II I ' ' ========SLi describing'the card's RXBUFF structure. 

796 * 

797 * At ent ry: „„„. , 

798 x a3.1 - card base address ($00xx0001) 

799 * 

18? * UP ° n e "a2.1 - buffer record base address (CTRLBUFF ADDR, 

802 * CTRLBUFF SIZE, CTRLBUFF_FI LL , CTRLBUFF_EI1PTY , 

DATABUFF~BDDR, etc). (shifted, +l+selectcode) 
This bashes al, 34 and dS. 



******************************************************************************** 



802 
803 
804 
805 
806 
807 

808 0000 0060 find_TRBUF equ * 

809 00000060 7A00 moveq #0,d5 

810 00000062 247C 0000 movea.l #TR_QUEUE_ADDR, a2 

0002 

811 00000068 600C bra.s findTR 
812 

813 0000 006A find_TXBUF equ * 

814 0000006A 7H04 moveq #TXBUFF,d5 

815 0000006C 6002 bra.s find 
816 

817 0000 006E findJ*XBUF equ * 

818 0000006E 7A24 moveq #RXBUFF,dS 

819 00000070 247C 0000 find movea.l #PRII1_0_ADDR , a2 

0006 
820 

821 00000076 4284 findTR clr.l d4 

822 00000078 090B 4008 movep.w DSDP(a3),d4 

823 0000007C EE5C ror.w #7,d4 

lis SSSSSSSi §112 ™Ul.l S2:2l ; .I P°"ts to Data Struct Descriptor 

826 , , 

111 8§§88§1I S!8 adda 1 ! al.al ; add offset to which queue table 

829 00000086 0909 0000 movep.w 0(al),d4 

830 0000008A EE5C ror.w #7,d4 

831 0000008C D88B add.l a3,d4 

III 88888811 ill! movea.l ¥<?2 i a2 points to buffer record 

834 00000092 4E75 rts 



PAGE 24 [2.0] 11/4/82 16:23:45 DC_BUFF: BUFFER UTILITIES 

x*x»»x*»*x»*«**********************«************»*****"************* ********"** 



routine f ind_RX _DATA : Sets up pointers to point to the appropriate 



836 
837 

838 * routine rino ka uhih; am uu niimci; w ^";": 'y ■ ' — r^";,"r H ";f :_ r » 

o,S - ============ receive data buffer. This is to be used after * 

tin » the routine find_RXBUF which sets up the * 

nV » pointer (in a2) to the receive control buffer * 

842 * descriptor record structure. * 

843 * » 

84* * t en,ry a3.1 = card base address (S°0xx0001) * 

Hi » a2 .l = Buffer record base address (CTRLBUFF ADDR * 

%Vk * CTRLBUFF SIZE, CTRLBUFF FILL , CTRLBUFF EMPTY ' 

%ZL * DATABUFFff ADDR, etc). Tshifted, *l+seTectcode ) * 

§49 x a4.1 ■= pointer to select_code_t ab le structure * 

850 * 

851 * Upon exit 

852 

853 
854 
855 
856 
857 

858 0000 0094 find_RX_DATA equ * 

859 00000094 227C 0000 movea.l #DATA_AREA , al 

860 0000009A 4285 clr.l dS ; compute offset for UHICH rx data 

861 OOOO089C 1R2C 0037 move.b which_RXbuf ( a4 ) , d5 ; buffer we are using 

862 000000A0 E985 asl.l #4,dS 

863 000OOOA2 D3C5 adda.l d5,al 



al.l - data area base address (shifted, -H + selec tcode ) * 

* d4 1 = address of first byte PAST data area (shifted, *l+sc) * 

* dS.l = XXxxxxBUFF_SIZE (unshifted, not adjusted) * 



864 

865 0OOOOOA4 60OE 



bra.s findare ; Now go do the rest of it! 
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867 
868 



870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 



890 
891 
892 
893 
894 
895 

896 
897 
898 
899 

900 
901 
902 
903 
904 
90S 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 



000000A6 
O00O00BC 



OO00OOB4 

O0OO0OB6 
000000B8 
OOOOOOBC 

OOOOOOBE 
OOOOOOCO 
OOO0OOC4 
000000C6 
000000C8 
OOOOOOCA 

oooooocc 



O0000OCE 4E75 



O000 O0P16 
227C 0000 
0010 
6006 

0000 OOfiE 
227C 0000 
0000 

D3CA 
4285 

0B09 0004 
E05D 

4284 

0909 0000 

EESC 

D88B 

2244 

D88S 

D88S 
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************************ ***x********x*****************x****:tc****«y*«K *********** 
x x 

* routine f ind_DATA_AREA : Sets up pointers to point to the data buffer. * 

* ============== This is to be used in conjunction with the * 

* routines find XXBUF which will set up the * 

* pointer (in a?) to the buffer we are using. * 

* THIS SHOULD NOT BE USED WITH THE RECEIVE » 

* BUFFER! USE THE PREVIOUS ROUTINE INSTEAD! * 

* * 

* routine f ind_CTRL_AREA : Sets up pointers to point to the Ctrl buffer. » 

* ============== This is to be used in conjunction with the * 

* routines find XXBUF which will set up the * 

* pointer (in a?) to the buffer we are using. * 

* * 
» At entry: * 

* a3.1 - card base address ($00xx0001) * 
» a2.1 = Data buffer record base address (CTRLBUFF AODR, * 
« CTRLBUFF_SIZE, CTRLBUFF FILL, CTRLBUFF EMPTY, * 

* DATABUFF_ADDR, etc). (shifted, +l + selec tcode ) * 

* * 

* Upon exit : * 

* al.l = data area base address (shifted, +l+selectcode) * 

* d4.1 = address of first byte PAST data area (shifted, +l+sc) * 

* dS.l = XXxxxxBUFF_SIZE (unshifted, not adjusted) * 

* * 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

find_DPTA_BREA equ * 

movea.l #DATA_AREA , al 

bra.s findare 

find_CTRL_AREA equ * 

movea.l #CTRL_AREA ,al 

findare adda.l a2,al ; al points to data/ctrl part of record 

clr.l dS 
movep.w SIZE(al),d5 
ror.w #8,d5 ; dS = SIZE in bytes 

clr.l d4 

movep.w ADDR(al) ,d4 

ror.w #7,d4 

add.l a3,d4 

movea.l d4,al ; al points to front of buffer area 

add.l dS,d4 

add.l dS,d4 ; d4 points past end of buffer area 

rts 
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918 
919 

920 * *** *** x x 

921 * * * * * xx xx 

922 * * x x x x x 

923 * * * * * * 

924 * * x x x x 

925 * ****** 

926 * *** xxx * * 
927 

928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
94 5 



946 
947 
948 
949 
9S0 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

* * 

* procedure BLVINIT(var SCT: select_code_t able) * 

* * 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



0000 OODO alvinit equ * 

00000000 205F movea.l (sp)+,a0 

00O0OOD2 28SF movea.l (sp)*,a4 

000000D4 4850 pea (aO) 

OOO0O0D6 266C 0020 movea.l c adrfa4),a3 

000000DA 528B addq . 1 #T,a3 



OOOOOODC 243C 0000 

0065 
000000E2 4234 2034 clrloop clr.b 



move.l tsctablebytes-l-AVAIL_0FF,d2 



0O00OOE6 51CB FFFA 

000000EA 102B 0002 
O0O000EE 0240 0030 
00O00OF2 0640 0230 
O00000F6 E940 
000000F8 3940 0070 

O0000OFC 422C 0037 

00000100 6100 022C 

00000104 6100 0176 

00000108 6000 0192 



dbf 



AVAIL_0FF(a4,d2) 
d2, clrloop 



move.b INT DMA(a3),d0 

andi.w t$00~30,dO 

addi.w #$0230, dO 

asl.w #4,d0 

move.w d0,SR_image (a4) 



CLR.B 


UHICH_RXBUF(A4) 


bsr 


c h k_e r r 


bsr 


do_reset 


bra 


check ov e r ror 



This SR is used to 
set the interrupt level 
equal to that of the 
card. 



See if card is giving 

ove r lapped error 

This can escape if card bad 

Escape if any error 



( SPRyyy TM 6/15/82 ) 
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I********************************************************************"******"* 

* * 

* routine eir: Enables interrupts on this card only. * 

* = = = * 

* * 

* At entry: * 

* a3.1 = card's base address ($00xx0001) * 

* * 

* Upon normal exit: * 

* No registers are changed. * 
» * 
******************************************************************************** 

; Set enable-interrupt bit true 



0000 010C eir equ * 

0000010C 177C 0080 move.b #$80, INT_DMA(a3 

0002 
00000112 4E75 rts 



******************************************************************************** 

* » 

* routine dir: Disables interrupts on this card only. * 

* === * 

* * 

* At entry: * 

* a3.1 = card's base address (SOOxxOOOl) * 

* * 

* Upon normal exit: * 

* No registers are changed. * 

* * 
******************************************************************************** 

; Clear enable-interrupt bit 



0000 0114 dir equ » 
00000114 422B 0002 clr.b INT_DMA(a3) 
00000118 4E75 rts 
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************************************************* 



998 

999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 

1032 

1033 
1034 
1035 
1036 
1037 
1038 



* procedure DIRECT CONTROL ( » 

* var S"CT: select_code table: * 

* REG: 1. .127 & 255 & 257; * 

* VAL: 0..25S ) ; * 

* * 
************************************************* 



0000011A 
OOOOOHC 
OOOOOHE 
00000120 
00000122 
00000124 
00000128 



0000 011A direct_control equ * 



205F 

321F 

341F 

28SF 

4850 

266C 0020 

528B 



movea.l (sp)+,aO 
move.w [ sp) + ,dl 
move .w rsp)+,d2 
movea.l fsp)+,a4 
pea (aO) 
move a .1 c adr (a4) , a3 
addq.l #T,a3 



VAL 
REG 
SCT 



0000012A 6100 0170 



bsr 



check ov_error 



0000012E 
00000132 
00000136 
0000C13A 
0000013C 
00000140 



00000144 
00000148 
OOOOOHC 
00000150 



1741 4004 

1742 4002 
B43C 0070 
6608 

6100 0422 
6100 0430 

0000 0144 notl25 

x 
B47C 0100 
6700 0428 
B47C 0101 
6700 040E 



move.b dl,DATA REG(a3) 

move.b d2,C0r1MA~ND (a3) 

cmp.b #125,d2 

bne . s not 125 

bsr outxfr done 

bsr inxfr_d"one 

equ * 

CMP.U #256. D2 

BEO INXFR DONE 

CMP.U #257,112 

BEQ OUTXFR DONE 



Escape if any error 

Send VAL 
then REG 



; For Ctrl 12S (abort) 
; abort transfers 

(tm) mod - 12/02/81 
tm CHECK FOR ABORT TFR IN 
tm) 

tm CHECK FOR ABORT TFR OUT 
tm 



mov 



e.l #181851, dO [CALIBRATED 1 SEC] 



Now start counter for timeout 



000001S4 203C 0002 

C6SB 

0000015A 4A2B 4002 ctloop tst.b C0MMAND(a3) -„„„„. m „ 

0000015E 6708 beq . s ctldun ; Done when COMMAND-0 

00000160 5380 subq.l #l,dO . . . 

00000162 66F6 bne.s ctloop ; Otherwise decrement counter 

00000164 6000 0152 bra lunched ; & escape 



00000168 6000 0132 ctldun bra 



check_ov_er ror 
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1040 
1041 

1042 
1043 
1044 
104S 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
10S9 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 



***»*****************************************#*** 



procedure DIRECT STAT 
var 5CT: 
REG: 
var VAL: 



These 
0: 
1: 
2: 



9: 

10; 
11 : 



re 



Sisters are 
ives value 
Returns true 
Returns bit 
bit 
Returns 
buffer 
Returns last 
Returns last 
Returns # by 
queue, or 
control bloc 



2 bi 



select code table; * 

1..127; * 

word ) ; * 

* 

intercepted: * 

from RESET_I0 * 

if hardware interrupts * 

2 = in xfr active; * 

3 = out xfr active * 
ts saying state of Rx » 

* 

ENTER TERM * 

ENTER MODE * 

tes available in Tx * 

if there's not 3 * 

k positions available * 



************************************************* 



0000 016C direct 
0000016C 205F 
0000016E 225F 
00000170 301F 
00000172 28SF 
00000174 4850 
00000176 266C 0020 
0000017A 528B 

0000017C 6100 011E 

00000180 4241 
00000182 2F09 



00000184 
00000186 
00000188 
0000018C 
0000018E 
00000190 
00000194 
00000196 
0000019A 
0000019C 
OOOOOlfiO 
000001fl2 
000001H6 
000001A8 
000001BC 



4B00 
6738 

0C00 0002 
6D38 
6744 

0C00 OOOS 
67S8 

OCOO 0009 
6766 

OCOO 000ft 
6766 

OCOO OOOB 
6766 

D03C 0080 
1940 003C 



000001BO 6100 0092 
000001B4 122C 003D 



status equ » 

movea.l jsp)+,aO 

movea.l [spj+,al 

move . w f sp ] + , dO 

movea .1 f sp 1 + , a4 

pea (aO) 

movea .1 c adr (a4 ) , a3 

' #T, a3 



addq. 1 

bsr 

cl r .w 
move . 1 

tst .b 

beq. s 
cmpi .b 
blt.s 
beq.s 
cmpi .b 
beq . s 
cmpi . b 
beq . s 
cmpi .b 
beq. s 
cmpi .b 
beq. s 
add.b 
move .b 



check_ov_error 

dl 
al,-(sp) 



dO 

stsO 

#2,d0 

stsl 

sts2 

#5,d0 

sts5 

#9,d0 

sts9 

#10, dO 

stslO 

#11, dO 

stsll 

#128, dO 

dO, term(a4) 



addr(VAL) 
REG 

SCT 



Escape if any error 
dl will hold result 



Check for intercepted regs 



Send TERM 



000001B8 225F 
000001BA 3281 



gotsts 



bsr direct command 
move.b mode(a4~),dl 

movea.l (sp)+,al 
move.w dl, (ai ) 



Return value 
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1097 


000001BC 


6000 


OODE 




bra 


check_ov_e r ror 


1098 














1099 








* 






1100 








* Special intercepted registers 


1101 








* 






1102 














1103 


000001C0 


122B 


0000 


stsO 


move .b 


RESET_ID(a3),dl 


1104 


000001C4 


60F2 






bra. s 


gotsts 


1105 














1106 


000001C6 


082B 

0002 


0007 


stsl 


btst 


#7,INT_DMR(a3) 


1107 


000001CC 


S6C1 






sne 


dl 


1108 


000001CE 


C27C 


0001 




and .w 


#$0001, dl 


1109 


000001D2 


60E4 






bra.s 


got sts 


1110 














1111 


000001D4 


246C 


0024 


sts2 


movea . ] 


BUFI 0FF(a4),a2 


1112 


00000108 


200ft 






move . 1 


a2,d0" 


1113 


000001DA 


6704 






beq . s 


sts2a 


1114 


000001DC 


08C1 


0002 




bset 


#2.dl 


1115 


000001E0 


246C 


0028 


sts2a 


movea . J 


BUFO 0FF(a4),a2 


1116 


000001E4 


200ft 






move . 1 


a2,d0" 


1117 


000001E6 


67D0 






beq. s 


gotsts 
#3,dl 


1118 


000001E8 


08C1 


0003 




bset 


1119 


000001EC 


60CA 






bra. s 


got st s 


1120 














1121 


000001EE 


6100 


FE7E 


stsS 


bsr 


find RXBUF 


1122 


000001F2 


6100 


FF20 




bsr 


dir 


1123 


000001F6 


6100 


0S2fi 




bsr 


RX stuff avail 


1124 


OOOOOlFfl 


3200 






move .w 


d0,dl 


1125 


000001FC 


6100 


FFOE 




bsr 


eir 


1126 


00000200 


60B6 






bra.s 


gotsts 


1127 














1128 


00000202 


122C 


0038 


5t59 


move.b 


last_enter term(a4),dl 


1129 


00000206 


60B0 






bra.s 


gotsts 


1130 














1131 


00000208 


122C 


0039 


stslO 


move .b 


las t_ent er_mode (a4 ) , dl 


1132 


0000020C 


60AA 






bra.s 


gotsTs 


1133 














1134 


0000020E 


6100 


FE5B 


stsll 


bsr 


find TXBUF 


1135 


00000212 


6100 


FFOO 




bsr 


dir 


1136 


00000216 


6100 


FE96 




bsr 


find CTRL ftREft 


1137 


0000021A 


6100 


074fi 




bsr 


TXCTR"LBUFFroom 


1138 


0000021E 


4241 






clr .w 


dl 


1139 


00000220 


0483 

000C 


0000 




subi . 1 


#12, d3 


1140 


00000226 


6090 






blt.s 


got sts 

find DfiTfl AREA 


1141 


00000228 


6100 


FE7C 




bsr 


1142 


0000022C 


6100 


074ft 




bsr 


TXDATABUFFroom 


1143 


00000230 


3203 






move ,w 


d3,dl 


1144 


00000232 


6100 


FED8 




bsr 


eir 


1145 


00000236 


6080 






bra 


gotsts 



1-171 



PAGE 
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1147 




1148 




1149 




USO 




11S1 




1152 




11S3 




1154 




1155 




1156 




1157 




1158 




1159 




1160 




1161 




1162 




1163 




1164 


00000238 


1165 


0000023E 


1166 




1167 




1168 




1169 




1170 




1171 




1172 




1173 




1174 




1175 




1176 




1177 




1178 




1179 




1180 




1181 


00000244 


1182 


0000024P, 


1183 




1184 


00000250 


1185 


00000256 


1186 


0000025R 


1187 


0000025C 


1188 


000002SE 


1189 


00000260 


1190 




1191 


00000264 


1192 


0000026A 
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» » 

* routine put_INThASK: Sends the value in usrOmask to the card. * 

* * 

* fit entry: * 

* a3.1 * card base address (SOOxxOOOl) * 

* a4.1 = address of sc_subtabletype structure * 

* sc_subt abletype . usrOmask has value to send to card. * 

* * 

* This bashes term and mode in the select code subtable. " 

* * 

* This bashes dO . * 

* * 
******************************************************************************** 



Send the new driver interrupt mask 



0000 0238 put_INTMASK equ * 

197C 0079 move.b #121 , term(a4) 

003C 

196C 0036 move.b usrOmask (a4 ), mode ( a4 ) ; down with control #121 

003D 

*** bra direct_command 

» * 

* routine direct_command * 



a3.1 
a4.1 



Base address of card 

Address of SCT: select_code_table 



* This bashes dO . * 

******************************************************************************** 

0000 0244 direct_command equ * 

176C 003D move.b mode (a4) ,DATA_REG(a3) 

4004 

176C 003C move.b term(a4) .COMMAND (a3) 

4002 



; Send TERM 
move.l #181851, dO [CALIBRATED 1 SEC] ; Now start counter for timeout 



203C 0002 

C65B 

4A2B 4002 dcloop tst.b C0MMAND(a3) 

6708 beq.s dcdone 

5380 subq.l #l.dO 

66F6 bne.s dcloop 

6000 0056 bra lunched 

196B 4004 dcdone move.b DBTA_REG(a3) ,mode (a4) 

003D 

4E7S rts 



; Done when COMMANDS 

; Otherwise decrement counter 
; & escape 



PAGE 

1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 

1214 
121S 

1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 

1240 
1241 
1242 

1243 
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******************************************************************************** 

* * 

* routine get_INTMASK: Reads the value of usrOmask from the card. * 

* = = = = = =—== ^ 

* At entry 



a3.1 » card base address ($00xx0001) 

a4.1 = address of sc_subt able t ype structure 



At exit: 



sc_subtablet ype . usrOmask has value from the card. * 

* * 

* This bashes term and mode in the select code subtable. * 

* * 

* This bashes dO. * 

* * 
Mi******************************************* ********************************** 



0000 026C get_INTMASK equ * 

0000026C 197C 00F9 move.b #121+128 , term( a4 ) 

003C 
00000272 61D0 bsr direct command 

00000274 196C 003D move.b mode (a4) , usrOmask (a4) 

0036 
0000027A 4E75 rts 



; Get the current interrupt mask 
; from register #121 



******************************************************************************** 

* * 

* do reset: resets the card, waits for it to complete powerup and * 

* =„^ = = = then gets INTMASK again. * 



Uses: 



a3 . 1 = Base address of card 

a4.1 = Address of SCT: select_code_t able 



* This leaves interrupts ENABLED * 

* * 

* This bashes dO. * 
* 
******************************************************************************** 



0000 027C do_reset equ 



0000027C 6100 02E2 
00000280 6100 02F0 
00000284 6100 FE8E 

00000288 177C 0080 

0000 
0000028E 6100 FD9A 
00000292 6100 FDB8 
00000296 61D4 
00000298 6000 FE72 



bsr 
bsr 
bsr 



outxfr done 
inxf r_d"one 
dir 



Abort transfers 



move.b #$80,RESET_ID(a3) 



bsr 
bsr 
bsr 
bra 



gain_access 
release access 
get_INTRASK 
eir 



Disable card interrupts to prevent 

conflicts 

Send reset ($80) to card 

Wait until SEMAPHORE is freed 
and then give it back 
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1245 a******************************************************************************* 

1246 « * 

1247 * routine check_ov error: If the 'ovrlaper' location is nonzero then * 

1248 » ======= = =•= = = = = this escapes with that error. * 

1249 * * 

1250 » Uses: a3.1 = Base address of card ($00xx0001 ] * 

1251 * a4.1 ■ fiddress of SCT: select code table * 

1252 * ~ — * 

1253 * This leaves interrupts ENABLED * 

1254 * * 

1255 ******************************************************************************** 
1256 

1257 

1258 0000 029C check ov error equ * 

1259 0000029C 6100 FE76 b"sr dir 

1260 000002A0 2F00 move . 1 dO,-(sp) 

1261 000002A2 4280 clr.l dO 

1262 000002A4 302C 0034 move.w ovr laper (a4 ) , dO 

1263 000002fl8 426C 0034 clr.w ovrlaper a4 

1264 000002AC 6100 FE5E bsr eir 

1265 000002B0 4A40 tst.w dO 

1266 000002B2 660A bne.s escape 

1267 000002B4 201F move.l (sp)+,dO 

1268 000002B6 4E75 rts 
1269 

1270 

1271 ****************************** Escapes ***************************************** 

1272 

1273 0000 02B8 lunched equ « 

1274 000002B8 7015 moveq #crd dwn.dO 

1275 000002BB 6002 bra.s escape 
1276 

1277 0000 02BC time_err equ » 

1278 000002BC 7011 moveq #tmo err.dO 
1279 

1280 ******************************************************************************** 

1281 * * 

1282 * routine escape: performs Pascal "escape" function. Error exit * 

1283 * ====== number is to be passed in dO. * 

1284 * » 

1285 * Uses: a3.1 = Base address of card * 

1286 * a4.1 = fiddress of SCT: select_code_t able * 

1287 * a5 . 1 = Global pointer for escape arguments * 

1288 * dO.l = Escape number " * 

1289 * x 

1290 * This leaves interrupts ENfiBLED » 

1291 * * 

1292 ******************************************************************************** 
1293 

1294 0000 02BE escape equ * ; Escape point for errors 

1295 000002BE 2B40 FFBE move.l dO , I0E_RSLT ( aS) 

1296 000002C2 4285 clr.l d5 ; Tim's magic escape stuff 

1297 000002C4 1A2C 002D move.b 10 SC(a4),d5 

1298 000002C8 2B45 FFBPI move.l dS.IOE SC(aS) 

1299 000002CC 3B7C FFE6 move.w tlOE ERROR, ESC C0DE(aS 



FFFE 



(aS) 
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1300 000002D2 177C 0080 move.b #$80, INT DMB(a3) :Re-enable card interrupts if off 

0002 _ 

1301 000002D8 4E4fi trap #10 
1302 
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1305 
1306 

1307 * ***** * * ***** ***** ** 

1308 * ****** * 

1309 * ****** * 

1310 * ***** *** ** 

1311 * ***** * 

1312 * ***** * 

1313 * ***** * * * ***** * 
1314 

1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
13S6 
1357 
1358 



******************************************************************************** 

* * 

* DATA COlin CARD TOP LEVEL INTERRUPT SERVICE ROUTINE « 

* * 

* This is reached thru the softpoll table for the appropriate « 

* interrupt level. * 

* * 

* This handles a hardware interrupt from the data conrn card. First it * 

* enquires to find out what interrupt conditions are pending, then it * 

* calls the appropriate routines to handle the conditions. * 

* * 

* At entry: * 

* a5 . 1 = pointer to globals area * 

* * 

* During this routine: * 

* a3.1 = card's base address (SOOxxOOOl) * 

* a4.1 = address of sc_subt ablet ype structure » 

* * 
******************************************************************************** 



000002DA 
000002DC 
000002DE 



0000 
20SF 
285F 
4850 



02DA 



000OO2EO 266C 0020 
000002E4 528B 



top_isr equ * 

movea.l fsp)+,aO 

movea.l (sp)+,a4 

pea (aO) 

movea.l C_ADR(a4),a3 

addq.l #l,a3 



; Save return addr 
; Get sc_subtablet ype 
; Replace ret addr 

; Get card base addr 

; Now a3.1 = OUR base address of card 



000002E6 
000002EA 
000002EE 
000002FO 
000002F4 



48E7 
2F2D 
2F0E 
487A 
2B4F 



13S9 



000002F8 
000002FE 



396C 

0056 
4CEC 
003E 



********** TRV SECTION: RECOVER IS AT END OF ISR 

movem.l a3/a4 -(sp) 

move.l RCVR BLK(aS),-(sp) 

move .1 a6, -Jsp) 

pea recover_sect ion 

move.l sp,RCVR_BLK(aS) 

********** END OF 'TRY' keyword 

003C move.w t erm_and_mode ( a4 ) , int_savespace ( a4 ) 

003F movem.l term_and_mode+2 (a4) ,d0-dS 



0018 
FFF6 



OOCE 
FFF6 



PAGE 

1360 

1361 
1362 

1363 

1364 
1365 
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00000304 48EC 003F 
0058 



0000030A 1968 4000 
003A 



movem.l d0-d5,int_savespace+2(a4) 

move.b INT_C0ND (a3 ) , intbi t s ( a4 ) ;Get all the interrupt condition bits 

From now on, each handler routine checks for its particular interrupting 
condition and then jumps to the next. This is done primarily for speed. 
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PAGE 


37 [2.0] 11/4/82 16: 


23:45 DC_INTER: 
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1367 








xxxx**************************************************************************** 




1368 








* 


* 




1369 








* routine 


remcont reset_isr: Takes care of communicating a * 




1370 








* 


================= card's remote-control-reset to the * 




1371 








* 


operating system * 




1372 








* 


* 




1373 








**X***X*****X*X********X***X******X****X*XX*X**X********X*****************XX**** 




1374 














1375 




0000 


0310 


remcont reset isr equ * 




1376 


00000310 


082C 
003A 


0004 


btst 


#RC_reset_int,intbits(a4) ; Test for bit #4 for this condition 




1377 


00000316 


6708 




beq.s 


error isr 




1378 


00000318 


43EC 


0072 


lea 


RCR hook(a4),al 




1379 


0000031C 


6100 


OOOC 


bsr 


t ry_hook 




1380 














1381 














1382 














1383 








*********x******x**x**xxx* *********************** ******************************* 




1384 








* 


* 




1385 








* routine 


error isr: Handles the communication of an error from the » 




1386 








* 


========= interface card back to BASIC, or the hook. * 




1387 








* 


* 




1388 








* At entry: * 




1389 








* 


a3.1 = card base address (SOOxxOOOl) * 
a4.1 ■ address of SCT : select code table * 




1390 








* 




1391 








* 


X 




1392 








* Upon normal exit: * 




1393 








* 


* 




1394 








* The 'chk err' routine is used also at powerup time. * 




1395 








* 


* 




1396 








*x**x*x***xxx*x****x**********x*x**xx************xx*x****xxx***xx*xx****xxxx*x** 




1397 














1398 




0000 


0320 


error isr equ * 






1399 


00000320 


082C 
003A 


0000 


btst 


#error_int , intbit s(a4) ; Test for bit #0 for this condition 




1400 


00000326 


6724 




beq.s 


data_rx_isr 




1401 














1402 


00000328 


6100 


0004 


bsr 


chk err 




1403 


0000032C 


601E 




bra.s 


data_rx_isr 




1404 














1405 


0000032E 


4240 




chk_err clr.w 


dO 




1406 


00000330 


102B 


400C 


move .b 


ERROR C0DE(a3),d0 ; fetch error number 




1407 


00000334 


6714 




beq. s 


errdone ; ignore ERROR CODE=0 




1408 


00000336 


422B 


400C 


clr.b 


ERROR C0DE(a3) 




1409 


0000033fl 


D07C 


012C 


add .w 


#300, HO ; add offset 




1410 














1411 


0000033E 


3940 


0034 


move .w 


d0,ovrlaper(a4) 
err_hook (a4 J ,ai 




1412 


00000342 


43EC 


007A 


lea 




1413 


00000346 


6100 


00B2 


bsr 


t ry_hook 




1414 














1415 


0000034R 


4E7S 




errdone rts 






PAGE 
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1417 








*****x*s*xxx*x**x*********x**x*xx*x***********************************x*****x*** 




1418 








* 


* 




1419 








* routine 


data rx isr: Handles moving received data to the user's * 




1420 








* 


=========== buffer for an inbound TRANSFER. * 




1421 








* 


X 




1422 








***xx***x**xxx*xx********************x****x********x*x**********xx*xx*xx*xx*xxx* 




1423 














1424 




0000 


034C 


data rx isr equ 


* 




1425 


0000034C 


082C 
003A 


0001 


btst 


#rx_int , intbits (a4) ; Test for bit #1 for this condition 




1426 


00000352 


6704 




beq. s 


dat a_tx_isr 




1427 


00000354 


6100 


OOCE 


bsr 


do_inxf r 




1428 














1429 








xx************xx***xxxxxxxxxxxxx*xxx**x*xx*xx**x*x*xx X* X********** ************** 




1430 








* 


* 




1431 








* routine 


data tx isr: Handles moving transmit data from the user's * 




1432 








* 


=========== buffer to the card for an outbound TRANSFER. * 




1433 








* 


* 




1434 








******XX***XX*XX*X*********X*******X*****X******************XX*XX****** ********* 




1435 














143$ 




0000 


0358 


data tx isr equ 


X 




1437 


00000358 


082C 
003A 


0002 


btst 


#tx_int , intbits(a4) ; Test for bit #2 for this condition 




1438 


0000035E 


6704 




beq.s 


0N_INTR isr 




1439 


00000360 


6100 


0186 


bsr 


do_outx7r 




1440 














1441 








****** *x*x**x*********x***************xx******xxxxx****xxxx*** ****************** 




1442 








* 


X 




1443 








* routine 


ON_INTR_isr: Handles the communication of an ON INTR trigger * 




1444 








* 


=-====--=-= from the interface card back to BASIC. * 




1445 








* 


* 




1446 








*x****xx****x*xx*xx***************************************x********x**x****xx**x 




1447 














1448 




0000 


0364 


ON INTR isr equ 


* 




1449 


00000364 


082C 
003A 


0003 


btst 


#ON_INTR_int ,intbits(a4) ; Test for bit #3 for this condition 




1450 


0000036A 


6700 


0016 


beq 


t race_isr 




1451 














1452 


0000036E 


08AC 

0036 


0003 


bclr 


*ON_INTR_int,usr0mask(a4) 




1453 


00000374 


6704 




beq . s 


Olisrl ; If already don't send again 




1454 


00000376 


6100 


FECO 


bsr 


put_INTMASK 




1455 














1456 


0000037A 


43EC 


0014 


Olisrl lea 


USER ISR(a4),al 




1457 
1458 
1459 


0000037E 


6100 


0094 


bsr 


try_Fook_P (TM) 7/30/82 bug 158 






0000 


0382 


trace isr equ * 






1460 


00000382 


082C 
003A 


0005 


btst 


#t race_int ,intbits(a4) ; Test for bit #5 for this condition 




1461 


00000388 


6708 




beq.s 


bit 6 isr 




1462 


0000038A 


43EC 


0082 


lea 


t rc_hook (a4) ,al 




1463 


0000038E 


6100 


006A 


bsr 


t ry_hook 




1464 














1465 




0000 


0392 


bit 6 isr equ * 






1466 


00000392 


082C 
003A 


0006 


btst 


#6, intbits (a4) ; Test for bit #6 for this condition 




1467 


00000398 


6708 




beq.s 


bit_7_isr 
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1468 
1469 



0000039A 43EC 008A 
0000039E 6100 005A 



lea 
bsr 



bt6_hook(a4) ,al 
t ry_hook 
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1471 
1472 

1473 
1474 
147S 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 

1485 

1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 

1494 
149S 
1496 
1497 
1498 

1499 
1500 

1501 
1502 
1503 

1504 

1505 

1506 
1507 
1508 
1509 
1510 
1SH 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 



0000 03A2 bit_7_isr equ 

000003A2 082C 0007 btst 

003A 
000003A8 6708 beq . s 

000003AA 43EC 0092 lea 

000003AE 6100 004A bsr 



#7,intbits(a4) 

end_is r 

bt7_hook (a4) ,al 
t ry_hook 



Test for bit #7 for this condition 



0000 



00000382 
000003B8 
000003BE 



000003C0 
000003C2 



000003C6 

000003CC 
000003CE 
000003D2 
000003D6 
000003D8 



000003DE 
000003E2 
000003E6 

000003EC 

000003F2 

000003F8 



2B6F 
FFF6 
DFFC 
000C 
601E 

0000 
2C5F 
2B5F 



0C6D 

FFFE 
8610 
102C 
B02D 
6606 
396D 
0034 



4CDF 
6100 
396C 
003C 
4CEC 
0058 
48EC 
003E 
4E7S 



* g nc | f the ISR 

03B2 end_isr equ * 

********** RECOVER SECTION FROM 'TRY' ABOVE ***** 

0008 move. I 8 ( sp) ,RCVR_BLK (a5) 

0000 adda.l #12, sp 

bra.s rcvdone 

03C0 recover_section equ * ; On escape, flag overlapped error 

movea.l (sp)+,a6 : to background 
FFF6 move.l ( sp) + ,RCVR_BLK (a5) 

* Body of 'RECOVER' block: 

FFE6 cmpi.w #I0E_ERR0R ,ESC_C0DE (a5) 



002D 
FFBA 



move.b 10 SC(a4),d0 

cmp.b I OF SC(aS) ,d0 

bne . s rcvd*one 

move.w I0E_RSLT(aS) ,ovrlaper (a4) 



; Throw away non-1/0 errors 



* That was it! 

1800 rcvdone movem.l (sp)+,a3/a4 

FD28 bsr eir 

0056 move.w int_savespace ( a4 ) , term_and_mode ( a4 ) 



003F 
003F 



movem. 1 im_savespace + 2(a4),dO-d5 
movem.l d0-d5, term_and_mode+2 £ a4 ) 
rts : Return from ISR 



000003FA 2011 

000003FC 6714 

000003FE 48E7 0018 

00000402 2040 

00000404 2029 0004 H00K4 

00000408 6702 

0000040A 2F00 

0000040C 4E90 

0000040E 4CDF 1800 

00000412 4E75 



try_hook move.l 
beq.s 
movem. 1 
movea . 1 
mo ve . 1 
beq . s 
move . 1 

movem. 1 
rts 



hook3 
hook2 
hookl 



(al) ,d0 

hookl 

a3/a4,-(5p) 

dO,aO 

4(al) ,d0 

hook3 

dO -(sp) 

(a6) 

(sp)+,a3/a4 



(tm) 

(tm 
(tm) 



12/03/81 

If there is static link - push it 
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1520 

1521 00000414 2011 try_hook P move.l (al),d0 (TM) 7/30/82 bug 158 

1522 00000416 67FA Heq.s hookl 

1523 00000418 48E7 0018 movem.l a3/a4,-(sp) 

1524 0000041C 2040 movea.l dO.aO 

1525 0000041E 2F29 0008 MOVE.L 8(A1),-(SP) (TM) 7/30/82 bug 158 

1526 00000422 60E0 BRA HO0K4 TM) 7/30/82 bug 158 
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1528 ************************************************* 

1529 * * 

1530 * routine do_inxfr: Transfers data in until: * 

1531 * - User buffer filled; * 

1532 * - Card buffer empty; or * 

1533 * - Control block reached. * 

1534 * * 

1535 * At entry: * 

1536 * a3.1 = card base address (SOOxxOOOl) * 

1537 » a4.1 = address of select_code_t able * 

1538 * * 

1539 ************************************************* 
1540 

1541 0000 0424 do inxfr equ * 

1542 00000424 246C 0024 movea.l BUFI 0FF(a4),a2 

1543 00000428 6700 008A beq inxdone 
1544 

1545 0000O42C 296A 0010 move.l TCNT 0FF(a2),data number(a4) 

0042 

1546 00000432 6700 0090 beq inxdnl 

1547 00000436 296A 0020 move.l TFIL_0FF(a2) ,data_address( a4) 

003E 
1548 

1549 0000043C 6100 FC30 inxfrl bsr find_RXBUF ; Set up a2.1 = buffer descriptor record 

1550 * base address 

1551 00000440 6100 02E0 inxfr4 bsr RX_stuff_avail ; See if buffer is empty 

1552 00000444 4A00 tst.b dO ; If so, just sit here 6. wait 

1553 00000446 6700 008C beq inxexit 
1554 

1555 0000044A 6100 0334 bsr ctrlblknext ; If a control block is next, then 

1556 0000044E 4A00 tst.b dO 

1557 00000450 663E bne.s inxfr3 
1558 

1559 00000452 4BHC 0042 tst.l dat a_numbe r ( a4 ) ; see if chars to transfer 

1560 00000456 67SC beq. s inxdone ; yes, go do it 
1561 

1562 00000458 226C 0024 movea.l BUFI 0FF(a4),al 

1563 0000045C 3029 OOOE move.w TCHR_0FF (al ) ,d0 ; Check for term char desired 

1564 00000460 6C06 bge . s inxfr5 ; Yes - goto slow section 
1565 

1566 00000462 6100 024A bsr getchars ; move some data 

1567 * ; 8, go back to check for Ctrl blk 

1568 00000466 60D4 bra.s inxfrl 
1569 

1570 0000 0468 inxfrS equ * ; SLOU ENTER - search for char 

1571 00000468 1FO0 move.b dO,-(sp] ; Save search char 

1572 0000046A 2F2C 0042 move.l dat a_numbe r ( a4 ) , - ( sp) 

1573 0000046E 297C 0000 move.l (tl.data number (a4) 

0001 0042 

1574 00000476 6100 0236 bsr getchars 

1575 0000047A 29SF 0042 move.l I sp) + ,dat a_number ( a4 ) 

1576 0000047E 53AC 0042 subq.l (tl.data number(a4) 

1577 00000482 101F move.b (sp)*,d0" ; Check for term chr 

1578 00000484 206C 003E movea.l data address (a4 ), aO 

1579 00000488 B028 FFFF cmp.b -I(a0"),d0 ; If equal, exit 

1580 0000048C 6726 beq. 5 inxdone 

1581 0000048E 60AC bra.s inxfrl 
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1582 

1583 00000490 6100 01E2 inxfr3 bsr getctrlblk ; Get it, and check for the special 

1584 00000494 0C2C 0OFF cmpi.b #255 , term! a4 ) ; case TERM=2SS 

003C 

1585 0000049A 6608 bne.s inxfr2 

1586 0000049C 196C 0030 move.b mode (a4 ), which RXbuf(a4) ;If so, do the buffer switch 

0037 

1587 000004A2 6098 bra.s inxfrl ; And go back for more 
1588 

1589 000004B4 396C 003C inxfr2 move.w term_and mode ( 34 ) , last_enter_term( a4 ) 

0038 

1590 * ; Otherwise save the control block & leave 

1591 000004AA 246C 0024 movea.l BUFI 0FF(a4),a2 

1592 000004AE 4A2A 000E tst.b TEND_0FF(a2) ; If EOI term bit set tghen 

1593 000004B2 6788 beq.s inxfrl ; leave else ignore 
1594 

1595 000004B4 246C 0024 inxdone movea.l BUFI 0FF(a4),a2 

1596 000004B8 256C 003E move.l data add ress ( a4) , TFIL 0FF(a2) 

0020 

1597 000004BE 256C 0042 move.l dat a_number ( a4 ) , TCNTJ3FF ( s2 ) 

0010 

1598 000004C4 6100 OOAC inxdnl bsr inxfr_done 

1599 000004C8 200A move.l a2,d0 

1600 000004CA 671B beq.s inxexl 

1601 000004CC 43EA 0024 lea T PR 0FF(a2),al 

1602 000004DO 6000 FF42 bra try Hook P (TM) 7/30/82 bug 158 
1603 

1604 0000 04D4 inxexit equ * 

1605 000004D4 246C 0024 movea.l BUFI_0FF (a4 ) , a2 

1606 000004D8 256C 003E move.l data add ress (a4 ) ,TFI L 0FF(a2) 

0020 

1607 000004DE 2S6C 0042 move.l data numbe r ( a4 ) , TCNT 0FF(a2) 

0010 

1608 000004E4 67DE beq.s inxdnl BUG 1249 Tn 01/08/82 

1609 000004E6 4E75 inxexl rts 
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1611 ************************************************* 

1612 * * 

1613 * routine do_outxfr: Transfers data out til: * 

1614 * - User buffer emptied; or * 

1615 * - Card buffer filled. » 

1616 * * 

1617 * At entry: * 

1618 * a3.1 = card base address ($00xx0001 ) * 

1619 * a4 . 1 = address of select_code_t able * 

1620 * * 

1621 * During execution: * 

1622 * a2.1 = address of xfr record * 

1623 * * 

1624 ************************************************* 

162S 

1626 0000 04E8 do_outxfr equ * 

1627 000004E8 246C 0028 movea.l BUFO 0FF(a4),a2 

1628 000004EC 200B move.l a2,d0~ 

1629 000004EE 676E beq.s outxexl 
1630 

1631 000004FO 296B 0010 move.l TCNT_0FF ( a2 ) ,dat a_number ( a4 ) 

0042 

1632 000004F6 6730 beq.s outxdO 

1633 000004F8 296A 001C move.l TErlP_0FF ( a2) ,dat a_address (a4 ) 

003E 
1634 
1635 000004FE 6100 FB6A bsr find_TXBUF ; a2 = buff descr rec addr 

1637 00000502 2F2C 0042 outxl move.l data numbe r ( a4 ),-( sp) 

1638 00000506 6100 0492 bsr putcKars ; Send some chars 

1639 0000050A 201F move.l (Sp)+,d0 

1640 0OO0O50C BOAC 0042 cmp.l data number ( a4 ), dO 

1641 00000510 673C beq.s outxTt 

1642 00000512 4AAC 0042 tst.l data number(a4) 

1643 00000516 66EA bne.s outxl 
1644 

1645 00000518 246C 0028 outxdun movea.l BUF0J3FF (a4 ) , a2 

1646 0000051C 2S6C 003E move.l dat a_add ress (a4 ) ,TEMP_OFF( a2 ) 

001C 

1647 00000522 256C 0042 move.l dat a_numbe r ( a4 ) , TCNTJDFF ( a2 ) 
0010 

1648 00000528 246C 0028 outxdO _ , . 

1649 00OOOS2C 4A2B 000B tst.b TEND 0FF(a2) ; Check for END termination 

1650 00000530 670C 

1651 00000532 6100 FB36 bsr find_TXBUF ; a2 = buff descr rec addr 

1652 00000536 6100 0550 

1653 0000053A 4A00 tst.b dO ; If couldn't send it then 

1654 0000053C 6720 beq.s outxexl ; return, wait for next interrupt 
1655 

1656 0000053E 6100 0020 outxdnl bsr 

1657 00000542 200A 

1658 00000544 6718 

1659 00000546 43EB 0024 ,, 

1660 000O0S4A 6000 FEC8 bra try_hook_P (TM) 7/30/82 bug 158 
1661 
1662 000O0S4E 246C 0028 outxit movea.l BUFOJDFF (a4 ) , a2 



If no chars transferred 

then exit 

Check buffer empty 



movea . 1 


BUFO 0FF(a4) ,a2 


tst .b 


TEND 0FF(a2) 


beq . s 


outxclnl 


bsr 


find TXBUF 


bsr 


try sending EOF 


tst .b 


dO 


beq . s 


outxexl 


bsr 


outxfr done 


move . 1 


a2,d0 


beq . s 


outxexl 


lea 


T PR 0FF(a2) ,al 


bra 


t ry_hook_P 
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1663 00000552 256C 003E move.l dat a_add ress (a4 ) , TEMP_OFF( a2 ) 

001C 

1664 00000558 2S6C 0042 move.l dat a_numbe r ( a4 ) ,TCNT_OFF(a2) 

0010 

1665 00O00S5E 4E75 outxexl rts 
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************************************************* 



1667 
1668 

1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1380 
1681 
1682 

1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 

1691 

1692 
1693 
1694 
1695 
1696 
1697 
1698 

1699 
1700 
1701 



* routine outxfr_done: Terminates the * 

* outbound transfer, if any. * 

* * 

* routine inxfr_done: Terminates the inbound * 

* transfer, if any. * 

* * 

* At entry: * 

* a3.J = card base address (SOOxxOOOl) * 

* a4 . 1 = address of select_code_table * 

* * 
************************************************* 

0000 0S60 outxfr_done equ * 
00000560 08AC 0002 bclr #tx int , us rOmask ( a4 ) 

0036 
00000566 6704 beq.s outxdl ; If already don't send again 

00000568 6100 FCCE bsr put INTHASK 
0000056C 41EC 0028 outxdl lea BUFC OFF(a4),aO 
00000570 6010 bra.s xfrdun 



0000 0572 inxfr_done equ * 



00000572 08AC O0O1 

0036 
00000578 6704 
O0O0OS7A 6100 FCBC 
0000057E 41EC 0024 inxdl 



00000582 2450 
00000584 200A 
00000586 670C 
00000588 1S7C OOFF 

0005 
0000058E 422A 0007 
00000592 4290 
00000594 4E75 



bclr 



beq . s 
bsr 



#rx_int , usrOmaskf a4 ) 



inxdl 
ut INTMASK 



bsr put INTMASK 

lea §UFT_0FF(a4),a0 



If already don't send again 



xfrdun movea.l (a0),a2 

move.l a2,do 

beq . s rtsin 

move.b #255,T_SC_0FF(a2) 



clr.b 
clr.l 
rts 



TACT 0FF(a2) 
(aO) - 
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************************************************* 



1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 

1740 
1741 
1742 

1743 
1744 
174S 
1746 
1747 
1748 
1749 
17S0 
1751 
1752 
1753 
1754 
1755 



00000596 
0000059R 
0000059E 



000005AO 
000005A4 

000005A8 
000005AA 
000005AC 

000005B2 
OO0O0SB4 
00000SB8 

000005BE 
000005C2 

000005C4 
000005C6 
000005C8 
OOOOOSCfi 
000005CC 
000005CE 
000005DO 

00000SD4 
00000508 



* routine wait_outxf rdone : waits until an * 

* outbound transfer is complete * 

* (if any). Also has timeout * 

* escape. * 

* * 

* routine wait inxfrdone: waits until an * 

* Inbound transfer is complete * 

* (if any). Also has timeout * 

* escape. * 

* * 

* At entry: * 

* a3.1 = card base address (JOOxxOOOl) * 

* a4 . 1 = address of select_code_table * 

* * 

* This bashes nothing. * 

* * 

* This routine may escape! * 

* * 

* MODIFIED 12/02/81 * 

* from 12/01/81 code to 11/23/81 » 

* * 
************************************************* 

0000 0596 wait outxfrdone equ * 

48E7 A080 movem.l d0/d2/a0 , - (sp) 

206C 0028 movea.I BUF0_OFF(a4) ,a0 

6008 bra.s wait 

0000 05AO wait_inxfrdone equ * 



48E7 A080 
206C 0028 

2408 wait 

6728 

0C28 0005 

0009 

6D20 

242C 002E 

203C 0000 waitl 

0100 

4A28 0007 wait2 

6710 

5380 
66F6 
4A82 
67EC 
5380 
66E8 
6000 FCEA 



movem.l d0/d2/a0 ,- (sp) 
movea.I BUF0_0FF(a4) , aO 



move . 1 
beq . s 

cmpi .b 

bit .s 
move . 1 
move . 1 

tst .b 

beq . s 



a0,d2 

waitdun 

#5,TUSR_0FF(A0) 

waitdun 
timeout (a4) ,d2 
#256, dO 

TACT OFF(aO) 
waitHun 



; 0=no xfr block 
; >4 = interrupt 

[UNCALIBRATED] - guess based upon check_tfr loop 
; 0=inactive (tm) tst.l -> tst.b 



subq .1 
bne. s 
tst.l 
beq 



#l,d0 
wait2 
d2 

waitl 
sub'q.l #l,dO 
bne . s waitl 
bra time err 



Timeout computation 



4CDF 0105 waitdun movem.l (sp)+,d0/d2/a0 
4E75 rts 
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************************************************* 



1757 
17S8 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 

1784 
1785 
1786 
1787 



* procedure START_TRANSFER_IN ( « 

* var SCT: select code table ); * 

* * 

* This starts the card doing a transfer. * 

* The calling code must have already * 

* linked the transfer block in to the * 

* select code table structure. * 

* » 

* During use: * 

* a3.1 = card base address ($00xx0001) » 

* a4.1 = address of select_code_table * 

* * 
************************************************* 



000005DA 
0O0005DC 
000005DE 
000005EO 
000005E4 



0000 
20SF 
285F 
4850 
266C 
S28B 



0020 



STARTJTRANSFER IN equ * 
movea.T fspl+jaO 
movea.I [sp)+,a4 
pea (aO) 

movea.I c adr(a4),a3 
addq.l #T,a3 



000005E6 4E4B 



OO0OOSE8 
0O0OO5EC 

OO0OO5F2 
000005F6 
0O0O05FP. 
000005FC 



46EC 
08EC 
0036 
6100 
6100 
46DF 
6000 



0070 
0001 



FC44 

FE2C 



FC9E 



SCT 



get into supervisor mode 
; Funny code to disable 



trap #11 

move sr,-(sp) 

move SR_image (a4) ,sr ; interrupts 

bset #rx_int ,usromask (a4) 

bsr put^INTMASK 

bsr do_inxfr 

move (5p)+,sr 

bra check_ov_error ; Will enable ints 
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1789 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxx 

1790 * * 

1791 X procedure START_TRANSFER_OUT ( * 

1792 * var SCT: select code table ); * 

1793 * * 

1794 * This starts the card doing a transfer. * 

1795 * The calling code must have already * 

1796 * linked the transfer block in to the * 

1797 * select code table structure. « 

1798 * » 

1799 » During use: * 

1800 * aS.l = card base address (SOOxxOOOl) * 

1801 * a4.1 = address of select code table * 

1802 * x 

1803 xxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxx 
1804 

1805 0000 0600 START_TRANSFER OUT equ x 

1806 00000600 205F movea.T (sp)+,aO 

1807 00000602 285F movea.l sp + ,a4 : SCT 

1808 00000604 4850 pea (aO) 

1809 00000606 266C 0020 movea.l c adr(a4),a3 

1810 0000060A 528B addg . 1 #T, a3 
1811 

1812 0000060C 4E4B trap #11 

1813 x scs move sr,-(sp) : Funny code to disable 

1814 0000060E 46EC 0070 move SR image(a4),sr ; interrupts 

1815 00000612 08EC 0002 bset #tx int , us r6mask ( a4 ) 

0036 ~ 

1816 00000618 6100 FC1E bsr put INTMASK 

1817 0000061C 6100 FECA bsr do outxfr 

1818 00000620 46DF move (sp)+,sr 

1819 00000622 6000 FC78 bra check ov error ; Will enable ints 

1820 ~~ ~ 
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1823 
1824 

1825 X XXXX X X XXXX X X xxxxx xxxxx xxxxx xxxx 

1826 x xxxxxxxxx x x xx 

1827 x xxxxxxxxx x x xx 

1828 x xxxx x xxxx x * xxxxx xxxxx xxxxx xxxx 

1829 X XX XXXXXXX X X XX 

1830 x xxxxxxxxx x x xx 

1831 X XXXX XXXX XXX X X XXXXX X X 

1832 

1833 
1834 
1835 
1836 

1837 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1838 x M 

1839 x routine set_RXBUF_a6 : Routine to set a6 as the base address x 
J 8 *? * ============ pointer to whichever Rx buffer is being used, x 

1841 * ■# 

1842 x fit entry: x 
!843 x a2.1 * data buffer base address (shifted, +l+selectcode) x 

1844 x S 3, i . car d base address (SOOxxOOOl) x 

1845 x a4.1 = pointer to sc subtabletype structure x 

1846 x - x 

1847 x Upon exit : x 
}848 x a6.1 = Base address of DATA BUFFERS[UIHICH RXBUF] x 

1849 x This also bashes dO . x 

1850 x * 

1851 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
1852 

1853 0000 0626 set_RXBUF a6 equ x 

1854 00000626 4280 cTr . 1 dO ; Setup dO . l=off set 

1855 00000628 102C 0037 move.b which RXbuf(a4),dO ; to which Rx buffer 

1856 0000062C E980 asl.l *4,d0~ ; beinq used 

1857 0000062E 4DF2 0010 lea DATA AREA ( a2 , dO ) , a6 

1858 00000632 4E75 rts ~ 
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************************************************** ****************************** 

* 

* routine RX_BUFF_bytes : 



1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
190S 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 



Function which returns the number of 
characters until the first control block in 
the Receive Buffer. If there are no control 
blocks, this just returns the number of 
characters in the buffer. This only works 
on the current Rx data buffer, and does not 
extract TERM=25S control blocks! 



fit entry 



a2.1 = data buffer base address (shifted, +l+selectcode) * 

* a3.1 = card base address (JOOxxOOOl) * 

* a4.1 = pointer to sc_subtabletype structure * 

* * 
♦Uponexit: * 

* dO.l = Number of characters. * 

* al, d4 and d5 are left with values from f ind_RX_DSTR. » 

* This also bashes aO, dl and d2 . * 

* * 

* This routine uses the card's SEMAPHORE to gain access. * 

* * 

* This routine calls gain_access, release_access, and find_RX_DflTfl. * 

* * 
******************************************************************************** 



oooo 

00000634 6100 



0634 RX_BUFF_bytes equ * 



FfiSE 



00000638 
0000063B 

0000063C 
0000063E 
00000640 
00000644 
00000648 
0000064C 
000006S0 
00000654 
00000656 
00000658 
0000065A 
0000065C 
0000065E 

00000662 
00000664 

00000668 

0000066R 
0000066C 
0000066E 
00000670 
00000672 



2F0E 
61EA 

4280 

4281 
030A 
6100 
010E 
050A 
6100 
B242 
670B 
EES9 
D28B 
2041 
0108 

E0S8 
030E 
E0S9 

9041 
6C02 
D045 
2CSF 
4E75 



bsr 



move . 1 
bsr 



find_RX_DATA 



a6,-(sp) 
set RXBUF_a6 



Setup al = data buffer base addr 

d4 = end of data buffer addr 
d5 = RXDflTABUFF SIZE 



000C 
F9E4 
0008 
0008 
F9FB 



0000 



clr.l dO 

clr.l dl 

movep.w CTRL_AREA*EMPTY(a2),dl 

bsr gain access 

movep.w FILlTa6),dO 

movep.w CTRL PREP+FILL (a2) ,d2 



Get garbage out of top of dO, dl 

Fetch pointers 
Need access to 



Fetch pointers (bytes in wrong order) 
FILL pointers 



bsr 


release access 


cmp.w 


d2,dl 


beq . 5 


RBbl 


ror . w 


#7,dl 


add.l 


»3,dl 



movea.l dl.aO 

movep.w POINTER(aO) ,d0 

ror.w #8,d0 
movep.w EMPTY(a6),dl 
ror.w #8,dl 



RBb2 



sub.w dl,dO 

bge.s RBb2 

add.w dS,dO 

movea.l (sp) + ,a6 

rts ; Now dO = ( "FILL"-EMPTY) mod SIZE --- of data buffer 



If the two Ctrl block pointers are not 
equal, then we want to use the pointer 
field from the next control block to 
indicate how much data may be removed 

Use it as the "FILL" pointer 

Switch bytes for FILL 

and get EMPTY and switch bytes 

dO="FILL", dl=EMPTY 



Compute dO := FILL-EMPTY 

If negative, add data buffer size 
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J******************************************************************************' 



1917 








1918 








1919 








1920 








1921 








1922 








1923 








1924 








192S 








1926 








1927 








1928 








1929 








1930 








1931 








1932 








1933 








1934 








1935 








1936 








1937 








1938 








1939 








1940 








1941 








1942 








1943 








1944 








1945 




0000 


0674 


1946 


00000674 


6100 


FA38 


1947 








1948 








1949 








1950 


00000678 


4280 




1951 


0000067P, 


01 OP 


oooc 


1952 


0000067E 


EE58 




19S3 


00000680 


D08B 




1954 


00000682 


2040 




19SS 








1956 


00000684 


1968 

003C 


0004 


1957 


0000068P 


1968 
003D 


0006 


1958 








1959 


00000690 


D07C 


0008 


1960 


00000694 


B840 




1961 


00000696 


6602 




1962 


00000698 


3009 




1963 


OO0OO69A 


0880 


0000 


1964 


0000069E 


EF58 




1965 


000006AO 


6100 


F988 


1966 


000006A4 


018P 


OOOC 


1967 


000006P8 


6100 


F9P2 


1968 


000006AC 


4E75 





routine getctrlblk: 



fit entry 



a2.1 = 
33.1 = 
a4.1 = 



Routine which gets a control block from the 
Receive buffer. It must have already been 
determined that there is a control block at 
the front of the buffer, since this routine 
does NOT check for that condition. The TERM 
and MODE fields of the removed block are left 
in the appropriate (.term and .mode) in the 
sc_subtabletype structure. 



RX buffer record base address from find_RXBUF 
card base address (JOOxxOOOl) 
pointer to sc_subt abletype structure 



* sc subtabletype.term = TERM field of control block 18 bits * 

* sc _ subtabletype.mode = MODE field of control block (8 bits) * 

* alT d4 and dS are left with the values from find_CTRL_AR£A . * 

* This bashes dO, d2, and aO . * 
* 

* This routine uses the card's SEMAPHORE to gain access. * 

* * 
» This routine calls gain_access, release_access, and f ind_CTRL_PREP . * 

* * 
********************************** ********************************************** 



getctrlblk equ * 

bsr find_CTRL_AREA 



Setup al = Ctrl buffer base addr 

d4 = end of Ctrl buffer addr 
d5 = TRCTRLBUFF SIZE 



cir 1 dO ; Clear top of dO 

movep.w CTRL AREA+EMPTY (a2) ,d0 ; Get control buffer EMPTY pointer 

-~. !,. hi ri?T ; Now make it into a 68000 pointer 



ror.w #7,dtf 
add.l a3,d0 
movea.l dO.aO 

move.b TERMFIELD(aO), term(a4) 

move.b MODEFIELD(aO) ,mode (a4) 



; Move to aO so we can use it 
; Store term & mode fields 



gcbl 



add.w #CTRLBLKSIZE,dO 

cmp.w d0,d4 

bne.s gcbl 

move .w al ,d0 

bclr #0,d0 

rol.w #7,d0 

bsr gain access 

movep.w dO,CTRL_AREA«EMPTY(a2) 

bsr release access 

rts ;<«CAN T T COMBINE UITH ABOVE 



Bump pointer by control block size 
and check for wraparound. 



If so, set to front of buffer 
Make it into a Z80 
type pointer with bytes reversed 
Now store the updated EMPTY pointer 
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a******************************************************************************* 



routine getchars: 



fit entry: 



a2.1 
a3.1 
a4.1 
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1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 



Routine which takes characters from the 
Receive buffer and puts them in the area 
pointed to by sc_subt ablet ype .data_address 
and sized by sc subtablet ype .dat a_number . 
The number of characters 
actually transfered is the minimum of: 

(1) the number of characters available before 
the first Receive buffer control block; 

(2) sc subtabletype .dat a_number; 
and (3J the number of characters 
available until the Receive buffer wraparound 
point. THIS NUMBER MAY BE ZERO! 
This alters data_address and data_number to 
reflect where to start going next time this 
is called. The criteria for ending the 
transfer at a higher level must be determined 
by data number, RX_st uf f_avail and 
ctrl_blf_next/getct rlblk . 



■ RX buffer record base address from find_RXBUF 
« card base address ($00xx0001) 

pointer to sc_subt abletype structure 



Upon exit : 

data_address and data_number are updated, plus the EMPTY 

fointer in the card's Receive data buffer. 
n sc subtabletype last_ente r_term and last_enter_mode are 
zeroe3 if any data is moved. 

al and d4 are left with the values from f ind_RX_DATA . 
This bashes dO, dl, d2, d3, d4 , dS, aO, and al . 



This 
This 



routine uses the card's SEMAPHORE to gain access. * 

* 
routine calls gain_access, release_access, and RX_BUFF_bytes . * 



0000 06AE getchars equ 
000006AE 6184 bsr 



RX_BUFF_bytes 



000006BO 2600 

000006B2 48E7 0022 
000006B6 6100 FF6E 

000006BA 4280 
000006BC 010E OOOC 
000006CO EE58 
000006C2 D08B 
000006C4 2440 

000006C6 9084 



move.l dO,d3 

movem.l a2/a6,-(sp) 
bsr set_RXBUF_a6 

clr.l dO 

movep.w EMPTY (a6),d0 
ror.w #7,d0 
add.l a3,d0 
movea.l d0,a2 

sub.l d4,d0 



Setup al = data buffer base addr 

d3 = offset to which Rxbuff used 
d4 = end of data buffer addr 
dS = RXOATABUFF_SIZE 

d3.1 = available characters 

Saved for local use 



Get RXDATABUFF EMPTY and make 
it into a 68005 pointer 



Save EMPTY for later! 
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2027 
2028 

2029 
2030 

2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 



000006C8 4480 
000006CA COBC 0000 

FFFE 
000006D0 E2S8 

000006D2 B680 
000006D4 6E02 
000006D6 2003 

000006D8 242C 0042 gel 

000006DC B480 
000006DE 6E02 
000006E0 2002 

000006E2 2600 gc2 

* 
000006E4 6736 
000006E6 426C 0038 
000006EA 5340 
000006EC 206C 003E 

000006FO 1002 gcloop 
000006F2 544A 
000006F4 51C8 FFFA 

000006F8 9483 
000006FA 2942 0042 
000006FE 2948 003E 

00000702 220A 
00000704 B88A 
00000706 6602 
00000708 2209 
0000O70A 0881 0000 gc3 
0000070E EF59 
00000710 6100 F918 
00000714 038E OOOC 
00000718 6100 F932 
0000071C 4CDF 4400 gcdone 
00000720 4E7S 



neg.l dO 

and.l #SOO0OFFFE,dO 



cmp.l d0,d3 

bgt.s gel 

move.l d3,d0 

move.l data number (a4) ,d2 

cmp.l dO.dJ 

bgt.s gc2 

move.l 32, dO 



move.l d0,d3 



gcdone 



beq. s 

clr.w last enter_term(a4) 

subq.w #l,dO" 

movea.l data_address (a4) , aO 

move.b (a2) (a0)+ 

addq.w #2,a2 

dbf dO, gcloop 

sub.l d3,d2 

move.l d2,data_number (a4) 

move.l a0,data_address(a4) 

move.l a2,dl 

cmp.l a2,d4 

bne.s gc3 

move.l al,dl 

bclr #0,dl 

rol.w #7,dl 

bsr gain access 

movep.w dl.EFtPTY(a6) 

bsr release access 

movem.l (sp) + ,a6~/a2 

rts 



dO = wraparound address - EMPTY 

dO.l = number of bytes till wraparound 
If d0>d3 then set dO := d3 



Fetch number of positions available 
If d0>d2 then set dO := d2 



d3 . 1 saves number of chars actually 

transferred below 

If zero, no work to be done 

This also clears last_enter mode. 

Make offset correct for dbfinstr. 

Get character pointer into aO 

Transfer a character & bump dest pt r 
Bump source pointer (odd bytes) 
Then decrement dO & loop 

Decrement datacnt by # bytes 
Now store adjusted address and 
number fields 

Store pointer for computations 

Now check to see if EMPTY was moved 

past end of buffer. If so, set to 

the front of the buffer. 

Fix up the 68000 pointer to be the 

card's type of pointer 

Remember dl « card's EMPTY pointer, 
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2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 



16:23:45 DC_RXBUF: RX BUFFER UTILITIES 

****************************** ************************************************** 

» * 

* routine RX stuff avail: Routine which determines whether there is * 

* =«:= = =.=»"-== = = ANYTHING (data or control blocks) in the * 

* Receive buffer. This consumes any TERM=2S5 * 

* control blocks before returning the function. » 

* * 

* ' "' a2.1 * RX buffer record base address from find_RXBUF * 

* a3.1 = card base address ($00xx0001) * 

* a4 . 1 = pointer to sc_subt abletype structure * 

* ""' * 

* Upon exit : * 

* dO.l - $00 if buffer is empty, * 

* $0! if ctrl buffer is empty and data buffer is not, * 

* $02 if data buffer is empty and ctrl buffer is not, * 

* $03 if both data and Ctrl buffers are not empty. * 

* al and d4 are left with the values from find RXJDATA. * 

* This bashes dO , dl , d2, d3, d4 , dS, aO and aT. * 

* * 

* This routine uses the card's SEMAPHORE to gain access. * 

* * 

* This routine calls gain_access and release^access. * 

* * 

************************** *************************** ********************* ****** 



0000 
00000722 6100 



0722 RX stuff avail ec 



00000726 2F0E 
00000728 6100 FEFC 



0000072C 
00000730 
00000734 
00000738 
0000073C 
0000073E 
00000740 
00000744 
00000746 
00000748 
0000074C 
0000074E 
00000750 
00000752 
00000754 

00000756 
00000758 

000007SA 
0000075C 
000007SE 
00000762 
00000766 



6100 
070E 
030A 
6100 
4282 
4280 
050R 
B441 
660E 
050E 
B443 
6702 
5200 
2C5F 
4E75 

5400 
EESA 

D48B 
2042 
0308 
OSOE 
B242 



F8FC 
0008 
0008 
F912 



Fsr 

move .1 
bsr 

bsr 



find RX DATA 



a6,-(sp) 

set_RXBUF_a6 



gain access 
rnovep.w FILLXa6),d3 



movepiw CTRL_AREA+FILL(a2) ,dl 

bsr release access 

clr.l d2 

clr.l dO 
OOOC movep.w CTRL AREA+EMPTY (a2) ,d2 

cmp .w dl , d2~ 

bne.s setbitl 
OOOC chkdata movep.w EhPTY(a6) ,d2 

cmp.w d3,d2 

beq . s return 

addq.b #l,dO 
return movea.l (sp)+,a6 

rts 

setbitl addq.b #2,d0 
ror.w #7,d2 



0000 
OOOC 



add.l a3,d2 
movea.l d2,a0 
movep.w POINTER(aO) ,dl 
movep.w EMPTY(a6),d2 
cmp.w d2,dl 



Setup al = data buffer base addr 

d4 =■ end of data buffer addr 
dS = RXDATABUFF_SIZE 



; Fetch FILL & EMPTY (bytes reversed but 
; we're just checking equality) 

; Compare ctrl buff FILL & EMPTY 
; If not equal, then set bit 1 

; Compare data buff FILL & EMPTY 

; And set bit if not equal 



; Set "ctrl not empty" bit 

; Something in control buffer - see if 

; this control block is at the head of 

; the queue (bytes reversedi) 



if POINTER field«DATABUFF_EMPTY 
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2124 00000768 66DE 

2125 0000076A 0C28 OOFF 

0004 

2126 00000770 6606 
2127 

2128 00000772 6100 FFOO 

2129 00000776 196C 003D 

0037 

2130 0000077C 2C5F 

2131 0000077E 60A2 



bne.s chkdata 

cmpi.b #2S5,TERMFIELD(aO) 



; then go check data buff 

; else if it's a TERM=25S control block 

; No, go back and check data buff 



bsr getctrlblk ; Otherwise consume the control block 

move.b mode (a4 ) ,which_RXbuf (a4) ;and switch to new data buffer 



movea.l (sp)+,a6 
bra . s R' 



X stuff_avail 



; And go back and re-compute result 



1-184 



PAGE 


S7 [2.0] 1 


2133 




2134 




213S 




2136 




2137 




2138 




2139 




2140 




2141 




2142 




2143 




2144 




214S 




2146 




2147 




2148 




2149 




2150 




21S1 




2152 


00000780 


2153 


00000784 


2154 


00000788 


2155 


0000078C 


2156 


0000078E 


2157 


00000792 


2158 


00000794 


2159 


00000796 


2160 


00000798 


2161 


0000079R 


2162 


0000079C 


2163 




2164 


000007A0 


2165 


000007A2 


2166 


000007R6 


2167 




2168 


000007P18 


2169 


000007AC 


2170 


000007B0 


2171 


000007B4 


2172 




2173 


000007B8 


2174 


000007BA 


2175 


000007BC 


2176 




2177 


000007BE 


2178 


000007C0 


2179 
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» * 

* routine ctrlblknext: 



Routine which determines whether the next * 

* =========*= thing to be consumed from the Receive buffer * 

* is a control block. THE RESULT OF THIS * 

* FUNCTION IS NOT VALID UNLESS RX BUFFER empty * 
» RETURNS FALSE! !! * 

* * 

* fit entry: * 
» a2.1 = RX buffer record base address from find_RXBUF * 

* a3.1 = card base address (SOOxxOOOl) * 

* * 

* Upon exit : * 

* dO.b ■ $FF if control block is next, $00 if data is next. * 

* This bashes d2, dS and aO. x 

* * 
xx*x**x***xx* ****************** ************xxx*****x******x*********x****xx**x** 



0000 0780 ct rlblknext equ * 



6100 F8A8 

O50A 0008 

6100 F8C2 

4280 

010A OOOC 

B440 

6728 

EE58 

D08B 

2040 

0108 0000 

4285 

1A2C 0037 
E985 

48E7 80O2 
6100 FE78 
050E OOOC 
4CDF 4001 

B440 

57C0 
4E7S 

4280 
4E7S 



gain access 
.w CTRL_flREfi*FILL(a2),d2 



bsr 

movep. 

bsr release access* 

clr.l dO 

movep. w CTRL AREA+EMPTY(a2) ,d0 

cmp.w d0,d2" 

beq.s cbnl 

ror.w #7,d0 

add.l a3,d0 

movea.l dO.aO 

movep. w POINTER(aO) ,d0 

clr.l d5 

move.b which RXbuf(a4),dS 

asl.l #4,d5~ 

movem.l d0/a6,-(sp) 
bsr set RXBUF_a6 

movep. w EMPTY (a6),d2 
movem.l (sp)+,d0/a6 



cmp.w 

seq 

rts 

clr.l 

rts 



d0,d2 
dO 



dO 



; Check if Ctrl buffer is empty 

; Fetch Ctrl buffer EMPTY pointer 
; If equal then return dO,b=$00 



Fetch the POINTER field from the 

Setup d5.1=offset 
to which Rx buffer 
being used 



first Ctrl block and compare to the 



data buffer EMPTY pointer 
Then set dO if equal 



2228 

2229 

2230 
2231 
2232 
2233 
2234 
2235 
2236 



0000 0006 in_timeout 
0000 0007 out timeout 



equ 
equ 



8 [UNCALIBRATED 1 MS] 
7 [UNCALIBRATED 1 MS] 
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2182 
2183 

2184 * ***** xxx* *** * * 

2185 * * ******* 

2186 * * ******* 

2187 * * **** ***** * ** 

2188 * * ****** 

2189 * * ****** 

2190 * * ****** 
2191 

2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 



************************************************* 

* * 

* procedure OUTPUT DATA ( * 

* var S~CT: select_code_table; * 

* PTR: *■ data_bytes; * 

* COUNT: longword ); * 

* * 

* This operation may hang waiting for space. * 

* X 

* This routine calls find_TXBUF and putchars. * 

* * 
*x*****x******x**x*x**********x*x**************«* 



000007C2 
000007C4 
000O07C6 
000007C8 
000007CA 
000007CC 
000007DO 

000007D2 
000007D6 

O0O0O7DA 
000007DE 

000007E2 

000007E8 

000007F0 

000007F4 

000007F6 
000007FA 
000007FC 



0000 07C2 

205F 

221F 

225F 

285F 

4850 

266C 0020 

528B 

2949 003E 
2941 0042 

6100 FACO 
6100 FDB6 

296C 002E 
004A 

297C 0000 
0007 004E 

6100 F878 

6728 

4AAC 0042 
6722 
6100 019C 



output_data equ * 

movea.l fspl+,aO 

move.l (sp)+,dl 

movea.l (spi+.al 
movea.l sp +,a4 

pea (aO) 

movea.l c adr(a4),a3 

addq.l #T, a3 



move.l al,data_address (a4) 
move.l dl,data_number (a4) 



COUNT 

PTR 

SCT 



bsr 
bsr 



check_ov_e rror 
wait outxfrdone 



; initialize address/count 
; Escape if o/v error 



move . 1 t imeout (a4), time out _counter(a4) 
move . 1 #out_t imeout ,inner_counter(a4) 



bsr 
beq.s 



find_TXBUF 
outdone 



tst.l dat a_number (a4) 
beq.s outdone 
bsr putchars 



; Set up a2.1 = buffer descriptor record 
base address 



; And transfer characters until done 
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2237 


00000800 


53AC 


004E 


2238 


00000804 


66F0 




2239 


00000806 


297C 


0000 






0007 


004E 


2240 


0000080E 


4AAC 


004A 


2241 


00000812 


67E2 




2242 


00000814 


53AC 


004A 


2243 


00000818 


6700 


FAA2 


2244 


OO0OO81C 


6008 




2245 








2246 


0000081E 


4E75 





subq.l #1 , inner_counter (a4) 

bne.s out_2 

move.l #out_timeout , inner_counter (a4) 



tst.l timeout_counter (a4) 

beq.s out_2 

subq.l tl , t imeout_counter (a4) 

beq time err 

bra. s out 2" 



; Test for timeout condition 



if so, escape 



outdone rts 



PAGE 60 [2.0] 11/4/82 16:23:45 DC_TRANS: HANDSHAKE TRANSFER CODE 

************************************************* 



2248 
2249 
2250 
2251 
2252 
2253 
2254 
225S 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
226S 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
228S 
2286 

2287 

2288 
2289 
2290 

2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 



* procedure ENTER_DATA ( * 

* var SCT: select_code_t able; * 

* PTR: " data_bytes; * 

* var COUNT: longword ); * 

* * 

* COUNT initially passes the number of bytes * 

* which the upper level wants to read. THE * 

* ROUTINE DOES NOT NECESSARILY READ THIS MANY! * 

* Upon exit COUNT will be reflect the number * 

* of data bytes entered, whether or not there * 

* is an escape. * 

* * 

* escape(EOD): Terminated by reaching a control* 

* block. TERM&riODE may be read with STATUS * 

* 9 and 10. * 

* * 

* This routine calls find_RXBUF, * 

* getctrlblk, getchars, ctrlblknext, and * 

* RX BUFFER EMPTY. * 

* * 
************************************************* 



00000820 
00000822 
00000824 
00000826 
00000828 
0000082A 
0000082E 



0000 
205F 
245F 
22SF 
28SF 
4850 
266C 
528B 



enter_data equ * 

movea.l fsp) + ,aO 
movea.l spi+,a2 

movea.l [sp) + ,al 
movea.l sp +,a4 

pea (aO) 

movea.l c adr(a4) 

addq.l #T,a3 



addr (COUNT) 
PTR 

SCT 



a3 



00000830 2949 003E 



move.l al,data_address(a4) 



00000834 
00000838 



0000083C 
00000842 



0000084A 
0000084E 
00000850 

00000852 
00000856 
0000085A 



0000085C 6100 



ilOO 
ilOO 

296C 

004A 
2S7C 
0006 

2952 
2F0A 

600A 

6100 

4SAC 
67SA 



FA66 
FD66 



0000 
004E 



F8S8 
0042 



in 



00000860 
00000864 
00000866 



53AC 
6622 
297C 
0006 



F810 
004E 



0000 
004E 



bsr 
bsr 



move . 1 
move .1 



move . 1 
move . 1 
bra . s 

bsr 
tst.l 
beq . s 



subq .1 
bne . s 
move .1 



check ov error 
wait_Tnx?rdone 

timeout (a4) , timeout_counter (a4) 

tin timeout , inner_counter(a4) 



(a2) , dat a_number (a4) 
a2,-(sp) 

in_l 

eir 

dat a„number (a4) 

in_exit 



; initialize address 
; Escape if o/v error 



; See if all characters transferred 
; If so, leave 



find RXBUF 



#1 , inner_counter (a4) 

i n_4 

#in_timeout , inner_counter (a4) 



Set up a2.1 = buffer descriptor record 

base address 
Test for timeout condition 
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23: 


45 DC 
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HANDSHAKE TRANSFER CODE 




2302 


0000086E 


4AAC 004A 






tst.l 


timeout counter(a4) 




2303 


00000872 


6714 






beq. s 


in_4 




2304 


00000874 


53AC 004A 






subq.l 


#1, timeout counter{a4) 




2305 


00000878 


660E 






bne. s 


in 4 




2306 


0000087fi 


205F 






movea . 


1 (sp)+,aO 
(aO),dO 




2307 


0000087C 


2010 






move . 1 




2308 


0000087E 


90AC 0042 






sub.l 


data number(a4) dO 




2309 


00000882 


2080 






move . 1 


dO, (aO) 




2310 


00000884 


6000 FA36 






bra 


t ime_err 




2311 
















2312 


00000888 


6100 F88A 


in 


_4 


bsr 


dir 




2313 


0000088C 


6100 FE94 






bsr 


RX stuff avail ; See if buffer is empty 

dO ; If so, just sit here & wait 




2314 


00000890 


4A00 






tst ,b 




2315 


00000892 


67BE 






beq . s 


in_0 




2316 
















2317 


00000894 


6100 FEEA 






bsr 


ctrlblknext ; If a control block is next, then 




2318 


00000898 


4AO0 






tst ,b 


dO 




2319 


0000089A 


6736 






beq.s 


in_3 




2320 
















2321 


O000089C 


6100 FD06 






bsr 


getctrlblk ; Get it, and check for the special 
#255,term(a4) ; case TERI1*25S 




2322 


O00008AO 


0C2C O0FF 






cmpi .b 








003C 












2323 


000008A6 


6608 






bne . s 


in 2 




2324 


000008A8 


196C 003D 
0037 






move -b 


mo3"e(a4) ,which_RXbuf (a4) ;If so, do the buffer switch 




2325 


000008AE 


60AC 






bra . s 


in_l ; And go back for more 




2326 
















2327 


000008BO 


396C 003C 
0038 


in 


_2 


move .w 


term_and_mode (a4) , last_ent er_term(a4) 




2328 




* 






; Otherwise save the control block & leave 




2329 


000008B6 


6100 F854 


in 


_exit 


bsr 


eir 




2330 


000008BA 


205F 






movea . . 


(sp)+, aO 
(ao),dO 




2331 


000008BC 


2010 






move . 1 




2332 


000008BE 


90AC 0042 






sub.l 


data number (a4) ,d0 




2333 


000008C2 


2080 






move . 1 


dO,(aO) 




2334 


000008C4 


4AAC 0042 






tst.l 


data_number ( a4) 




2335 


000008C8 


6700 FF54 






beq 


outdone : If nonzero then early EOI; escape 




2336 


000008CC 


7016 






moveq 


#EOD_SEEN,dO 




2337 


000008CE 


6000 F9EE 






bra 


escape 




2338 
















2339 


000008D2 


4AAC 0042 


in 


_3 


tst.l 


dat a_number(a4) ; see if chars to transfer 




2340 


000008D6 


67DE 






beq.s 


in_exit ; yes, go do it 




2341 
















2342 


000008D8 


6100 FDD4 






bsr 


getchars ; move some data 




2343 


000008DC 


6000 FF74 






bra 


in_0 ; & go back to check for Ctrl blk 




PRGE 


62 [2.0] 11/4/82 16:23:45 DC 


_TRANS: 


HANDSHAKE TRANSFER COOE 




2345 






******************%*x****s*******w**x************ 




2346 






* 






* 




2347 






* 


procedure OUTPUT END ( * 




2348 






* 






var SCT: select code table ); * 




2349 






* 






* 




2350 






* 


Equivalent 


to the BASIC OUTPUT Sc;END. * 




2351 






* 






* 




2352 






* 


This operation may hang waiting for space. * 




2353 






* 






* 




2354 






* 


This routine calls find TXBUF and * 




2355 






* 


try 


_sending 


EOF. * 




2356 






* 






* 




2357 






******#***********#****************************** 




2358 
















2359 




0000 08E0 


output „ 


end equ 


* 




2360 


000008E0 


20SF 






movea . ] 


(sp)+,aO 




2361 


000008E2 


285F 






movea . 1 


jspj+,a4 ; SCT 




2362 


000008E4 


4850 






pea 




2363 


000008E6 


266C 0020 






movea . 1 


c adr(a4),a3 




2364 


000008EA 


528B 






addq . 1 


#T,a3 




2365 
















2366 


000008EC 


6100 F9AE 






bsr 


check__ov_er ror ; Escape if o/v error 




2367 


000008F0 


6100 FCA4 






bsr 


wait_outxf rdone 




2368 
















2369 


000008F4 


6100 F774 






bsr 


flnd_TXBUF ; Set up a2.1 = buffer descriptor record 




2370 






* 






base address 




2371 


000008F8 


296C 002E 
0046 
297C 0000 






move . 1 


t imeout (a4 ) , outer_tx__count (a4) 




2372 


000008FE 






move . 1 


#sE timeout , inner_tx_count (a4 ) 








OOOB 0052 












2373 
















2374 


00000906 


6100 0180 


tr> 


send 


bsr 


t ry sending EOF 




2375 


0000090R 


4A00 






tst .b 


dO 




2376 


0000090C 


661E 






bne . s 


sentEOF 




2377 
















2378 


0000090E 


53AC 0052 






subq . 1 


#1 , inner_tx_count (a4 J 




2379 


00000912 


66 F2 






bne . s 


t rysend 

#sEt imeout , inner tx count(a4) 




2380 


00000914 


297C 0000 






move . 1 








OOOB 0052 












2381 


0000091C 


4AAC 0046 






tst. 1 


outer_tx_count (a4 ) 




2382 


00000920 


67E4 






beq . s 


t rysend 




2383 


00000922 


53AC 0046 






subq . 1 


#1 ,outer_tx_count (a4) 




2384 


00000926 


66DE 






bne . 5 


t rysend 




2385 


00000928 


6000 F992 






bra 


t irne_e rr 




2386 
















2387 


0000092C 


4E7S 


sen 


tEOF 


rts 
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PAGE 

2389 

2390 
2391 
2392 
2393 
2394 
239S 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
241S 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
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************************************************* 

* * 

* procedure CONTROL BED ( * 

* var SCT: select_code_t able; * 

* REG: 0..127: * 

* VAL: 0..255); * 

* » 

* Control register is intercepted and * 

* if M0DE=0 no action is performed, otherwise * 

* the card is reset IMMEDIATELY. « 

* * 

* This operation may hang waiting for space. * 

* * 

* The ranges of REG & VAL are not checked * 

* for validity. * 

* * 

* This routine calls find TXBUF and putctrlbltc* 
» ~ * 
************************************************* 



0000 092E control_bfd equ * 



0000092E 20SF 

00000930 321F 

00000932 341F 

00000934 28SF 

00000936 4850 

00000938 266C 0020 

0000093C S28B 

0000093E 6100 F9SC 

00000942 1942 003C 
00000946 6710 

00000948 6100 FC4C 

0000094C 1941 003D 

00000950 6100 F718 
00000954 6000 00B4 

00000958 4A01 
000009SA 6708 
0000095C 6100 FC42 
00000960 6000 F91A 
00000964 4E75 



movea.l fspj+,a0 
move .w f sp) + , dl 
move.w rsp)+,d2 
movea.l [sp)+,a4 
pea (aO) 
movea.l c adr(a4),a3 
addq.l #T, a3 



bsr 



check ov error 





bsr 


find TXBUF 




bra 


piitct rlblk 


ctrlO 


tst .b 


dl 




beq . s 


ct rldun 




bsr 


wait inxfrdone 




bra 


do reset 


ct rldun 


rts 





move.b d2,term(a4) 

beq. s ctrlO 

bsr wait_outxf rdone 

move.b dl,mode(a4) 



VAL 
REG 
SCT 



; Escape if o/v error 
(tm) moved 12/02/81 
tm) ; Intercept CONTROL 



; Set up a2.1 = buffer descriptor record 
: base address 



sEt imeout 
pcbt imeout 



equ 
equ 



11 
11 



********************************* 
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2438 
2439 

2440 * ***** * * **** * 

2441 * * ***** 

2442 * * ***** 

2443 * * * **** * 

2444 * * ***** 

2445 * * ***** 

2446 ' 

2447 
2448 
2449 

2450 0000 000B 

2451 0000 0008 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 

2464 * fit entry 

2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 

2481 0OO0 0966 

2482 00000966 4280 

2483 00000968 4283 

2484 0000096A 010A 0008 

2485 00000S6E 6100 FSBA 

2486 00000972 070H 000C 

2487 00000976 6010 
2488 

2489 0000 0978 

2490 00000978 4280 

2491 0000097A 4283 

2492 0000097C 010A 0018 

2493 00000980 6100 F6A8 

2494 00000984 070A 001C 



[UNCALIBRATED] 
[CALIBRATED 1 MS] 



,********************************************** 



routine TXCTRLBUFFroom: Function which returns the number of byte 

gositions as yet unused in the Transmit Ctrl 
uffer . 

routine TXDATfiBUFFroom: Function which returns the number of byte 

============== positions as yet unused in the Transmit data 

Buffer. 



a2.1 = TXBUFF base address (shifted, +l+selectcode ) 
a3.1 - card base address (SOOxxOOOl) 
dS.l = TXDATABUFF_SIZE or TXCTRLBUFF_SIZE 
(unshifted, not adjusted) 



* P °" 6><1 d6.1 = TXDATABUFF FILL or TXCTRLBUFF_FI LL (unshifted) * 

* d3.1 = Number of Eytes left * 

* This also bashes d2 . * 

* • 

* This routine uses the card's SEMAPHORE to gain access. * 

* * 

* This routine calls gain_access and release_access . « 

************************************************************* ******************* 



TXCTRLBUFFroom equ * 

clr.l dO 

clr.l d3 

movep.w CTRL_AREfl+FILL(a2) ,dO 

bsr gain access 

movep.w CTRL AREA+EMPTY (a2) ,d3 

bra.s room! 

TXDATfiBUFFroom equ * 
clr.l dO 
clr.l d3 

mcvep.w DATA_AREA*FILL(a2),dO 
bsr gain_access 
movep.w DflTfi_AREA + EMPTY(a2) ,d3 



Get garbage out of top of d0&d3 



Need access to EMPTY 

Fetch pointers (bytes in wrong order) 



Get garbage out of top of dOSd3 



Need access to EMPTY 

Fetch pointers (bytes in wrong order) 
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2495 

2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
250S 



00000988 6100 F6C2 rooml bsr 



0000098C E0S8 
0000098E EOSB 



00000990 9640 
00000992 5343 
00000994 6C02 
00000996 D64S 

00000998 4E7S 



ro r .w 
ror .w 



release access 



#8,d0 
#8,d3 



sub.w dO,d3 

subq.w tl,d3 

bge.s room2 

add.w dS,d3 

rts 



; Switch bytes in dO & d3 

; Compute d3 := EMPTY-FILL 

; (EMPTY-FILL-1 ) 

; If negative, add size 

; Return (EMPTY-FILL-1) mod SIZE 
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2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2S18 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2S33 
2534 
?53S 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 

2554 

2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 



routine putchars: 



fit entry: 



a2.1 = 
a3.1 ■= 
a4.1 = 



Routine which takes characters from the * 

area sc„subt ablet ype . data_address sized by * 

sc_subt ablet ype . dat a_number and moves * 

them to the Transmit buffer. The number of * 

characters actually transfered is the minimum * 

of: (1) the number of characters available: * 

(2) the number of byte positions left in the * 

Transmit buffer; and (3) the number of byte * 

positions in the Transmit buffer until the * 

wraparound point. THIS NUMBER CRN BE ZERO. * 

This alters data_address and data_number to * 

reflect where to start going next time this * 

is called. The entire transfer is done when * 

data_number goes to zero. * 

* 

TX buffer record base address (shifted, +l+selectcode) * 

card base address (SQOxxOOOl) * 

pointer to sc_subt ablet ype structure * 



* Upon exit : * 

* data number and data_address are updated, plus FILL in the * 

* card T s Transmit buffer. * 

* al, d4 and dS are left with the values from f ind_DATA_AREA. » 

* This bashes dO, dl, d2, d3, d4, d5, aO, and al. * 

* * 

* Inter rupts: * 

* This does its own enabling/disabling. Interrupts are left ON. * 

* * 

* This routine uses the card's SEMAPHORE to gain access. * 

* " * 

* This routine calls gain_access, release_acces5, TXDATABUFFroom, * 

* and find_DATA_AREA. " * 

* * 



0000099A 



0000099E 
000009A2 
000009A4 
000009A6 
000009A8 

000009AE 
000009B0 

000009B2 
000009B4 
000009B6 

000009B8 
000009BC 



0000 099A 
6100 F70A 



6100 F774 
61D4 

2200 

2004 

0280 0000 

FFFE 

E280 

9081 

B680 

6E02 
2003 

242C 0042 
B480 



putchars equ 
bsr 



bsr 
bsr 

move . 1 
move . 1 



find DATA AREA 



dir 

TXDATABUFFroom 

dO.dl 

d4,d0 



andi!l #s600OFFFE ,d0 



pel 



asr.l 
sub.l 

cmp. 1 
bgt .s 
move . 1 

move . 1 
cmp.l 



#l,dO 
dl,dO 

dO d3 

pel 
d3,d0 

data number(a4) 
dO,d? 



Setup al - data buffer base addr 

d4 = end of data buffer addr 
d5 = TXDATABUFF_SIZE 

d3 . 1 = available buffer positions 
dO.l = dl.l = TXDATABUFF FILL 



dO.l = unshifted TXDATABUFF_END 
dO . 1 = remaining positions to wrap 



,d2 



If d0>d3 then set do 



Fetch number of chars avail into d2 
If d0>d2 then set dO := d2 



1-189 



PAGE 67 [2.0] 11/4/82 16:23:45 DCJTXBUF: TX BUFFER UTILITIES 



2563 
2564 
2S6S 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 



000009BE 6E02 
000009CO 2002 

000009C2 2600 pc2 

* 
000009C4 6740 
000009C6 5340 
000009C8 206C 003E 

000009CC E349 
000009CE 028B 
000009DO 48E7 0040 
000009D4 2241 

000009D6 1298 pcloop 
00000908 5449 
000009DA 51C8 FFFA 

0000090E 9483 
000009EO 2942 0042 
000009E4 2948 003E 

000009E8 2209 
000009EA 4C0F 0200 
000009EE B881 
000009FO 6602 
000009F2 2209 
000009F4 0881 0000 pc3 
000009F8 EF59 
000009FA 6100 F62E 
000009FE 038A 0018 
00000A02 6100 F648 
OOOOOA06 6000 F704 pcdone 



bgt.s pc2 
move.l d2,d0 

move.l d0,d3 

beq.s pcdone 

subq.w #l,dO 

movea.l dat a_address(a4) ,a0 

lsl.w #l,dl 
add.l a3,dl 
movem.l al,-(sp) 
movea.l dl,al 

move.b (aO)+,(al) 
addq.w #2,al 
dbf dO.pcloop 

sub.l d3,d2 

move.l d2,dat a_number (a4) 

move.l a0,data_address(a4) 

move.l al f dl 

movem.l (sp) + ,al 

cmp.l dl,d4 

bne.s pc3 

move .1 al , dl 

bclr #0,dl 

rol.w *7,dl 

bsr gain access 

movep.w dl,DA~TA_AREA + FILL(a2) 

bsr reiease_access 

bra eir 



d3.1 saves number of chars actually 

transferred below 

If zero, no work to be done 

Make offset correct for dbf instr. 

Get character pointer into aO 



Save al so we can use the register 
Now al is useable pointer 

Transfer a character & bump source ptr 
Sump destination pointer (odd bytes) 
Then decrement dO & loop 



Now store adjusted number and 
address fields 



Move 
Res 

Now 



e 68000 FILL pointer into dl 

tore al before we forget! 

r check to see if FILL was move 

past end of buffer. If so, set t 

the front of the buffer. 

Fix up the 68000 pointer t 

card's type of pointer 



be the 



Remember dl = card's FILL pointer. 
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2597 

2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 



2639 

2640 
2641 
2642 

2643 

2644 
2645 
2646 
2647 

2648 
2649 



16:23:45 DC_TXBUF: TX BUFFER UTILITIES 

* routine putctrlblk: Routine which puts a control block into the * 
x ========»= Transmit buffer area of the card. The * 

* appropriate pointers are updated to reflect^ * 
x the control block. This routine also contains * 
x a timeout mechanism which will be adjusted » 
x to the proper values later. If a timeout * 
x occurs, an escape is done with NO DAMAGE to * 
x the buffer. The only thing that can cause the * 
x timeout is < 4 positions left in the control * 
, buffer. SEMAPHORE timeout is not handled * 
x by this routine. * 

* x 
x flt er " ry sc subtabletype.term = TERM field for control block (8 bits) « 
x sc'subtabletype.mode - MODE field for control block 8 bits) * 
» a2~l = TX buffer record base address (shifted, +l+selectcode) * 

* a3.1 = card base address ($00xx0001) * 
x a4 . 1 ■ pointer to sc_subtabletype structure • 

* i ■ . * 

* pon e,<1 F j LL in the card , 5 transmit control buffer is updated. « 
x al d4 and d5 are left with the values from f ind_CTRL_AREA . * 
x This bashes dO, dl , d2, d3, d4, dS, aO and al . * 
x This uses inner/outer_tx_count for computing timeouts. » 

* Interrup^s:^ ^^ .^ ^ enabling/disabling. Interrupts are left ON. * 

* This routine uses the card's SEMAPHORE to gain access. * 

* This routine calls TXCTRLBUFFroom, escape, gain_access, f ind_CTRL_AREA,» 

* eir, dir and release_access . , 

I»xxxxxxxxxxxxx*»*x»xxx»x»»xxx*xx*»**«***»******»*****»****»»*****»***'*"****** 



0000 
OO0OOAOA 6100 



0A0A putctrlblk equ * 

F6A2 bsr find_CTRL_AREA 



OO0O0AOE 

000O0A14 

0OOOOA1C 
00000A20 
0O00OA24 

OO00OP2A 
0O0OOA2C 
OOOOOA30 
00000A34 
0O0O0A36 

OOOO0A3E 
OO0O0A42 



296C 
0046 
297C 
000B 
6100 
6100 
0C83 
0004 
6C22 
6100 
53BC 
66E6 
297C 
000B 
4AAC 
67D8 



002E 



ocoo 

0052 

F6F6 pcbwait bsr 

FF44 bsr 

0000 cmpi . 1 



• Setup al = Ctrl buffer base addr 

d4 = end of Ctrl buffer addr 
d5 = TXCTRLBUFF_SIZE 

move.l timeout (a4) , oute r_tx_count (a4) 

move.l tpcbtimeout , inne r_tx_count (a4) ; Load timeout value 



dir 

TXCTRLBUFFroom 

#4,d3 



F6DE 
0052 

0000 

00S2 
0046 



bge.s roomok 

b5r eir , ., 

subq.l #1 ,inner_tx_count (a4) 

bne. s pcbwait 

move.l #pcb timeout , inner_tx_count (a4) 

tst.l outer T tx_count (a4) 

beq.s pcbwait 



: Get d3 = #bytes available in buffer 
■ and dO = CTRLBUFF_FILL (unshifted) 

; If >=4 bytes, can go ahead! 



Loop, then if it times out give an 



1-190 



PAGE 69 [2.0] 11/4/82 16:23:45 DC_TXBUF: TX BUFFER UTILITIES 

subq . 1 #l # outer_tx_count (a4) 
bne.s pcbwait 
bra time_err 

roomok lsl.w #l,dO 
add.l a3,d0 
movea .1 dO,aO 

movep.w DflTP AREP+FILL (a2) ,d0 
movep.w dO, POINTER (aO) 
move.w term and mode(a4),d0 
movep.w dO,TrRMFTELD(aO) 
adda.l #CT RLBLKSIZE, aO 

move . 1 aO,dl 

cmp.l dl,d4 

bne.s pcbl 

move . 1 al,dl 

pcbl bclr #0,dl 

rol.w #7,dl 

bsr gain access 

movep.w dl.CTRL_PREfl+FILL(a2) 

bsr release_access 

bra eir 



2650 


00000A44 


53a: 


0046 


26S1 


00000A48 


66D2 




2652 


00O00A4A 


6000 


F870 


2653 








26S4 


O0O00A4E 


E348 




2655 


00000A50 


D08B 




2656 


00000AS2 


2040 




2657 








2658 


O0O00AS4 


010A 


0018 


2659 


O0000A58 


0188 


0000 


2660 


OOO0OA5C 


302C 


003C 


2661 


00000A6O 


0188 


0004 


2662 


0O00OA64 


D1FC 
0008 


0000 


2663 








2664 


00000A6B 


2208 




2665 


00000A6C 


B881 




2666 


OOO0OA6E 


6602 




2667 


0O00OA70 


2209 




2668 


00000A72 


0881 


0000 


2669 


00000A76 


EF59 




2670 


00000A78 


6100 


FSBO 


2671 


OO00OA7C 


038B 


0008 


2672 


O0O0OA8O 


6100 


FSCA 


2673 


00000A84 


6000 


F686 



; escape(timeout) . 

; Make CTRLBUFF_FILL into a 68000 

; po i n t e r 

; Put in aO to use it. 

; Get the DATA FILL pointer to put 

; into the POIflTER FIELD 



Bump pointer by TWO bytes 



Move 68000 FILL pointer into dl 
Now check to see if FILL was moved 
past end of buffer. If so, set to 
the front of the buffer. 
Fix up the 68000 pointer to be the 
card's type of pointer 
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************************************************* 

* « 

* routine t ry_sending_EOF: tries to send EOF * 

* and returns immediately if * 

* unsuccessful. * 

* * 

* At entry: * 

* a2.1 = TX buffer-record base addr * 

* a3 . 1 = card base address * 
» a4.1 = pointer to sc_subtabletype * 

* * 

* Upon exit: * 

* dO.l - if unsuccessful; * 

* 1 if successful. » 

* * 

* This bashes dO,dl ,d2,d3,d4 ,dS ,a0 & al » 

* * 
************************************************* 

0000 0A88 try sending_EOF equ * 

00000A88 7204 moveq #4,dl 

OO0OOP8A 4280 clr.l dO 

00000A8C 102A FFFC move.b TXENDBL0CKSPACE-TXBUFF(a2) ,d0 



O0OOOA9O 671C 
00O00A92 2200 
00000A94 6100 F610 sEl 



beq.s sE3 
move.l dO.dl 



00000A98 6100 F67A sElloop bsr 



00000A9C 6100 FEDA 
00000AA0 B681 
00000BA2 6C08 
00000AA4 6100 F666 
00000RA8 4280 
O0OO0AAA 4E75 



bsr 
cmp, 1 
bge . s 
bsr 

noroom clr.l 
rts 



00000AAC 7208 sE2 

* 
00000AAE 6100 F5FE sE3 



moveq 
bsr 



find DATA AREA 



dir 

TXDATABUFFroom 

dl,d3 

sE2 

eir 

dO 



#8,dl 

find CTRL AREA 



OOOO0AB2 6100 F660 sE31oop bsr 



O0OO0AB6 6100 FEAE 
OOOOOABA B681 
00000ABC 6C06 
00000ABE 6100 F64C 
00000AC2 60E4 

00000AC4 4A2A FFFC sE4 
00000AC8 6726 
00000ACA 397C 0S01 

003C 
OOOOOADO 6100 FF38 
OOOO0AD4 42AC 0042 
00000AD8 196A FFFC 

0045 



bsr 
cmp. 1 
bge. s 
bsr 
bra. s 

tst .b 

beq . s 



if it's zero jump down & wait for 4 
bytes in the control queue 
Setup al ■ data buffer base addr 

d4 = end of data buffer addr 

d5 = TXDATABUFF_SIZE 

Now hang until enough space becomes 
available in the data queue 



if TXENDBLOCKSPACE#0 then wait for 

8 bytes, not 4. 

Setup al ■ Ctrl buffer base addr 

d4 = end of Ctrl buffer addr 

d5 = TXCTRLBUFF_SIZE 

Now hang until enough space becomes 
available in the Ctrl queue 



dir 

TXCTRLBUFFroom 

dl,d3 

sE4 

eir 

noroom 

TXENDBL0CKSPACE-TXBUFF(a2) ; There's enough room now! i If zero 
sE6 ; then just send 1 block below 



move.w #$0501 , term_and_mode(a4) 

bsr putctrlblk 

clr.l data number(a4) ; Followed by some space 

move.b TXEND"BL0CKSPACE-TXBUFF(a2) ,dat a_number+3(a4) 
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2729 

2730 
2731 
2732 
2733 
2734 



2735 

2736 

2737 

2738 

2739 

2740 

PASS 1 ERRORS: 
PASS 2 ERRORS: 



OOOOOADE 297C FFFF 
0000 003E 

* 

00000AE6 6100 FEB2 sES 

OOOOOAEA 4AAC 0042 

OOOOOAEE 66F6 

OOOOOAFO 397C 0500 sE6 
003C 

OO0OOAF6 6100 FF12 

OOOOOAFA 7001 

OOOOOflFC 4E75 



move.l #$FFFFOO00,data_address(a4) 



bsr putchars 

tst.l dat a_number (a4 ) 

bne.5 sE5 

move.w #$0500, term_and_mode(a4) 



bsr 

moveq 

rts 



; kluge so it isn't left pointing 
to nowhere & get bus error! 
; Hang until all sent 



putct rlblk 
#l,dO 
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DISCINT 



Purpose 

DISCINT contains assembly language low-level drivers. 

Usage 

DISCINT is used for the 98625 interface. 

Requirements 

DI DRV and COMASM 



(c) Copyright Hewlett-Packard Company, 19 83. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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3 ****************x*************x*x***********xx**************************x******* 

4 * 

5 » copyright (c) 1982 by HEWLETT-PACKARD COMPANY 

6 » 

7 **************XX*******************************X****X**XXXX*********X*********** 

8 * 

9 * 

10 * iolib extdi 

11 * 

12 * 

13 **********************x*******xx*x************x*x*x*x***********************x**x 

14 * 

15 * 

16 * 

17 * library - iolib 

18 * ' 

19 * purpose - this set of assembly language code is intended to be used as 

20 * a PASCAL module for i/o drivers for use by the external i/o 

21 * procedures library. 

22 * 

23 * date - 05/03/82 

24 * update - 08/10/82 

25 » release - 09/22/82 

26 * 

27 * 

28 « source - IOLIB.-DISCINT.TEXT 

29 * object - I0LIB;DISCINT.C0DE 

30 * 

31 * 

32 ************ xxx x**xx**xx*x********* ****** ******** * ********* ****x*x* xx xx*xx*x*xxx 

33 * 

34 * 

35 * released 

36 * version 2.0 

37 * 

38 * 

39 x************************xx*****x*x***********************xx*****************x*x 
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******************************************************************************** 
* 

* the following lines are used to tell the linker/loader what this module 

* looks like in PASCAL terms. 
* 

* note that it is possible to create assembly modules that are functions. 

* these routines are called through an indirect pointer using the call 

* facility which does not permit functions. 
* 

* this module is called 'extdi' ( upper or lower case - doesn't matter ) 

* independent of the file name ( by use of the mname pseudo-op ) . 



* all the externally used procedures are called 'extdi_ 

* this module, if you are using assembly to access them use the 

* 'extdija@<a<3Ka<a<?' name, if you are using PASCAL use the 'Q@Q@@QQ' 

* n ame . 
* 



mname extdi 



src 


modu 


le 


extdi : 

iodeclara 














src 


import 


ions ; 












src 


expo 


rt 
















src 






procedure 


edi init 


temp 


anyptr ) 


; 






src 






procedure 


edi isr 


temp 


anypt r ) 


; 






5rc 






procedure 


edi_rdb 


temp 


anyptr ; 


var 


X 


char); 


src 






procedure 


edi_wtb 


temp 


anyptr ; 


val 




char) ; 


src 






procedure 


edi_rdw 


temp 


anyptr ; 


var 


X 


io word! ; 


src 






procedure 


edi_wtw 


temp 


anyptr ; 


val 




io_word) ; 


src 






procedure 


edi_rds 


temp 


anyptr ; 


reg 




io word: 


5TC 














var 


X 


io_word) ; 


src 






procedure 


edi_wtc 


temp 


anyptr ; 


reg 
val 




io_word; 


5TC 
















io_word ) 


src 






procedure 


edi_tfr 


temp 


anyptr ; 


bcb 




anypt r ) ; 


src 






procedu re 


edi_send 


temp 


anyptr ; 


val 




char ); 


src 






procedu re 


edi^end 


temp 


anyptr ; 


var 


X 


boolean ) 


src 






procedu re 


edi_ppoll 
edi_clr 


temp 


anyptr ; 


var 


X 


char ); 


src 






procedu re 


temp 


anyptr ; 


line 




io bit ) ; 


src 






procedu re 


edi set 


temp 


anyptr ; 


line 




io bit ); 


src 






procedu re 


edi_test 


temp 


anyptr ; 


line 


io_bit ; 


src 














^ar 


X 


boolean ) 


src 




















src 


end; 


{ 


of extdi 


) 
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I******************************************************************************* 

* 

* symbols for export as procedure names 

* 

****** ****»**********«******»*****x*******»*x*«*»********»**«»*****************» 



def 


extd 


extdi 


def 


extd 


ed 


init 


def 


extd 


ed 


isr 


def 


extd 


ed 


rdb 


def 


extd 


ed 


wtb 


def 


extd 


ed 


rdw 


def 


extd 


ed 


wtw 


def 


extd 


ed 


rds 


def 


extd 


ed 


wtc 


def 


extd 


_ed 


_tfr 


def 


extd 


ed 


send 


def 


extd 


i ed 


ppoll 


def 


extd 


ed 


set 


def 


extd 


i ed 


clr 


def 


extd 


i ed 


test 


def 


extd 


i ed 


i end 



******************************************************************************* 
* 

* symbols for import - common assembly language routines 
* 

* the routines are in the module common_assembly 
* 
******************************************************************************** 

give up DMA resource 

actually get Drift 

check to see if Drift is available 

branch to user isr 

branch to use r eot 

set buffer busy 

set buffer not busy 

set buffer Drift busy 

is there a tfr active ? 

kill any tfr active 

timed wait for tfr active 

timed wait for tfr - direction 

lmode dropdma,getdma, testdma , logint , logeot , stbsy 

lmode stclr,DMH_stbsy,itxf r , abort_io,wait_t f r,check_tfr 



ref a 


dropdma 


refa 


getdma 


refa 


testdma 


refa 


logint 


refa 


logeot 


refa 


stbsy 


refa 


stclr 


refa 


DMA stbsy 


refa 


itxTr 


refa 


abort io 


refa 


wait tfr 


refa 


checTC tfr 
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141 include COMDCL 
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145 * 

146 * modified: 02/22/82 JPC added parm to user EOT & ISR proc's 

147 * 

149 * 

150 * HPL CONVENTIONS 

151 * 

152 * 

153 » Much of this code is taken intact from the 9826 HPL 

154 » language system EIO ROM ( extended I/O ROM . 

155 * 

156 * The Pascal that will be calling' this code uses 

157 * the stack for parameter passage. The HPL code 

158 * uses the Ax and Dx registers for all parameters. 

159 * The Pascal driver entry points on the previous pages 

160 * take care of getting the parameters into the correct 

161 * registers. 

162 * 

163 * 

164 * GENERAL HPL ENTRY/EXIT CONDITIONS: 

165 * 

166 * Al .L = CARD ADDRESS 

167 * A2.L = DRIVER TEMP ADDRESS 

168 * UNLESS OTHERWISE INDICATED, THESE REGISTERS ARE UNALTERED. 

169 * 

170 * 

171 * NEU ENTRY/EXIT CONDITIONS FOR PASCAL USE : 

172 * 

173 * A3.L ■ BUFFER CONTROL BLOCK ADDRESS 

174 * In addition to the A1/A2 convention, Pascal will use 

175 * p,3 f or a pointer to the buffer control block. 

176 * The HPL system kept much of the transfer 

177 * information in the s.c. temps. 

178 * 

179 * TIME0UT(A2) = contains timeout information 

180 * Timeout was a global temp in HPL and a timeout 

181 * Generated an error. 

182 * In PASCAL each card has a timeout value stored in 

183 * its temporary area. A timeout error 

184 * generates an ESCAPE ( which can be trapped ). 

185 * 

186 * 

187 **********************************************:♦;****«*******************•*«******* 
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****************************** ************************************* ************* 

* 

* 

* DRIVER TEMPS TEMPLATE 
* 

* OFFSET FROM A2 
* 

* HPL DECLARATIONS ( tlODIFIED ) 
* 

************** ****************************************************************** 

PASCAL ISR LINK & UNLINK area 
user ISR: do NOT charge the proc/stat link/parm ordering! 

procedure ptr 

static link 

pa r ame t e r 
card address 
buffer pointer offset 
buffer pointer offset 
eir byte 

select code ( i.e. 7, 22, etc. ) 
timeout value 

=0 : no timeout 
#0 : value of timeout 
word access to my address 
byte access to my address 
standard space taken from temps 
normal cards ( 32 bytes ) 
98628 card ( 128 bytes ) 



0000 


0000 


ISR ENTRY 


EQU 





.19 


0000 


0014 


USER" ISR 


EQU 


20 




0000 


0014 


H ISR" PR 


EQU 


20 


.23 


0000 


0018 


H~ISR~SL 


EQU 


24 


.27 


0000 


001C 


H~ISR~PM 


EQU 


28 


.31 


0000 


0020 


C ADR 


EQU 


32 


.35 


0000 


0024 


BD"FI OFF 


EQU 


36 


.39 


0000 


0028 


BUF0~0FF 


EQU 


40 


.43 


0000 


002C 


EIRB OFF 


EQU 


44 




0000 


002D 


10 SC 


EQU 


45 




0000 


002E 


TlHEOUT 

* 


EQU 


46 


.49 


0000 


0032 


* 
MA U 


EQU 


50 


.51 


0000 


0033 


MA 


EQU 


51 




0000 


0034 


AVAIL OFF 


EQU 


52 


?■> 






* 




52 


.83 






* 




52 


.179 
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219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
24 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 



********** J*****************************************************************"** 
* 

* TRANSFER OFFSETS IN BUFFER CONTROL BLOCK 
* 

* OFFSET FROM A3 
* 

* PASCAL DECLARATION 
* 
I********************************************************"*"*******"********* 

3 pointer to driver temp offset 
transfer select code 
actual transfer mode 



0000 


0000 


TTMP OFF 


EQU 





0000 


0005 


T SC OFF 


EQU 


b 


0000 


0007 


TfiCT OFF 


EQU 


7 


0000 


0009 


TUSR OFF 


EQU 


9 



0000 


000A 


T BU OFF 

*~ 

TEND OFF 

* 

TDIR OFF 

* 

TCHR OFF 

* 

TCNT OFF 

TBUF OFF 

TBSZ OFF 

TEMP OFF 

TFIL OFF 

T PR OFF 

* 

T SL OFF 

T~PM~0FF 

T~DMA"PRI 

* 

* T 

* 

TT INT 

TT DMA 

TT _ BURST 

TT FHS 


EQU 


10 




0000 


000B 


EQU 


11 




0000 


000D 


EQU 


13 




0000 


000E 


EQU 


14 


. .15 


0000 
0000 
0000 
0000 
0000 
0000 


0010 
0014 
0018 
001C 
0020 
0024 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


16 
20 
24 
28 
32 
36 


. .19 
. .23 
. .27 
. .31 
. .35 
. .39 


0000 

0000 
0000 


0028 

002C 
0030 


EQU 
EQU 
EQU 


40 
44 
48 


. .43 
. .47 






RANSFER EQUATES 


0000 
0000 

0000 
0000 


0001 

0002 
0003 
0004 


EQU 
EQU 
EQU 
EQU 


1 
2 
3 
4 





transfer mode 
00 
01 
02 
03 
04 



serial DMA 
serial FHS 
serial FASTEST 



not used 



( DMA or FHS ) 
not used 



05 overlp INTR 

06 overlp DMA 

07 overlp FHS ( BURST ) 

08 overlp FASTEST DMA or BURST ) 

09 overlp OVERLAP ( DMA or INTR ) 
transfer byte/word indicator 

= byte / 1 = word 
transfer EOI/END indicator 

= no eoi / 1 = eoi sent or searched for 
transfer direction 

= input / 1 » output 
transfer terminate character 

-1 - no termination character 
transfer count 
transfer buffer pointer 
transfer buffer maximum size 
transfer empty pointer pointer 
transfer fill pointer 
transfer pointer to eot procedure 
NIL no procedure 
transfer eot proc static link 
transfer eot proc parameter 
dma priority request 



interrupt 

DMA 

burst 

fast handshake 
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270 
271 
272 
273 
274 
275 
276 
277 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
29S 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
306 
306 
307 
308 
308 
308 
309 
310 
311 
311 
311 
312 
313 
314 
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♦a****************************************************************************** 

* 

* EXTERNAL REFERENCES for escape 

* 

REFA iodeclarations reference the io lib var. area 

REFA sysglobals 

X*X% ****** ******X************X* ****************************** ******************* 



Escape code values 



0000 0001 
0000 0002 
0000 0003 
0000 0004 
0000 0005 
0000 0006 
0000 0007 
0000 0008 
0000 0009 
0000 OOOfl 
0000 OOOB 
0000 oooc 
0000 OOOD 
0000 000E 
0000 OOOF 
0000 0010 
0000 0011 
0000 0012 
0000 0013 
0000 0014 
0000 0015 
0000 0016 
0000 0017 



1 no interface 

2 not an hpib interface 

3 no active controller 

4 sc ( not device ) specified 

5 not enough space in the buffer 

6 not enough data left in the buffer 
tfr error 



NO CARD 
NOT HPIB 
NOJTCTL 
NO DVC 
N0_SPflCE 
NO DATA 
TFR" ERR 
SC B"USY 
BUF BUSY 
TCNTERR 
BfiDTMO 
N0_DRV 
N0_DMA 
NO WORD 
NOT TALK 
N0T _ LSTN 
TI10 ERR 
NO S"CTL 
BAD" RDS 
BAD SCT 
CRD DUN 
EOD SEEN 
10 RISC 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



FFFF FFE6 I0E_ERR0R EQU 



FFFF FFBE IOE RSLT EQU 
FFFF FFBA I0E_SC EQU 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 



-26 



I0DECLARATI0NS-66 
I0DECLARATI0NS-70 



sc is currently busy 

the buffer is busy 

bad count 

bad timeout value 

no driver 

no dma installed 

no word transfers allowed 

not addressed as talker 

not addressed as listener 

timeout 

not system controller 

bad read status / write control 

bad set/clear/test 

interface is dead 

end of data has happened 

misc. error 



io sub system error escape code 



FFFF FFFE ESC CODE EQU SYSGLOBALS-2 
FFFF FFF6 RCVR"_BLK EQU SYSGLOBALS-10 



* disc interface card temp definitions 



0000 0034 ABI 
0000 0035 EOI in 
0000 0036 E0I_out 

0000 0039 flags 



equ 
equ 
equ 



avail_off+0 
avail_off+l 
avail_off+2 

avail off+5 
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317 * 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 



0000 003A ppollmsk 



0000 003C DMA_count 
0000 0040 DMA_arm_addr 
0000 0044 DMA arm word 



equ 
equ 

equ 
equ 
equ 



avail_of f+6 
avail_off+7 

avail_off+8 

avail_off+12 

avail_off+16 



PHI/ABI flag 

EOI flag for previous byte in 

EOI flag for next byte out 

driver flags and status byte mask: 



bit 
bit 
bit 
bit 
bit 
bit 
bit 
bit 



pass control flag 

not used 

error indicator 

IFC indicator 

del indicator 

get indicator 

current rsv status bit. 

if set, 9914 is in holdoff mode, therefore 

issue release hold off before reading, and 

use take control sync to set ATN. 



value to put in di_ppoll when ist = 1 
value to put in di_ppoll when ist = 

remaining DMA count 

arm address of the assigned DMA channel 

arm word of the assigned DMA channel 
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00000000 4E7S 
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346 
347 
348 
349 
3SO 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 



16:21:33 IOLIB EXTDI - PASCAL ENTRY PO 

********************************** 
* 

* PASCAL driver entry poin 
* 
********************************** 

* 

* module initialization 
* 
extdi_extdi rts 



INTS 

********************************************** 
ts for disc interface cards 
********************************************** 



00000002 
00000004 
00000006 
0000000A 

oooooooc 



00000010 
00000012 
00000014 
00000018 
0000001A 



0000001E 
00000020 
00000022 
00000024 
00000028 
0000002A 
0000002E 
00000030 



00000032 
00000034 
00000036 
00000038 
0000003C 
0000003E 



20SF 
24SF 
226A 
4850 
6000 



205F 
245F 
226A 
4850 
6000 



205F 
265F 
245F 
226A 
4850 
6100 
1680 
4E75 



205F 
101F 
245F 
226A 
4850 
6000 



* driver initialization 
* 

extdi_edi_init movea.l (sp)+,aO 

movea.l (sp)+,a2 

0020 movea.l c_adr(a2), 

pea (aO) 

0110 bra di_init 



* interrupt service routine 

X 

extdi_edi_isr 



0020 
03D2 



* read a byte 

* 

extdi edi rdb 



0020 

014E 



* write a byte 

* 

extdi_edi_wtb 



0020 
0168 



movea.l (sp)+,aO 
movea.l (sp)+,a2 
movea.l c_adr(a2), 
pea (aO) 
bra di isr 



movea.l (sp)+,aO 
movea.l fsp)+,a3 
movea.l (sp)+,a2 
movea.l c_adr(a2),c 
pea (aO) 
bsr di_rdb 
move.b dO, (a3) 
rts 



movea.l (sp)+,aO 
move . b ( sp) +, dO 
movea.l (sp)+,a2 
movea.l c_adr(a2),s 
pea (aO) 
bra di_wtb 



do nothing 



get return address 

get temp address 

get card address 

push return address back on stack 



get return address 

get temp address 

get card address 

push return address back on stack 



get return address 

get var address 

get temp address 

get card address 

push return address back on stack 

call read byte 

save character 



get return address 

get value 

get temp address 

get card address 

push return address back on stack 

call write byte 
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398 








399 








400 








401 


00000042 


205F 




402 


00000044 


265F 




403 


00000046 


245F 




404 


00000048 


226A 


0020 


405 


0000004C 


4850 




406 


0000004E 


6100 


012A 


407 


00000052 


16C0 




408 


00000054 


6100 


0124 


409 


00000058 


1680 




410 


0000005A 


4E7S 




411 








412 








413 








414 








415 


0000005C 


205F 




416 


0000005E 


301F 




417 


00000060 


24SF 




418 


00000062 


226A 


0020 


419 


00000066 


4850 




420 


00000068 


1A00 




421 


0000006A 


E048 




422 


0000006C 


6100 


013A 


423 


00000070 


1005 




424 


00000072 


6000 


0134 


425 








426 








427 








428 








429 


00000076 


20SF 




430 


00000078 


265F 




431 


0000007A 


321F 




432 


0000007C 


24SF 




433 


0000007E 


226A 


0020 


434 


00000082 


4850 




435 


00000084 


6100 


01C4 


436 


00000088 


3680 




437 


0000008A 


4E75 




438 








439 








440 








441 








442 


0000008C 


205F 




44 3 


0000008E 


301F 




444 


00000090 


321F 




44 5 


00000092 


24SF 




44 6 


00000094 


226A 


0020 


447 


00000098 


4850 




448 


0000009A 


6000 


020E 


449 









* read a word 

* 

extdi_edi_rdw 



* write a word 

x 

extdi edi wtw 



movea 

movea 

movea 

movea 

pea 

bsr 

move .1 

bsr 

move . I 

rts 



movea 

move 

movea 

movea 

pea 

move . [ 

lsr 

bsr 

move . t 

bra 



(sp)+, aO 
sp)+,a3 
(sp)*,a2 
c_adr (a2),al 
(aO) 
di rdb 
dO, (a3)+ 
di rdb 
d0,(a3) 



sp)+, aO 
sp +,dO 
sp)+, a2 
adr(a2), 



(aO) 

d0,d5 

#8,d0 

di wtb 

dSTdO 

di_wtb 



* read status 



extdi edi rds 


movea 


1 


(sp)+, aO 




movea 


1 


sp]*,a3 




move 




(sp)+,dl 




movea 


1 


(sp)+,a2 




movea 


1 


c adr (a2) ,al 




pea 




(aO) 




bsr 




di rds 




move 




d0,(a3) 




rts 







* write cont rol 

* 

extdi edi wtc 



movea . 
move 
move 
movea , 
movea . 
pea 
b ra 



1 


(sp)-*-, aO 




(sp +,d0 




(sp +,dl 


1 


(sp)+, a2 


1 


c adr(a2),al 




(aO) 
di wtc 





get return address 

get var address 

get temp add ress 

get card address 

push return address back on stack 

read first byte 

save first byte 

read second byte 

save second byte 



get return address 

get word value 

get temp address 

get card address 

push return address back on stack 

save second byte 

write the byte 

get the second byte 

write the byte 



get return add ress 

get var add ress 

get register number 

get temp address 

get card address 

push return address back on stack 

read status 

save status info 



get return address 

get value 

get register number 

get temp address 

get card address 

push return address back on stack 

write control 



1-200 



0000009E 205F 
OOOOOOAO 26SF 
000000A2 245F 
OOOOOOR4 226A 0020 
000000A8 48S0 
OOOOOOAA 6000 0494 



* transfer 

* 

extdi edi tfr 



movea 


1 


(sp)+,aO 




movea 


1 


spW,a3 




movea 


1 


(sp)+,a2 




movea 


1 


c adr(a2) 


al 


pea 

bra 




(aO) 






di ifr 





* send an 'fiTN' true command 



OOOOOOAE 20SF extdi edi send 


movea . 1 


O00OOOB0 101F 


move .b 


000000B2 245F 


movea . 1 


000000B4 226A 0020 


movea . 1 


000000B8 48S0 


pea 

bra 


OOOOOOBA 6000 0312 



(sp)+,aO 
spj+,dO 
(sp)+,a2 
c adr (a2) ,al 
(TO) 
di r6out 



* perform a parallel poll 
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451 * 

4S2 

453 
454 
455 
456 
457 
4S8 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 



OOOOOOBE 

OOOOOOCO 
00O0OOC2 
000000C4 
000000C8 
O00O00CA 
OOOOOOCE 
OOOOOODO 


205F 
265F 
245F 
226A 
4850 
6100 
1680 
4E7S 


0020 
0234 


extdi. 


_edi 


_PP° 


11 


movea. 1 
movea . 1 
movea. 1 
movea. 1 
pea 
bsr 

move .b 
rts 


(sp)+,a0 

(sp +,a3 

(sp)+,a2 

c adr(a2) 

(aO) 

di p poll 

d0,(a3) 


al 








* 
* 


set 


an 


hpib 


1 


ine 






0O00OOD2 
000000D4 
000000D6 
000000D8 
OOOOOODC 
OOOOOODE 


205F 

321F 
245 F 
226A 
4850 
6000 


0020 
0256 


extdi. 


.edi 


_set 




movea . 1 
move 
movea .1 
movea. 1 
pea 
bra 


(sp)+,a0 
sp + ,dl 
(sp)+,a2 
c adr(a2) 
(aO) 
di set 


al 



O0O000E2 205F 
000000E4 321F 
O00000E6 245F 
000000E8 226A 0020 
000000EC 4850 
00O00OEE 6000 02A6 



* 


clear an 


hpib 


line 










extdi 


edi 


clr 


movea 


1 


sp ) + 


aO 












move 




sp + 


dl 












movea 


1 


(Sp) + 


a2 












movea 


1 


c adr 


a2| 


al 










pea 

bra 




di_cl 







get return address 

get buffer control block address 

get temp address 

get card address 

push return address back on stack 

t ransfer 



get return address 

get value 

get temp address 

get card address 

push return address back on stack 

send command byte 



get return address 

get var address 

get temp address 

get card address 

push return address back on stack 

do a parallel poll 

save value 



get return address 

get line 

get temp address 

get card address 

push return address back on stack 

call set line 



get return address 

get line 

get temp address 

get card address 

push return address back on stack 

clear the line 



OO00O0F2 205F 
000000F4 265F 
000000F6 321F 
OO00OOF8 245F 
000000FA 226A 0020 
000000FE 4850 
00000100 6100 02C8 
00000104 1680 
00000106 4E75 



00000108 20SF 
0000010A 26SF 
0000010C 24SF 
0000010E 226A 0020 
00000112 4850 
00000114 102A 0035 
00000118 EE08 
000O011A 1680 
0000011C 4E75 



* test an hpib line 

* 

extdi edi test 
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504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 



movea . 1 


(sp)+,aO 




movea . 1 


jspj+,a3 




move 


spj+,dl 




movea . 1 


(sp)*,a2 




movea . 1 


c adr(a2) 


al 


pea 
bsr 


(aO) 




di test 




move.b 


d0,(a3) 




rts 







* test for EOI/end condition 

* 

extdi edi end 



movea. 1 
movea. 1 
movea. 1 
movea. 1 
pea 

move -b 
lsr.b 
move .b 
rts 



spl+, aO 

sp]+, a3 

sp) + , a2 
c adr(a2) ,al 
(aO) 

EOI in(a2),d0 
#7,3*0 
dO, (a3) 



get return address 

get var address 

get line 

get temp address 

get card address 

push return address back on stack 

read status 

save character 



get return address 

get var address 

get temp address 

get card address 

push return address back on stack 

get eor flag byte 

PASCAL needs it [0. .1] 

save condition 
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532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
54 3 
544 
545 
546 
547 
54 8 
549 
550 
SSI 
552 
5S3 
554 
S5S 
556 
557 
558 
559 
S60 
561 
562 
563 
564 
S6S 
S66 
567 
568 
S69 
570 
571 
S72 
573 
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***************************************************** *************************** 
* 

* disc interface card address equates ( offsets from al ) 

* 
******************************************************************************** 



0000 0001 cardid equ $01 read 

0000 0001 cardreset equ $01 write 

0000 0003 cardstatus equ $03 read 

0000 0003 cardcontrol equ $03 write 

0000 0007 cardlatch equ $07 read/write 

0000 0011 intreg equ $11 read/write 

0000 0013 intmask equ $13 read/write 

0000 001S fifo equ $15 read/write 

0000 0017 status equ $17 read/write 

0000 0019 control equ $19 read/write 

0000 001B address equ $1B read/write 

0000 001D ppolmask equ $1D read/write 

0000 001F ppolsense equ $1F read/write 



card identification 

card software reset 

card status 

card control 

latch for testing card buffers 

PHI/ABI interrupt register 

PHI/ABI interrupt mask 

PHI/HBI inbound/outbound fifo 

PHI/ABI status register 

PHI/ABI control register 

PHI/ABI hp-ib address register 

PHI/ABI parallel poll mask register 

PHI/ABI parallel poll sense register 



0000 


0001 


qtl 


0000 


0004 


sdc 


0000 


0005 


ppc 


0000 


0008 


qet 


()<>:)() 


0009 


tct 


0000 


0011 


1 lo 


0000 


0014 


del 


0000 


0015 


ppu 


0000 


0018 


spe 


0000 


0019 


spd 


0000 


003F 


unl 


0000 


005F 


unt 


0000 


0060 


ppe 


0000 


0070 


ppd 



******************************************************************************** 

* hp-ib command equates 
* 

******************************************************************************** 

go to local 

selective device clear 

ppoll configure 

group execute trigger 

take control 

local lockout 

device clear 

ppoll unconfigure 

spoil enable 

spoil disable 

unlisten 

unt alk 

ppoll enable 

ppoll disable 



equ 


1 


equ 


4 


equ 


5 


equ 


8 


equ 


9 


equ 


17 


equ 


20 


equ 


21 


equ 


24 


equ 


2S 


equ 


63 


equ 


95 


equ 


96 


equ 


112 



PAGE 

576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
60S 
610 
611 

612 

613 
614 
61S 
616 

617 
618 
619 
620 
621 

622 

623 

624 
625 
626 
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******************************************************************************** 
* 

* di_init 

* initialise a disc interface card 

* 

************ ********************************************************** ********** 

di_init 



OOOOOHE 701E 

00000120 6106 

00000122 6600 0246 

00000126 4E75 



moveq #30, dO 

bsr.s di_init_s 

bne di_IFC 
rts 



my address if active controller 

start software reset 

if system controller, branch 



*********************************************** 
* 

* di_int_s 
* 

* subroutine used for both initializati 
* 
*********************************************** 



********************************* 



00000128 
0000012A 
0000012E 
00000132 
00000136 
0000013A 
0000013C 
00000140 
00000144 
00000148 

0000014E 



00000152 

000001S8 
0000015C 
00000160 
00000164 
00000168 

0000016E 



00000174 
00000178 



7280 
1341 
1341 
1341 
3540 
D001 
1341 
1340 
4A29 
0829 
0017 
56EA 



4EB9 
C000 
S1EA 
S1EA 
41E9 
10BC 
137C 
0013 
137C 
0003 

0810 
4E75 



0001 

0019 
0019 
0032 

0017 
001B 
001B 
0007 

0034 



* software reset the card 

* 

di init s 



0000 

0035 
0036 
0017 
0080 
0000 

0080 



moveq #$80, dl 

move.b dl , cardreset (al) 

move.b dl ,cont rollal ) 

move.b dl ,cont rol (al ) 

move d0,ma_w(a2) 

add.b dl,d0 

move.b dl , status (al ) 

move.b dO, address (al J 

t st .b address (al ) 

btst #7,status(al) 

sne ABI(a2) 
* 

* set up the interrupt register & driver temps 
* 

jsr abort_io 

sf E0I_in(a2) 

sf E0I_out(a2) 

lea status(al ) ,a0 

move.b #$80, (aO) 

move.b #$00,intmask(al ) 



move.b #$80 ,cardcont rol (al) 



on and wtc: 
********************************* 



prepare to . . . 

software reset the card (PHI/ABI pon) 

set 8-bit mode 

once more, to guarantee high-order bit values 

save my address 

set the "online" bit 

prepare to enable CRC if ABI 

bring PHI/ABI online with specified address 

is this an ABI? 

a writeable CRC bit will tell 

remember it 



cleanup any attached buffer 

clear the EOI in flag 

clear the EOI out flag 

point to the status register 

set high-order bits 

iMtial interrupt mask ???????????????? 

enable card interrupts 



0003 



btst 
rts 



#3, (aO) 



is this THE system controller? 
(leave cc for caller) 



1-202 



PRGE 

628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 



645 
646 
647 
648 

649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 

667 
668 
669 
670 
671 
672 
673 
674 
675 
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******************************************************************************** 
* 

* di_rdb 
* 

* read a byte of data from hp-ib 
* 

* exit: dO.l = byte read 
* 



0000017R 41E9 0017 di rdb 
0000017E 0810 0001 
00000182 67SE 
00000184 0810 0004 
00000188 670A 
0000018A 10BC 0080 
0000018E 137C 0001 

0015 
00000194 616E di rdbl 
00000196 7000 
00000198 1029 0015 
0000019C 0829 0006 

0017 
000001A2 56EA 0035 
000001A6 4E7S 



lea 
btst 

beq . 5 

btst 

beq .s 

move.b #$8"0,(a0) 

move.b #l,fifo(al 



statusfal ),a0 
#1 , (aO) 
di isterr 
#4, (aO) 
di rdbl 



(al) 

bsr.s di_wait_fb 

moveq #0,dO 

move.b fifo(al),dO 

btst *6,status(al) 



sne 
rts 



E0I_in(a2) 



point to the status register 

make sure addressed to listen 

else give error 

active controller? 

branch if not 

inhibit LF detection 

enable a 1 byte counted transfer 

now wait for fifo byte 
clear upper part of dO 
and put data in lower byte 
tagged with EOI? 

remember it 
done! 



000001A8 0829 0002 di wtb 

0017 
000001AE 6736 
000001BO 614E 
000001B2 142A 0036 
000001B6 EFOA 
000001B8 1342 0017 
000001BC 1340 0015 
000001C0 51EA 0036 
000001C4 4E75 



******************************************************************************** 

* 

« di_wtb 

* 

* write a byte of data to hp-ib 

* entry: dO.b = byte to write 

* 

* hpl routine 
* 

******************************************************************************** 

btst #2,status(al) make sure addressed to talk 



beq.s di_tlkerr 

bsr.s di wait fi 

move.b EOT outTa2) ,d2 

lsl.b #7,32 

move.b d2 , status (al) 

move.b dO.fifo(al) 

sf E0I_out(a2) 
rts 



else error 

wait for fifo idle 

EOI out flag 

prepare to. . . 

set the high-order bits 

move the data out 

clear the EOI out flag 

done! 
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******************************************************************************** 

* 

* error escapes 

* 

******************************************************************************** 

buffer is busy 



678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
70S 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 

719 
720 



000001C6 
000001C8 



OOOOOlCfl 
000001CC 



000001CE 
000001D0 



000001D2 
000001D4 



000001D6 
000001D8 



000001DR 

000001DC 



000001DE 
000001EO 



000001E2 
000001E4 



000O01E6 
000001E8 



000001ER 7011 



7008 
6022 



7014 
601E 



7003 
601A 



7012 
6016 



7007 
6012 



700D 
600E 



700E 
600R 



7010 
6006 



700F 
6002 



di_scbsy 

di_sc_err 

di_notactl 

di_not sctl 

hterr_b 

h t e r r_d 

di_noword 

di_lsterr 

di_tlkerr 

di tmo 



000001EC 2B40 FFBE esc err 
000001F0 102A 002D 
000001F4 2B40 FFBfl 
000001F8 3B7C FFE6 

FFFE 
000001FE 4E4R 



moveq #sc_busy,dO 

bra.s esc_err 

moveq #bad_sct,dO 

bra.s esc_err 

moveq #no_actl,dO 

bra.s esc_err 

moveq #no_sctl,dO 

bra.s esc_err 

moveq #tfr_err,dO 

bra.s esc_err 

moveq #no_DMfl,dO 

bra.s esc_err 

moveq #no_word,d0 

bra.s esc~err 

moveq #not_lstn,dO 

bra.s esc_err 

moveq #nct_talk,dO 

bra.s esc_err 

moveq #tmo_err,dO 

bra.s esc err 



move 
move 
move 
move 

trap 



bad set/clear/test 

not active controller 

not system controller 

bad transfer specification 

DMA not installed 

word transfers not allowed 

not addressed as listener 

not addressed as talker 

timeout 



1 dO,ioe_rslt (aS) 

b io_sc(a2) ,d0 \ 

1 dO,ioe_sc (aS) / 

#ioe_error,esc_code(a5) save system esc code 



save error in lo space 
get sc for error 



#10 



escape 
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722 ******************************************************************************** 

723 * 

724 * wait for fifo idle or fifo byte routines 

725 * 

726 ******************************************************************************** 

727 

728 00000200 7201 di_wait_fi moveq #l,dl fifo idle is bit 1 

729 00000202 6002 bra. 5 di_wfc 
730 

731 00000204 7202 di_wait_fb moveq t2,dl fifo byte is bit 2 

732 

733 * 

734 * generalized wait for condition routine 

735 * 

736 00000206 4229 0003 di wfc clr.b cardcont rol (al ) disable card interrupts 

737 0000020A 03E9 0013 "' bset dl , intmask (al ) unmask the appropriate interrupt bit 

738 0000020E 41E9 0011 lea int reg (al ) , aO point to the interrupt register 

739 » 

740 * quick low-overhead loop 

741 * . , , 

742 00000212 747F moveq #127, d2 quick loop counter 

743 00000214 0310 di_wfc_quick btst dl,(a0) condition met? 

744 00000216 6626 bne.s di_wfc done branch if so 

745 00000218 51CA FFFA dbra d2 ,di_wfc_quick loop until quick count expires 

746 * 

747 * timed wait loop 

748 * 

749 0000021C 242A 002E move . 1 t imeout (a2) ,d2 current timeout 

750 00000220 6718 beq.s di wfc infinite branch if infinite timeout 

751 00000222 C4FC 01EB mulu #49"1 , d2" loop iterations per millisecond 
752 

753 00000226 0310 di_wfc_timed btst dl,(a0) condition met? 

754 00000228 6614 " bne.s di wfc_done branch if so 

755 0000022A 5382 subq.l #l,d2 decrement the loop counter 

756 0000022C 62F8 bhi di_wfc_timed loop until count expired 
757 

758 0000022E 03A9 0013 bclr dl , intmask (al ) re-mask the appropriate interrupt bit 

759 00000232 137C 0080 move.b #$80 , ca rdcont rol ( al ) re-enable card interrupts 

0003 

760 00000238 60B0 bra di_tmo escape with timeout error 

761 » 

762 * infinite wait loop 

763 * 

764 0000023A 0310 di_wfc_inf init e btst dl,(a0) condition met? 

765 0000023C 67FC beq di_wfc_inf inite loop until so 

766 » 

767 * wait for condition done 

769 0000023E 03A9 0013 di_wfc_done bclr dl, intmask (al ) re-mask the appropriate interrupt bit 

770 00000242 137C 0080 move.b #$80 , cardcont rol (al ) re-enable card interrupts 

0003 

771 00000248 4E7S rts done! 
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773 ********************* ********************************************************** 

774 * 

775 * di_rds 

776 * 

777 * read status 

778 * 

779 * PASCAL routine 

781 I***,*****.****.*******.****************************************************"** 

782 

783 0000024A B27C 0008 di_rds cmp #8,dl register within range? 

784 0000024E 621C bhi.s rds err branch if not 

785 00000250 0241 add dl,3l two bytes per table entry 

786 000002S2 323B 1006 move rds_t able (dl ) ,dl load routine offset 

787 00000256 4EFB 1002 imp rds_t able (dl ) jump to the appropriate routine 
788 

789 * 

790 * rds jump table 

791 * 

792 0000025A 0018 rds_table dc 

793 0000025C 0012 dc 

794 000O02SE 0012 dc 

795 00000260 001C dc 

796 00000262 0012 dc 

797 00000264 0012 dc 

798 00000266 0030 dc 

799 00000268 0012 dc 

800 0000026A 0012 dc 
801 

802 0000 026C rds_l equ * 

803 0000 026C rds_2 equ * 

804 0000 026C rds_4 equ » 

805 0000 026C rds_S equ * 

806 0000 026C rds_7 equ * 

807 0000 026C rds_8 equ * 

809 0000026C 7013 rds_err moveq #bad_rds,d0 bad read status 

810 0000026E 6000 FF7C bra esc_err 
811 



rds 0- 


rds table 


status 





rds 1- 


rds table 


status 


1 


rds 2- 


rds table 


status 


2 


rds 3- 


rds table 


status 


3 


rds 4- 


rds table 


status 


4 


rds 5- 


rds table 


status 


b 


rds 6- 


rds table 


status 


6 


rds 7- 


rds table 


status 


7 


rds 8- 


rds table 


status 


8 
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813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
84 3 
844 
845 
846 
847 
848 
849 
850 
851 



00000272 7008 
00000274 4E7S 



00000276 7000 
00000278 1029 0017 
0000027C E918 
0000027E E348 
00000280 E008 
00000282 E248 
00000284 D02A 0033 
00000288 4E75 



0000028A 61EA 
0000028C E098 
0000028E 1029 0017 
00000292 E358 
00000294 E298 
00000296 E418 
00000298 E298 
0000029A E518 
0000029C E298 
O000O29E E958 
000002RO E898 
000002H2 E618 
000002FI4 E298 
000002A6 4840 
000002A8 4E75 



» status 

* 

rds_0 


- card ID 














moveq 


#8,d0 






Simon's ID 






rts 














* 

* status 3 


controll 


er status & 


add 


ress 








rds_3 


moveq 


#0,d0 






ZZZZZZZZ 


ZZZZZZZZ 






move .b 


st at us ( al ) 


dO 




ZZZZZZZZ 


76543210 






rol.b 


#4,d0 






ZZZZZZZZ 


32107654 






lsl 


#1 ,d0 






ZZZZZZZ3 


21076S4Z 






lsl.b 


#6,d0 






ZZZZZZZ3 


4ZZZZZZZ 






lsr 


#l,d0 






ZZZZZZZZ 


34ZZZZZZ 






add.b 


ma (a2) ,d0 






ZZZZZZZZ 


34ZAABAA 






rts 














* 

« status 6 


interface status 












rds_6 


bsr 


rds 3 




ZZZZZZZZ 


ZZZZZZZZ 


ZZZZZZZZ 


LLLLLLLL 




ror . 1 


#8,30 




LLLLLLLL 


ZZZZZZZZ 


ZZZZZZZZ 


ZZZZZZZZ 




move . b 


st atus (al ) 


dO 


LLLLLLLL 


ZZZZZZZZ 


ZZZZZZZZ 


76543210 




rol 


#l,d0 




LLLLLLLL 


ZZZZZZZZ 


ZZZZZZZ7 


6543210Z 




ror .1 


#l,d0 




ZLLLLLLL 


LZZZZZZZ 


ZZZZZZZZ 


76543210 




ror .b 


#2,d0 




ZLLLLLLL 


LZZZZZZZ 


ZZZZZZZZ 


10765432 




ror . 1 


#1 ,d0 




2ZLLLLLL 


LLZZZZZZ 


ZZZZZZZZ 


Z1076S43 




rol .b 


#2,d0 




2ZLLLLLL 


LLZZZZZZ 


ZZZZZZZZ 


076S43Z1 




ror . 1 


#l,d0 




12ZLLLLL 


LLLZZZZZ 


ZZZZZZZZ 


Z076S43Z 




rol 


#4,d0 




12ZLLLLL 


LLLZZZZZ 


ZZZZZ076 


543ZZZZZ 




ror .1 


#4,d0 




ZZZZ12ZL 


LLLLLLLZ 


ZZZZZZZZ 


Z076543Z 




ror .b 


#3,d0 




ZZZZ12ZL 


LLLLLLLZ 


ZZZZZZZZ 


43ZZ0765 




ror .1 


#1 ,d0 




5ZZZZ12Z 


LLLLLLLL 


ZZZZZZZZ 


Z43ZZ076 




swap 


dO 




ZZZZZZZZ 


Z43ZZ076 


5ZZZZ12Z 


LLLLLLLL 




rts 








whew! ! 1 







PRGE 

853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 

894 

895 
896 
897 
898 

899 
900 
901 
902 
903 
904 

905 
906 
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******************************************************************************** 
* 

* di_wtc 
* 

* write control 
* 

* entry: dO.w = parameter 
* 
******************************************************************************** 



000002AA 0C41 0001 di wtc 

000002AE 62BC 

000002BO D241 

000002B2 4EFB 1002 



000002B6 6002 
000002B8 6016 



hwtctbl 



cmpi 


#l,dl 


bhi.s 


rds err 


add 


dl ,31 


jmp 


hwtctbl(dl) 


bra.s 


di wtc rst 


bra. s 


di rqs 


bra.s 


di wtc ppc 


bra.s 


di wtc sma 


bra.s 


rds err 


bra . s 


rds err 



register within range? 

branch if not 

two bytes per table entry 

jump to the appropriate routine 



control - do a reset 

control 1 - set SRQ response 

control 2 - ppoll configure 

control 3 - set my addr 

control 4 - not used 

control 5 - enable interrupts 



* software reset 
* 
000002BA 102A 0033 di_wtc rst move.b ma(a2),d0 



000002BE 1F29 0017 hpl wtcl 

000002C2 6100 FE64 

000002C6 081F 0004 

000002CA 6702 

000002CC 4E71 

000002CE 4E75 hpl wtc2 



move.b 

bsr 
btst 
beq . s 
nop 
rts 



else use previous address 

save controller active state, 
do software reset 
were we active controller? 
if not, skip 



st atus(al ) ,-(sp) 

di_init s 

#4 (sp)* 

hpl wtc2 .i i ..^ t , ajwp 



else done 



* request service 



000002D0 08AA 0006 di rqs 

0039 
000002D6 1200 
000002D8 0881 0006 
000002DC 6706 



000002DE 08EA 0006 

0039 
000002E4 1280 
000002E6 322A 003A 
000002EA 4E4B 



000002EC 007C 2700 
000OO2FO 082A 0006 

0039 
000002F6 6702 
000002F8 E0S9 



di_rqs2 

hpl_wtc4 
» scs 



bclr 

move .b 
bclr 
beq . s 
move .b 
bset 

move .b 

move 

trap 

move 

ori 

btst 

beq. s 
ror 



#6,flags(a2) 

dO,dl 

#6,dl 

di_rqs2 

dl ,di_spoll(al) 

#6,flags(a2) 

dO, (al) <«di spoll(al ) 

Spollmsk(a2) ,3l 
11 
sr ,- (sp) 
#12700, sr 
#6,flags(a2) 

hpl wtc5 
#8 ,31 



assume rsv = in this new byte 

if rsv bit in the new byte is indee 
zero, then just output the new byte 

else first write the byte with rsv 
clear, remember that rsv is set. 

write the byte with rsv cor 
go update the parallel poll respons 
get into supervisor mode scs 
disable isr's while we figure 
out which mask to set based on 
current rsv bit. 

if rsv = 0, use right byte 
else use left byte 
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907 000002FA 1281 hpl_wtcS move.b dl,(al) <«di_ppoll (al ) 

908 000002FC 46DF move (sp)*,sr restore user mode scs 

909 000002FE 4E7S rts scs 

910 * scs rte re-enable isr's and return 
911 
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914 * 

915 * di_p_poll 

916 « 

917 * conduct parallel poll 

918 * 

919 * if not active controller give error 

920 * else value returned in dO.b 

921 * 

922 * hpl routine 

923 * 

924 a******************************************************************************* 

925 

926 00000300 0829 0004 di_p_poll btst #4 , st at us (al ) active controller? 

0017 

927 00000306 6700 FEC6 beq di_notactl branch if not 
928 

929 0000030A 6100 FEF4 bsr di_wait_fi wait for fifo idle 
930 

931 0000030E 4229 0003 clr.b ca rdcont rol ( al ) disable card interrupts 

932 00000312 08E9 0005 bset #S , intmask (al ) unmask the poll response bit for ABI's sake 

0013 

933 00000318 4229 0017 clr.b status(al) high-order bits 

934 0000031C 50E9 001D st ppolmask(al) look at all response bits 

935 00000320 4229 001F clr.b ppolsense ( al ) normal sense for all 

936 00000324 1029 0015 move.b fifo(al),dO get the response 

937 00000328 08A9 0005 bclr *5 , intmask (al ) re-mask the poll response bit 

0013 

938 0000032E 137C 0080 move.b #$80 ,ca rdcont rol (al ) re-enable card interrupts 

0003 
939 

940 00000334 4E7S rts 

941 
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943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 

973 
974 

975 
976 
977 
978 
979 
980 
981 

982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 



a******************************************************************************* 
* 

* di_set 
* 

* set an hpib line true 

» PASCAL routine 

* 



00000336 B27C 0007 di set 
0000033A 6200 FE8E 
0000033E D241 
00000340 323B 1006 
00000344 4EFB 1002 



set_table 



00000348 0010 
0000034R 0022 
0000034C FE82 
0000034E 0048 
00000350 FE82 
00000352 FE82 
00000354 FE82 
00000356 FE82 



00000358 0829 0003 di REN 

0017 
0000035E 6700 FE72 
00000362 08E9 0005 

0019 
00000368 4E7S 



cmp #7,dl 

bhi di_sc_e rr 

add dl,dl 

move set_table (dl ) ,dl 

jmp set_t able (dl ) 

dc di_REN-set_table 

dc di_IFC-set_table 

dc di — sc err-set table 

dc di_EOT-set_taB"le 

dc di_sc_err-set_table 

dc di_5c~e rr -set_t able 

dc di_sc_err-set_table 

dc di sc err-set table 



btst #3,status(al) 

beq di_notsctl 
bset #5,cont rol(ai ) 



0000036A 0829 0003 di I FC 

0017 
00000370 6700 FE60 

00000374 41E9 0019 
00000378 0890 0005 
0000037C 08D0 0004 
00000380 7050 
00000382 51C8 FFFE 
00000386 0890 0004 
0000038P! 08D0 0005 

0000038E 4E75 



» assert IFC for lOOus 

btst #3, stat js(al) 

beq di_notsctl 



lea 

bclr 

bset 

moveq 

dbra 

bclr 

bset 

rts 



cont rol (al ) ,a0 

#5,(a0) 

#4 aO 

#80, dO 

d0,« 

#4,(a0) 

#5,(a0) 



register within range? 

branch if not 

two bytes per table entry 

routine offset 

jump to the appropriate routine 

REN - set REN 

IFC - pulse IFC (set REN/clr ATN) 

SRQ - error 

EOI - pulse EOI on next byte out 

NRFO - error 

NDP.C - error 

DAV - error 

ATN - error 



system controller? 

branch if not 
set REN 



system controller? 

branch if not 

point to the control register 

clear REN 

assert IFC 

must hold IFC at least lOOus.. 

to satisfy the bus standard 

release IFC 

set REN 



* assert EOI on the next wtb 
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E0I_out (a2) 



997 « 

998 00000390 SOEfl 0036 di EOI 

999 00000394 4E75 
1000 



5t 
rts 



set the flag 
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PAGE 

1002 

1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 

1032 
1033 

1034 

1035 
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* 

* di_clr 

* 

» set an hpib line false 

* 

* PASCAL routine 

* 
******************************************************************************** 



00000396 B27C 0007 di clr 
0000039A 6200 FE2E 
0000039E D241 
000003AO 323B 1006 
000003A4 4EFB 1002 



000003A8 
000003AA 
000003AC 
000003AE 
000003BO 
000003B2 
000003B4 
000003B6 



0010 
0020 
FE22 
0020 
FE22 
FE22 
FE22 
FE22 



clear_table 



* clear REN 

* 
000003B8 0829 0003 di local 

0017 
000003BE 6700 FE12 
0O0OO3C2 08A9 OOOS 

0019 
000003C8 4E75 di dmyrts 



cmp #7,dl 

bhi di sc err 

add dl.dl 

move clear_table(dl ) ,dl 

jmp clear_table(dl ) 

dc di_local-clear_table 

dc di_dmyrt s-clear_t able 

dc di_sc_err-clear_t able 

dc di_dmyrts-clear_table 

dc di_sc_err-clear_table 

dc di_sc_err-clear_table 

dc di_sc_err-clear_table 

dc di_sc_er r-clear_t able 



btst #3,status(al) 



beq 
bclr 



di_notsct 1 
#5, cont rol {al ) 



register within range? 

branch if not 

two bytes per table entry 

routine offset 

jump to the appropriate routine 



REN 


- clear REN 


IFC 


- nothing 


SRQ 


- error 


EOI 


- nothing 


NRFD 


- error 


NDPC 


- error 


DAV 


- error 


ATN 


- error 



system controller? 

branch if not 
clear REN 
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* 

* di_test 
* 

* get an hpib line's state 

* 

* entry : dl 



1037 
1038 

1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
10S1 
1052 
1053 
1054 
1055 
1056 
1057 
1058 



line parameter 

= REN 

* 1 - IFC 

* 2 = SRQ 

* 3 = EOI 

* 4 = NRFO 

* 5 ■= NDAC 

* 6 = DAV 

* 7 = ATN 
* 

* PASCAL routine 

000003CA 6000 FDFE di test bra di_sc_err 
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1060 
1061 
1062 
1063 
1064 
106S 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 

1076 
1077 

1078 
1079 
1080 
1081 

1082 
1083 

1084 
1085 
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******************************************************************************** 
* 

* di_r6out 
* 

* emulation of r6 out for hp-ib 
* 

* entry: dO - byte to output 
* 

* exit: if not active controller, sts cleared and error bit set 

* else operation is done and any addressing decoded. 
» 

* hpl routine ( modified ) 

******************************************************************************** 



000003CE 4EB9 0000 di r6out 
0000 

000003D4 0829 0004 

0017 
000003DA 6700 FDF2 

000003DE 6100 FE20 
000003E2 137C 0040 

0017 
000003E8 1340 0015 

000003EC 4E75 



3sr 

btst 

beq 

bsr 
move .b 

move.b 

rts 



wait_tf r 

#4,status(al) 

di_not act 1 

di wait_fi 
#S4~0,status(al) 

dO,fifo(al) 



if a tfr is active wait till it isn't 

active controller? 

branch if not 

wait for fifo idle 
following byte is a command 



PAGE 

1088 

1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 

1103 
1104 

1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 

1113 
1114 

1115 

1116 
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******************************************************************************** 
* 

* di_isr 

* 

* interrupt service routine for hp-ib cards 
* 

* entry : al,a2 are set up 

* 

* the isr will track down the buffer control block 

* 

» hpl routine ( modified ) 

* 
******************************************************************************** 



000003EE 08AA 0001 di isr bclr 

0039 
000003F4 6100 0100 bsr 

000003F8 4EB9 0000 jsr 

0000 
000003FE 6716 beq.s 

00000400 B23C 0003 cmp.b 

00000404 6700 00E2 beq 

00000408 B23C 0001 cmp.b 

0000040C 6700 00C4 beq 

00000410 B23C 0002 cmp.b 

00000414 6710 beq.s 

00000416 08AA 0001 isr end bclr 

0039 
0000041C 6706 beq.s 

0000041E 4EB9 0000 jsr 

0000 

00000424 4E75 di isr ex rts 



#l,flags(a2) 

di_isrl 
itxf r 

isr_end 

#tt burst, dl 

di_Trw 

#tt int,dl 

di Fuf 

#t t_DMfl,dl 

di_Tsrdma 

tl,flags(a2) 

di_isr_ex 
logint 



clear user isr pending flag 

process the interrupting condition(s) 
go see if transfer is active 

if not, then we are done. 

if frw is active, go process it 

if int then go process it 

if DMP 

if isr pending then do it 



otherwise return 
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1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 

1132 
1133 
1134 

113S 
1136 
1137 

1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 

1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 

1155 
1156 
1157 

1158 
1159 
1160 

1161 
1162 
1163 
1164 
1165 
1166 



* DMA transfer interrupt: 



00000426 286A 0040 di isrdma 
0000042R 4A2B OOOD 
0000042E 6632 



movea.l DMA_arm addr(a2),a4 
tst.b tdir_ofT(a3) 
bne.s isrdma out 



* input DMA transfer 



00000430 41E8 0020 

00000434 0829 0006 

0017 
0000043A 56EA 0035 

0000043E 082C 0000 

0001 
00000444 670A 

00000446 0829 0001 

0011 
0000044C 6608 
0000044E 60C6 

00000450 4AAA 003C isrdma unarmed 
00000454 6E38 

00000456 6100 021C isrdma in term 
0000045A 08A9 0001 
0013 

00000460 6046 



lea 


tfil_off (a3),a0 


btst 


#6,status(al) 


sne 


E0I_in(a2) 


btst 


#0,1 (a4) 


beq.s 


isrdma_unarmed 


btst 


#l,intreg(al) 


bne . s 
bra 


isrdma in_term 
isr_end" 


tst .1 
bgt .s 


DMA count (a2) 
isrd"ma_rest art 


bsr 
bclr 


input_tfr term 
#1 , intmasE" (al ) 


bra. s 


isrdma term 



* output DMA transfer 

00000462 41EB 001C isrdma_out lea 

00000466 082C 0000 btst 

0001 
0000046C 66A8 bne.s 

0000046E 08E9 0007 bset 

0019 

00000474 4229 0017 clr.b 

00000478 0C6A 0001 cmpi .w 

003C 
0000047E 6D28 blt.s 

00000480 6E0C bgt.s 

00000482 4A2B OOOB tst.b 

00000486 6706 beq.s 

00000488 08A9 0007 bclr 

0019 



temp_off (a3) , aO 

#0,1 (a4) 

isr_end 

#7,control(al) 

status (al ) 

#l,DMA_count (a2) 

isrdma_term 

isrdma restart 
tend_o7f (a3) 
isrdma_restart 
#7, control (al ) 



DMA arm & status register address 
test direction 
branch if output 



point to the buffer fill pointer 

last byte in tagged with EOI? 

remember it 

DMA channel unarmed? 

branch if so 

fifo idle? 

branch of so (terminate tfr) 
otherwise, keep going 

more to transfer? 
branch if so 

clean up the fifo's if possible 
re-mask fifo idle condition 



point to the buffer empty pointer 

DMA channel still armed? 

branch if so; keep going 

re-set 8-bit mode if necessary 

clear the hi-order bits 

[ cmpi.l #S10000,DMA_count(a2) ] 

branch if no more to transfer 

branch if additional bursts remain 

last burst : EOI tag set? 

branch if not, otherwise... 

clear 8-bit mode (tag last byte with EOI) 
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1169 








X 








1170 








* DMA transfer restart 








1171 








X 








1172 


0000048E 


S36A 


003C 


isrdma_restart subq.w 


#1,DMA count (a2) 


[ sub.l #$10000, DMA_count(a2) ] 
previous burst length 




1173 


00000492 


202B 


0010 


move.l 


tent oTf(a3),dO 




1174 


00000496 


D190 




add.l 


dO.(aO) 

#$10000, tcnt_off(a3) 


update the appropriate buffer pointer 
next burst length 




1175 


00000498 


277C 


0001 


move. 1 








0000 


ooio 










1176 


000004AO 


38AA 


0044 


move 


DMA_arm_word(a2) , (a4) re-arm the DMA channel 




1177 


000004H4 


6000 


FF70 


bra 


isr_end 


done! 




1178 
















1179 
















1180 








* 








1181 








* DMA transfer termination 






1182 








* 








1183 


000004A8 


137C 
0003 


0080 


isrdma_term move.b 


#$80,cardcont rol(ai; 


disable card DMA 




1184 


000004 PIE 


2F08 




move.l 


aO,-(sp) 


save aO 




1185 


000004B0 


4EB9 

0000 


0000 


jsr 


dropdma 


free the DMA channel 




1186 


000004B6 


205F 




movea . 1 


(sp)+,aO 


restore aO 




1187 


000004B8 


262B 


0010 


move .1 


tent off(a3),d3 


intended number of bytes transfered 




1188 


000004BC 


9684 




sub.l 


d4,d3" 


actual number of bytes transferred 




1189 


000004BE 


D790 




add.l 


d3,(a0) 

DMA count (a2) ,d4 

d4,tcnt off(a3) 


update the appropriate buffer pointer 




1190 


000004CO 


D8AA 


003C 


add.l 


total remaining count 




1191 


000004C4 


2744 


0010 


move .1 


record it 




1192 


000004C8 


4EB9 
0000 


0000 


jsr 


stclr 


mark the tfr done and log branch 




1193 


000004CE 


6000 


FF46 


bra 


isr_end 


done! 




1194 
















1195 
















1196 
















1197 
















1198 








* 








1199 








* interrupt transfer processing: 






1200 








* 








1201 


000004D2 


4A2B 


0000 


di buf tst .b 


tdir off(a3) 


which direction transfer? 




1202 


000004D6 


6602 




bne.s 


di_bufo 


branch if output 




1203 
















1204 
















1205 








* 








1206 








* buffered input: 








1207 








x 








1208 


000004D8 


4E71 




di_bufi nop 








1209 
















1210 








* 








1211 








x buffered output : 








1212 








X 








1213 
1214 
1215 




0000 


04DR 


di_bufo equ * 














X 








1216 








x int and frw transfer 


termination 






1217 








X 








1218 




0000 


04DA 


di_ti_term equ * 








1219 
















1220 


000004DA 


103C 


0000 


di to term move.b 


#0,d0 


disable other interrupts 




1221 








» bsr 


di_eir 
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1222 


000004DE 


4EB9 

0000 


0000 


jsr 


stclr 


mark the buffer finished 




1223 


000004E4 


6000 


FF30 


bra 


isr_end 


end of isr 




1224 
















1225 
















1226 








X 








1227 








x fast r/w transfer processing: 






1228 








X 








1229 


000004E8 


007C 


2700 


di frw ori 


#$2700, sr 


disable all other ints 




1230 








X 


the 


PASCAL system will re-enable&rte 




1231 


■ 000004EC 


4A2B 


OOOD 


tst .b 


tdir_off(a3) 


which direction transfer? 




1232 


000004FO 


6602 




bne . a 


di_f rwo 


skip if output 




1233 
















1234 








X 








1235 








x fast r/w input: 








1236 








X 








1237 


000004F2 


4E71 




di_fri nop 








1238 
















1239 








X 








1240 








x fast r/w output : 








1241 








X 








1242 




0000 


04 F4 


di frwo equ * 








1243 


000004F4 


60E4 




bra 


di_to_term 


else we are done! 
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xxxxxx**x**xxxx**xx*x*xxx*xx**x*x*x*x**x*x*xxx*xx*xxxxx*xx**x**xxxxxxxx*x**xxxxx 
* 

* isrl 
* 

* the following routine does all the grunt work for the isr. it is 

* separated out so it can be called from background. 
* 
*xxx*x*x***x*xx*xxx***x*x*x*xxxxx*xxxxxx********x*x*x*xxxx*x***xx*xxxxxx*x*xxxx* 



000004F6 41E9 0011 di_isrl 
000004FA 49E9 0013 

x 

* DCL 
* 

000004FE 0810 0000 
00000502 6708 
00000504 6100 0032 
00000508 0894 0000 

0000 050C di_no_DCL 
* 

* SRQ 
* 

00000S0C 0810 0004 
00000510 6708 
00000512 6100 0024 
000O0S16 0894 0004 

0000 051A di__no_SRQ 
x 

* POL 
x 

0000051A 0810 0005 
0000051E 6708 
00000520 6100 0016 
00000524 0894 0005 

0000 0528 di_no_POL 
x 

* SCG 
x 

00000528 0810 0007 
OOOC0S2C 6708 
0000052E 6100 0008 
00000532 0894 0007 

0000 0536 di_no_SCG 
00000536 4E7S 



* di_log 

x 
00000538 08EA 0001 di log 

0039 
0000053E 4E7S 



lea 
lea 



btst 
beq.s 
bsr 
bclr 
equ * 



btst 
beq. s 
bsr 
bclr 
equ * 



btst 
beq. s 
bsr 
bclr 
equ * 



btst 
beq. s 
bsr 
bclr 
equ * 
rts 



mark that 
bset 
rts 



int reg(al ) . aO 
intmask (al ) , a4 



#0, (aO) 
di_no_DCL 
di_log 
#0, (a4) 



#4, (aO) 
di_no_SRO. 
di_log 
#4, (a4) 



#5, (aO) 
di_no_P0L 
di_log 
#5, (a4) 



#7, (aO) 
di_no_SCG 



di log 
#7, (a4) 



point to the interrupt condition register 
point to the interrupt mask register 



DCL interrupt? 
branch if not 
else do normal logging 
mask off the interrupt 



SRQ interrupt? 
branch if not 
else do normal logging 
mask off the interrupt 



POL interrupt? 
branch if not 
else do normal logging 
mask off the interrupt 



SCG interrupt? 
branch if not 
else do normal logging 
mask off the interrupt 



an isr condition is pending 



#l,flags(a2) 



set condition 
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xxxxxxxxxx*xxxx*x*xxxxxxxx*x*xxx*xxxxxxxxx*x*x*x***xxxx*xxxxxxxxx**x*xxxxxxxxxxx 

X 

* di_tfr 
* 

* driver call for execution of tfr statement 
x 

* entry: conditions other than normal al,a2 are: 

* a3 . 1 = pointer to transfer information 
x 
xxxxxxxx*xx*xx*x*xxxx*xxxxxxxxxx*xx*x*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



00000540 4EB9 0000 di tfr 
0000 

00000546 4A2B 000A 

0000054A 6600 FC92 

0000054E 202B 0010 

00000552 7200 

00000554 122B 0009 

00000558 D241 

0000055A 4EB9 0000 

0000 

00000560 6704 

00000562 D27C 0014 

00000566 323B 1006 di_nodma 

0000056A 4EFB 1002 



jsr 



tst ,b 
bne 



moveq 
move . b 
add 

jsr 

beq.s 

add 

move 

jmp 



0000056E 
00000570 
00000572 
00000574 
00000576 

00000578 
0000057A 
0000057C 
O00O057E 
00000580 

00000582 
00000584 
00000586 
00000588 
0000058A 

0000058C 
0000058E 
00000590 
00000592 
00000594 



FC68 
FC6C 
00D2 
0CD2 
FC68 

OOBE 
FC6C 
00C8 
00C8 
OOBE 

FC68 
0028 
00D2 
0028 
FC68 

OOBE 
0028 
00C8 
0028 
0028 



* transfer jump table 



dc 
dc 
dc 
dc 
dc 

dc 
dc 
dc 
dc 
dc 

dc 
dc 
dc 
dc 
dc 

dc 
dc 
dc 
dc 
dc 



check tfr 



tj3w_off (a3) 
dT noword 



move.l tcnt_off (a3) ,d0 



#0,dl 

tusr off (a3),dl 

dl.dT 

testdma 



di nodma 

#20", dl 

tfr table(dl),dl 

tfr table dl) 



hterr_b-tf r_table 
hterr d-tfr_table 
di_t_Ths-tf r_table 
di_t_fhs-tf r_table 
hter r_b-tf r_table 

di_t_int-tf r_table 
hterr d-tfr_table 
di_t_Est-tf r_table 
di_t_bst-tfr_table 
di_t_int-tfr_table 

hterr b-tfr_table 
di_t_D>1A-tf r_table 
di_t_fhs-tf r_table 
di_t_DriA-tf r_table 
hterr_b-tf r_table 

di_t_int-tf r_table 
di_t_DMA-tf r_table 
di_t_bst-tf r_table 
di_t DMA-tf r_table 
di t~DMA-tfr table 



wait for tfr to finish (timed) 
don't allow word transfers 
get count 



user specified transfer type 
two bytes per table entry 
DMA available? 



branch if not; use the first half of table 
otherwise use the second half of table 
routine offset 
jump to the appropriate routine 



se rial 


inte rrupt 


se rial 


DMA 


serial 


fhs 


serial 


fastest 


se rial 


overlap 


overlap 


interrupt 


ove rlap 


DMR 


ove rlap 


fhs 


overlap 


fastest 


overlap 


overlap 


serial 


interrupt 


serial 


onp 


se rial 


fhs 


serial 


fastest 


serial 


overlap 


overlap 


inte rrupt 


overlap 


DMA 


ove rlap 


fhs 


overlap 


fastest 


overlap 


overlap 



DMA uninstalled or unavailable 



DMA available 
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1353 * 

1354 * transfer DMA 

1355 * 

1356 00000596 177C 0002 di_t DMA 



1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 

1368 
1369 
1370 
1371 
1372 
1373 
1374 
137S 
1376 
1377 

1378 

1379 
1380 
1381 
1382 
1383 
1384 
1385 

1386 

1387 
1388 
1389 

1390 
1391 
1392 
1393 
1394 
1395 

1396 

1397 
1398 
1399 
1400 
1401 



00000596 177C 0002 di t 
0007 

0000059C 2200 
0000059E 5381 
000005AO 7000 
000005A2 3001 
000005A4 9280 
000005A6 2541 003C 
OOOOOSAA S280 



000005AC 4229 0003 
000005B0 4EB9 0000 

0000 
00000SB6 0882 0000 
000005BA 4A2B 0030 
000005BE 6704 
000005C0 08C2 0003 
000005C4 3882 
000005C6 254C 0040 
000005CA 3542 0044 



move.b #tt_DMA,tact_off (a3) set tfr type to DMA 



di_arm DMA 



000005CE 49F8 0000 
000005D2 4EB9 0000 
0000 

000005D8 4A2B OOOD 
000005DC 8614 



move . 1 

subq. 1 

moveq 

move.w 

sub.l 

move. 1 

addq.l 

clr.b 
jsr 

bclr 
tst .b 
beq . s 
bset 
move 
move. 1 
move 

lea 
jsr 



tst .b 
bne .s 



000005DE 08E9 0001 di tid 

0013 
000005E4 08A9 0001 

0019 
000005EA 0081 
000005EC 6100 005C 
000005FO 6024 



» transfer input OMA: 
bset 
bclr 



add.l 

bsr 

bra.s 



000005F2 08E9 0001 di tod 

0019 
00000SF8 08E9 0007 

0019 

000005FE 4229 0017 
00000602 4A81 
00000604 660C 
00000606 4A2B OOOB 
0000060A 6706 



* transfer output DMA: 
bset 
bset 



clr.b 
tst. J 
bne .5 
tst .b 
beq .5 



dO.dl 

#l,dl 

#0,dO 

dl,d0 

dO,dl 

dl.DMA count (a2) 

#l,dO 

cardcontrol (al) 
getdma 

#0.d2 

t DMApri(a3) 

dT arm DMA 

#37d2 ~ 

d2,(a4) 

a4 , DMA_arm_add r ( a2 ) 

d2 , DMA_a rm_wo rd ( a2 j 

0,a4 
DMA_stbsy 



tdir_off (a3) 
di tod 



#1 ,intmask(al ) 

#1 ,cont rol(al ) 

dl.dO 

input tfr en 

di DMA" en~ 



#1 ,cont rol(al ) 

#7,control(al) 

status(al ) 
dl 

di_tod 1 
tend_o7f(a3) 
di tod 1 



total count 

total count minus 1 

first burst count minus 1 

remaining count (multiple of $10000) 

remember it 

burst count [1 . . 65536] 

disable card interrupts 
get a DMA channel 

always clear the DMA interrupt enable bit 

DHA priority requested? 

branch if not 

otherwise set the DMA priority bit 

arm the channel 

remember the DMA channel arm address 

remember the OMA channel arm word 

no DMA termination routine (no DMA interrupt enabled) 
set DMA channel, buffer busy 



test the transfer direction 
branch if output 



interrupt on DMA completion or fifo idle 

select the inbound fifo for DMA 

recompute the total count again 

enable the transfer 

enable the card & wait if serial 



select the outbound fifo for DMA 

assume no EOI tag (8-bit mode) 

clear the high-order bits 

remaining count 0? 

branch if not 

EOI tag set? 

branch if not, otherwise... 
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bclr #7,control(al) 



0000060C 08A9 0007 

0019 

00000612 08C3 0003 di tod 1 
00000616 1343 0003 dilDMA_en 

0000061A 0C2B OOOS di DMA w 

0009 
00000620 6C08 



0005 
00000628 66F8 



bset #3,d3 

move.b d3,cardcont rol (al ) 



0000062A 4E7S 



di_DMA_w 


cmpi.b 


#S,tusr_off (a3) 




bge .s 


di_DMA_w2 


di_DMA_wl 


cmpi .b 


#255,t_sc_off (a3) 




bne .5 


di_DMA_wl 


di_DMA_w2 


rts 





clear 8-bit mode (tag last byte with EOI) 

set the card's output DMA enable bit 
enable card interrupts & DMA 

overlap transfer? 

branch if so 

if not then wait till done 



1-213 



PAGE 39 [2.0] 11/4/82 16:21:33 IOLIB EXTOI - DISC INTERFACE TRANSFER 

1415 « 

1416 * transfer interrupt 

1417 * 

1418 0000062C 177C 0001 di_t_int move.b #t t_int , tact_off (a3) set tfr type to interrupt 

0007 

1419 00000632 6000 FBA2 bra hterr_b 
1420 

1421 

1422 * 

1423 * transfer burst (intr on 1st byte fhs on rest) 

1424 * 

1425 00000636 177C 0003 di t_bst move.b #t t_burst , tact_off (a3) set tfr type to burst 

0007 

1426 0000063C 6000 FB98 bra hterr_b 
1427 

1428 

1429 * 

1430 * transfer fast handshake 

1432 00000640 177C 0004 di_t_fhs move.b #t t_fhs, tact_of f (a3) set tfr type to fhs 

0007 

1433 00000646 6000 FB8E bra hterr_b 
1434 



PAGE 40 [2.0] 11/4/82 16:21:33 IOLIB EXTDI - DISC INTERFACE TRANSFER 

1436 * 

1437 * input transfer enable 

1438 * , , _ 

1439 0000064A 0829 0004 input_tfr_en btst #4, status(al ) active controller? 

0017 . . - 

1440 00000650 6714 beq.s te_rts branch if not 

1442 000O06S2 BOBC 0000 cmp.l #256, dO count low enough for counted transfer? 

0100 . , .„ 

1443 00000658 6F0E ble.s te_ect branch if so 
1444 

1445 000006SA 137C OOCO move.b #$C0,stat us (al) 

1446 00000660 137C 0000 move.b #$00 , f ifo ( al ) uncounted transfer enable 

0015 

1447 00000666 4E7S te_rts rts 

1449 00000668 137C 0080 te_ect move.b #$80 , status(al) inhibit LF detection 

1450 0000066E 1340 0015 move.b dO.fifo(al) counted transfer enable 

1451 00000672 4E7S rts 
1452 

1453 

1454 « 

1455 * input transfer term 

1457 00000674 0829 0004 input_t f r_te rm btst #4 , st a t us (al ) active controller? 

0017 "" . , 

1458 0000067A 6744 beq.s tt_rts branch if not 
1459 

1460 0000067C 0829 0001 btst #1 , int reg ( al ) fifo idle? 

1461 00000682 6622 bne.s t t_empty_f ifo branch if so 

1462 * 

14$3 * (input) transfer enable byte still active - must init outbound fifo 

1464 

1465 



00000684 0829 0003 btst #3 , status ( al ) system controller? 

0017 



1466 0000068A 6714 beq.s tt_non_sys branch if not 

1468 0000068C 0029 0011 ori.b #$1 1 , cont rol (al ) assert IFC & init outbound fifo 

1469 00000692 7050 moveq #80, dO must hold IFC at least lOOus... 

1470 00000694 S1C8 FFFE dbra dO,* to satisfy the bus standard 

1471 00000698 08A9 0004 bclr #4 ,cont rol (al ) release IFC 

1472 0000069E 6006 bra. s t t_empt y_f ifo go empty the inbound fifo 

1474 000006AO 08E9 0000 tt_non_sys bset #0 , cont rol (al ) init outbound fifo; TCfl like this is hazardous!!! 

0019 

1475 * 

1476 * empty inbound fifo 
1477 
1478 



000006A6 08E9 0002 t t_empt y_f ifo bset #2, intmask (al ) unmask fifo byte condition 
0013 

1479 000006AC 0829 0002 btst #2 , int reg ( al ) fifo byte? 

0011 
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1480 
1481 
1482 
1483 
1484 



O00006C0 4E7S 



1485 

1486 

1487 

1488 

1489 
PASS 1 ERRORS: 
PASS 2 ERRORS: 



000006B2 6706 
000006B4 4A29 0015 
000006B8 60EC 

000006BA 08A9 0002 tt fifo empty 
0013 



beq.s 

tst .b 
bra 



tt fifo empty 

flTo(alT 

tt_empty_fifo 



bclr #2,intmask(al) 



branch if not 

otherwise, discard it and... 

go check for more 

re-mask fifo byte condition 
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*** 68000 ASSEMBLER SYMBOL TABLE DUMP *** 
EXTERNAL SYMBOLS 



- DISC INTERFACE TRANSFER 



SYMBOL 


TYPE 


DEF 


VALUE 




ABORT 10 


ABS 


130 


00000015 




CHECK TFR 


ABS 


132 


0000001B 




DMA STBSY 


ABS 


128 


00000010 




DROPDMA 


ABS 


121 


00000002 




GETDMA 


ABS 


122 


00000004 




IODECLARATIONS ABS 


275 


0000001E 




ITXFR 


ABS 


129 


00000013 




LOGEOT 


ABS 


125 


OOOOOOOA 




LOGINT 


ABS 


124 


00000008 




STBSY 


ABS 


126 


oooooooc 




STCLR 


ABS 


127 


OOOOOOOE 




SYSGLOBALS 


ABS 


276 


00000022 




TESTDMA 


ABS 


123 


00000006 




UAIT_TFR 


ABS 


131 


00000018 






INTERNAL SYMBOLS 






SYMBOL 


TYPE 


DEF 


EQU SYM 


VALUE 


AO 


AREG 







00000000 


Al 


AREG 







00000001 


A2 


AREG 







00000002 


A3 


AREG 







00000003 


A4 


AREG 







00000004 


AS 


AREG 







00000005 


A6 


AREG 







00000006 


A7 


AREG 







00000007 


ABI 


ABS 


321 




00000034 


ADDRESS 


ABS 


549 




0000001B 


AVAIL OFF 


ABS 


215 




00000034 


BADTMO" 


ABS 


293 




OOOOOOOB 


BAD RDS 


ABS 


301 




00000013 


BAD SCT 


ABS 


302 




00000014 


BUFT OFF 


ABS 


206 




00000024 


BUFO~OFF 


ABS 


207 




00000028 


BUF BUSY 


ABS 


291 




00000009 


CARUCONTROL 


ABS 


541 




00000003 


CARDID 


ABS 


538 




00000001 


CARDLATCH 


ABS 


542 




00000007 


CARDRESET 


ABS 


S39 




00000001 


CARDSTATUS 


ABS 


540 




00000003 


CCR 


STREG 







00000005 


CLEAR TABLE 


REL 


1018 




000003A8 


CONTROL 


ABS 


548 




00000019 


CRD DUN 


ABS 


303 




00000015 


C AD"R 


ABS 


205 




00000020 


DO" 


DREG 







00000000 


Dl 


DREG 







00000001 


D2 


DREG 







00000002 


D3 


DREG 







00000003 


D4 


DREG 







00000004 


D5 


DREG 







00000005 
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00000006 
00000007 
00000014 
000005C4 
00000402 
000004D8 
0000040A 
00000396 
00000616 
0000061A 
00000622 
0000O62A 
000003C8 
00000390 
000004F2 
000004E8 
000004F4 
0000036A 
0000011E 
00000128 
000003EE 
000004F6 
00000426 
00000424 
000003B6 
00000538 
000001E2 
00000S66 
000001CE 
000001D2 
000001DE 
0000050C 
00000528 
00000536 
0000051A 
00000300 
000003CE 
0000017A 
00000194 
0000024A 
00000358 
000002DO 
000002E4 
000001C6 
000001CA 
00000336 
000003CA 
00000540 
0000050E 
000004DA 
000001E6 
000001EA 
000005F2 
00000612 
000004DA 
00000636 
00000596 



06 


DREG 





D7 


DREG 





DCL 


ABS 


566 


DI ARM DMA 


REL 


1372 


DI BUF 


REL 


1201 


DI BUFI 


REL 


1208 


DI BUFO 


REL 


1213 


DI CLR 


REL 


1012 


DI DMA EN 


REL 


1404 


DI DMA U 


REL 


1406 


DI DMA Ull 


REL 


1409 


DI DMA U2 


REL 


1412 


DI DMYRTS 


REL 


1034 


DI EOI 


REL 


998 


01 FRI 


REL 


1237 


DI FRU 


REL 


1229 


OI~FRUO 


REL 


1242 


DI~IFC 


REL 


981 


DI INIT 


REL 


584 


DI~INIT S 


REL 


602 


OI~ISR 


REL 


1102 


DI ISR1 


REL 


1254 


DI ISRDMA 


REL 


1121 


DI ISR EX 


REL 


111S 


DI _ LOCA"L 


REL 


1031 


DI LOG 


REL 


1293 


DI~LSTERR 


REL 


70S 


DI NOD MA 


REL 


1322 


DI~NOTACTL 


REL 


690 


DI~NOTSCTL 


REL 


693 


DI NOUORD 


REL 


702 


DI NO DCL 


REL 


1263 


01 NO POL 


REL 


1279 


DI NO SCG 


REL 


1287 


DI NO SRQ 


REL 


1271 


01 P POLL 


REL 


926 


DI R6~0UT 


REL 


1075 


DI RDB 


REL 


638 


DI RDB1 


REL 


64S 


DI ROS 


REL 


783 


DI~REN 


REL 


972 


DI RQS 


REL 


893 


DI RQS2 


REL 


899 


DI SCBSY 


REL 


684 


DI SC ERR 


REL 


687 


DI SET 


REL 


953 


DI"TEST 


REL 


1057 


DI~TFR 


REL 


1309 


DI _ TID 


REL 


1385 


DI TI TERM 


REL 


1218 


DI~TLK"ERR 


REL 


708 


DI TMO 


REL 


711 


DI TOD 


REL 


1395 


OI~TOD 1 


REL 


1403 


DI~T0 TERM 


REL 


1220 


OI~T B"ST 


REL 


1425 


DI~T~DMA 


REL 


1356 
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00000640 
0000062C 
00000204 
00000200 
00000206 
0000023E 
0000023A 
00000214 
00000226 
000001A8 
000002AA 
000002BA 
00000040 
00000044 
0000003C 
0000002C 
00000016 
00000035 
00000036 
FFFFFFFE 
000001EC 
0OO0O0E2 
00000108 
00000002 
00000010 
OOOOOOBE 
0000001E 
00000076 
00000042 
OOOOOOAE 
000000D2 
000000F2 
0000009E 
00000032 
0000008C 
OOOOOOSC 
00000000 
00000015 
00000039 
00000008 
00000001 
0000028E 
000002CE 
000002EA 
000002FA 
000001D6 
OOOOOIDA 
0OO0O2B6 
0000001C 
00000014 
00000018 
0000064A 
00000674 
00000013 
00000011 
FFFFFFE6 
FFFFFFBE 



DI T FHS 


REL 


1432 


DI T INT 


REL 


1418 


DI WffIT FB 


REL 


731 


DI UAIT~FI 


REL 


728 


DI UIFC 


REL 


736 


DI UFC DONE 


REL 


769 


DI UFC INFINITE 


REL 


764 


OI~UFC QUICK 


REL 


743 


DI~UFC TIMED 


REL 


753 


DI UTB 


REL 


666 


DI UTC 


REL 


863 


DI UTC RST 


REL 


880 


DMA" flRR ADDR 


ABS 


341 


DMA~ARM~UORD 


PBS 


342 


DMA COURT 


ABS 


340 


EIRE" OFF 


PBS 


208 


EOD S"EEN 


ABS 


304 


EOI IN 


PBS 


322 


EOI OUT 


PBS 


323 


ESC~CODE 


ABS 


312 SYSGLOBALS 


ESC ERR 


REL 


715 


EXTD"I EDI CLR 


REL 


496 


EXTDI _ EDI END 


REL 


S20 


EXTDI EDI INIT 


REL 


360 


EXTDI EDI ISR 


REL 


369 


EXTDI EDI PPOLL 


REL 


474 


EXTDI EDI RDB 


REL 


378 


EXTDI EDI RDS 


REL 


429 


EXTDI EDI RDU 


REL 


401 


EXTDI~EDI SEND 


REL 


464 


EXTDI EDI SET 


REL 


486 


EXTDI EDI TEST 


REL 


507 


EXTDI EDI TFR 


REL 


4 54 


EXTDI EDI UTB 


REL 


390 


EXTDI EDI UTC 


REL 


442 


EXTDI EDI~UTU 


REL 


415 


EXTDI~EXTUI 


REL 


3SS 


FIFO 


ABS 


546 


FLAGS 


ABS 


325 


GET 


ABS 


563 


GTL 


ABS 


560 


HPL UTC1 


REL 


882 


HPL~UTC2 


REL 


887 


HPL UTC4 


REL 


901 


HPL UTCS 


REL 


907 


HTEER B 


REL 


696 


HIERR D 


REL 


699 


HUTCTSL 


REL 


869 


H ISR PM 


ABS 


204 


H ISR PR 


PBS 


202 


H ISR SL 


ABS 


203 


INPUT TFR EN 


REL 


1439 


INPUT TFR~TERM 


REL 


1457 


INTMRS"K 


ABS 


545 


INTREG 


ABS 


544 


IOE ERROR 


ABS 


307 


IOE RSLT 


PBS 


309 IODECLARATIONS 
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IOE SC 

10 HISC 

IO~SC 

ISR"DMfl_IN TERM 

ISRDMA OUT 

ISRDMA RESTART 

ISRDMA TERM 

ISRDMA UNARMED 

ISR_END" 

ISR ENTRY 

LLO 

MA 

MA U 

NOT HPIB 

NOT LSTN 

NOT TALK 

NO ffCTL 

NO_CARD 

NO_DATA 

NO DMA 

NO DRV 

NO DVC 

NO SCTL 

N0~SPACE 

NO WORD 

PPC 

PPD 

PPE 

PPOLLMSK 

PPOLMASK 

PPOLSENSE 

PPU 

RCVR BLK 

RDS 0" 

RDS 1 

RDS 2 

RDS 3 

RDS 4 

RDS 5 

RDS 6 

RDS 7 

RDS~8 

RDS ERR 

RDS TABLE 

SC SUSY 

SDC" 

SET TABLE 

SP ~ 

SPD 

SPE 

SR 

STATUS 

TACT OFF 

TBSZ OFF 

TBUFJ3FF 

TCHR OFF 

TCNTFRR 



ABS 


310 IODECLBRATIONS + 


FFFFFFBA 


ABS 


305 


00000017 


ABS 


209 


0000002D 


REL 


1144 


00000456 


REL 


1152 


00000462 


REL 


1172 


0000048E 


REL 


1183 


000004A8 


REL 


1141 


00000450 


REL 


1112 


00000416 


ABS 


200 


00000000 


ABS 


S65 


00000011 


ABS 


214 


00000033 


ABS 


213 


00000032 


ABS 


284 


00000002 


ABS 


298 


00000010 


ABS 


297 


OOOOOOOF 


ABS 


285 


00000003 


ABS 


283 


00000001 


ABS 


288 


00000006 


ABS 


295 


OOOOOOOD 


ABS 


294 


oooooooc 


ABS 


286 


00000004 


ABS 


300 


00000012 


ABS 


287 


00000005 


ABS 


296 


OOOOOOOE 


ABS 


562 


00000005 


ABS 


573 


00000070 


ABS 


572 


00000060 


ABS 


337 


0000003A 


BBS 


550 


0000001D 


ABS 


551 


0000001F 


ABS 


567 


00000015 


ABS 


313 SYSGLOBALS + 


FFFFFFF6 


REL 


816 


00000272 


REL 


802 


0000026C 


REL 


803 


0000026C 


REL 


823 


00000276 


REL 


804 


0000026C 


REL 


80S 


0000026C 


REL 


836 


0000028A 


REL 


806 


0000026C 


REL 


807 


0000026C 


REL 


809 


0000026C 


REL 


792 


0000025A 


ABS 


290 


00000008 


ABS 


561 


00000004 


REL 


959 


00000348 


AREG 





00000007 


ABS 


569 


00000019 


ABS 


568 


00000018 


STREG 





00000006 


ABS 


547 


00000017 


ABS 


230 


00000007 


ABS 


253 


00000018 


ABS 


252 


00000014 


ABS 


249 


OOOOOOOE 


ABS 


292 


OOOOOOOA 
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00000010 
00000009 
OOOOOOOD 
0000001C 
OOOOOOOB 
00000668 
00000666 
00000020 
00000007 
0000056E 
0000002E 
00000011 
00000000 
00000003 
00000002 
000006A6 
00000004 
000006BA 
00000001 
OO0O06A0 
000006C0 
00000009 
OOOOOOOA 
00000030 
0000002C 
00000024 
00000005 
00000028 
0000003F 
0000005F 
00000014 
00000007 



TCNT OFF 


ABS 


251 


TCT ~ 


ABS 


564 


TDIR OFF 


ABS 


247 


TEMP OFF 


ABS 


254 


TEND OFF 


ABS 


245 


TE EC"T 


REL 


1449 


TE RTS 


REL 


1447 


TFTL OFF 


ABS 


255 


TFR PRR 


ABS 


289 


TFR TABLE 


REL 


1329 


TIMEOUT 


ABS 


210 


TMO ERR 


ABS 


299 


TTMP OFF 


ABS 


228 


TT BURST 


ABS 


266 


TT DMA 


BBS 


265 


TT EMPTY FIFO 


REL 


1478 


TT FHS ~ 


BBS 


267 


TT FIFO EMPTY 


REL 


1484 


TT INT ~ 


ABS 


264 


TT NON SYS 


REL 


1474 


TT RTS~ 


REL 


1486 


TUS"R OFF 


ABS 


231 


T BW OFF 


BBS 


243 


T DMffPRI 


BBS 


260 


T PM OFF 


ABS 


259 


T PR OFF 


BBS 


256 


T SC OFF 


BBS 


229 


T SL OFF 


ABS 


258 


URL ~ 


ABS 


570 


UNT 


BBS 


571 


USER ISR 


ABS 


201 


USP ~ 


STREG 
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DRVASM 



Purpose 

DRVASM contains common assembly language routines used by the DISCHPIB, AMIGO and 
CS80 modules. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PfiSS 1 
1 
2 
3 

4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
28 
27 
28 
29 
30 
31 
32 
33 
34 
35 
3$ 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
S3 
54 
55 
56 
57 
58 



COMPLETE. ERRORS: 



OOOOOOOO 4E75 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXX 

* driver assembly routines * 

x*xxxxx*xx*x**xx*x*xx*xx*xxxx**xx**xxxxxxxxxxxxxx*xxxxxxxxxxxx*xxxxxx*xxxxxx*x 

X 

x PfiSCfIL interface text 

x 

mname drvasm 

module drvasm; 

import 

sysglobals; 

export 

function test and_toggle(var semaphore: boolean): boolean; 
procedure eorjcorrection_byte: char; bufptr: charptr); 

end; {drvasm) 



src 




src 




src 




src 




src 




src 




src 




src 




src 




src 




X 




x def 


s 



def 
def 
def 



drvasm_drvasm 
drvasm_test_and_toggle 
drvasm eor 



x module intializat ion routine 

x 

drvasm drvasm rts 



* test and toggle 



semaphore manipulation function 



0000 0002 drvasm_test_and_toggle equ * 

00000002 205F movea." ' 

00000004 225F movea. 

00000006 0851 0000 bchg 

O00O00OA 56C0 sne dO' 

0O0O0O0C 4400 neg.b dO 

0O0O0O0E 1E80 move.b dO, (so) 

00000010 4E00 jmp (a6) 



.1 (sp)+,aO 
.1 ispi-i-.al 
#0, (ai) 



pop the return address 

pop the var parameter address 

test and toggle the semaphore 

remember the previous state 

form a legal PASCAL boolean 

set the return variable 

return 



* exclusive or - error correction procedure 



00000012 20SF 
00000014 225F 
00000016 101F 
00000018 Bill 
0000001A 4ED0 



drvasm eor 



movea . 1 
movea. 1 
move .b 
eor .b 
jmp 



spj+,a0 
sp)+, al 
sp)+,d0 

-O.(ai) 

(a6) 



pop the return address 

pop the bufptr 

pop the correction character 

do it to it 

return 
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59 

60 end 

PASS 1 ERRORS: 
PASS 2 ERRORS: 
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EVALGVR 



Purpose 

EVALGVR contains code to quickly evaluate a general value record (GVR) and to assist in 
relocating object code. 



Usage 

EVALGVR is used by the loader. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PAGE 


1 [2.0] 11/4/82 13; 


14:25 ASSEMBLY 


OF EVALGVR.TEXT 






PASS 1 


COMPLETE. 


ERRORS: 










1 


00000000 






rorg 








2 
3 








nosyms 








4 








def 


evalgvr, relocate 




S 
6 

7 








refa 


sysglobals, load 


er 






FFFF 


FFFE 


escapecode 


equ sysglobals- 


2 globals: 




8 

9 

10 




FFFF 


FFE4 


newmods 


equ loader-28 








0000 


0006 


defaddr 


equ 6 


fields of mdb 




11 




0000 


OOOA 


defsize 


equ 10 






12 




0000 


0010 


ext addr 


equ 16 






13 




0000 


0026 


relocdelt a 


equ 38 






14 
IS 
16 




0000 


002A 


globaldelta 


equ 42 








0000 


0001 


op 


equ 1 


fields in gvr 




17 




0000 


0000 


done 


equ 






18 
















19 




0000 


0008 


longoff set 


equ 8 


fields in a gvr: 




20 




0000 


0009 


valueextend 


equ 9 






21 




0000 


OOOA 


patchable 


equ 10 






22 




0000 


OOOB 


datasize 


equ 11 






23 
24 
25 




0000 


OOOE 


primarytype 


equ 14 








0000 


0064 


sbyteerr 


equ 100 


arithmetic errors 




26 




0000 


0065 


sworder r 


equ 101 






27 




oooc 


0066 


sinterr 


equ 102 






28 




0000 


0068 


ubyteerr 


equ 104 






29 
30 

31 




0000 


0069 


uworder r 


equ 105 








0000 


006E 


depther r 


equ 110 






32 
33 
34 
35 
36 




0000 


006F 


formate rr 


equ 111 








0000 


OOOA 


maxdepth 


equ 10 








0000 


0000 


gvalue equ dO 








37 




0000 


0001 


sub equ dl 








38 




0000 


00C2 


gvr equ d2 
field equ d3 








39 




0000 


0003 








40 




0000 


0004 


dtemp equ d4 
depth equ d5 








41 
42 




0000 


0005 








43 




0000 


0000 


gvrptr equ aO 








44 




0000 


0001 


modptr equ al 








45 








*above used by 
aobject equ do 


runlist 






46 




0000 


0006 








47 




0000 


0002 


atemp equ a2 








48 




0000 


0003 


return equ a3 








49 
SO 
51 




0000 


0004 


object equ a4 














*proc relocate 


refbuftop, refin 


dex : address: 




52 








* 


var object: address; 




53 
54 

55 








* 


modptr: moddesc 


ptr); 




00000000 


0050 




jtable dew 


sbyte- jtable 
sword- j table 






56 


00000002 


0068 




dc .w 






57 


00000004 


007E 




dc .w 


sint - j t able 






58 


00000006 


0010 




dc .w 


ferror- jtable 


reserved 
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59 


00000008 


0086 




dew 


ubyte- jtable 
uword-jtable 






60 


OOOOOOOA 


009A 




dc .w 






61 


oooooooc 


0010 




dc .w 


ferror-jt able 
fe r ro r- j t able 


reserved 




62 

63 
64 


0000000E 


0010 




dc .w 


rese rved 




00000010 


3B7C 


006F 


ferror move.w 


#formater r,esca 


pecode(aS) 








FFFE 












65 
66 
67 


00000016 


4E4A 




trap 


#10 






00000018 


26SF 




relocate movea. 


1 (sp)+, return 






68 


0000001A 


225F 




movea. J 


f sp)+,modpt r 






69 


0000001C 


285F 




movea . j 


(sp)+, object 






70 


0000001E 


2C14 




move . 1 


(object ) , aobject 




71 


00000020 


CD8C 




exg 


object , aobject 






72 


00000022 


205F 




movea. ] 


( sp) + , gvrptr 


refindex 




73 


00000024 


245F 




movea, ] 


(sp)+ , atemp 


refbuftop 




74 


00000026 


4201 




clr.b 


sub 






75 


00000028 


7P0A 




moveq 


tunaxdepth, depth 






76 
77 
78 


0000002A 


6000 


0086 


bra 


next ref 






0000002E 


3418 




refloop move .w 


(gv r pt r ) + ,gvr 
field 


get ref record 




79 


00000030 


4283 




clr.l 






80 


00000032 


1602 




move .b 


gvr, field 
tlongoffset ,gvr 


short offset 




81 


00000034 


0802 


0008 


btst 






82 


00000038 


6704 




beq. s 


short 






83 


0000003A 


4843 




swap 


field 


shift left 16 




84 


0000003C 


3618 




move .w 


(gvrpt r ) + , field 
field, ob ject 






85 


0000003E 


D9C3 




short adda.l 






86 


00000040 


3602 




move 


gvr, field 


get data size 




87 


00000042 


ED5B 




rol .w 


#16-datasize+l, 


field 




88 


00000044 


C67C 


OOOE 


and 


#7+7, field 
jtabief field. w] 
jtable (dtemp. w) 


3 bits 




89 


00000048 


383B 


30B6 


move .w 


, dtemp 




90 
91 
92 


0000004C 


4EFB 


40B2 


jmp 






00000050 


1014 




sbyte move.b 


(object) , gvalue 

gvalue 






93 


00000052 


4880 




ext .w 






94 


00000054 


48C0 




ext .1 


gvalue 






95 


00000056 


6164 




bsr . s 


runref 






96 


00000058 


1880 




move .b 


gvalue , (object ) 
#32-8, dtemp 






97 


0000005A 


7818 




moveq 






98 


0000005C 


E9A0 




asl.l 


dtemp, gvalue 
next ref 






99 


0000005E 


68S2 




bvc . s 






100 


00000060 


3B7C 
FFFE 
6068 


0064 


move .w 


#sbyteerr,escapecode(a5) 




101 


00000066 




bra. s 


linker r 






102 
















103 


00000068 


3014 




sword move.w 


(object) .gvalue 
gvalue 






104 


0000006A 


48C0 




ext .1 






105 


0000006C 


614E 




bsr . s 


runref 






106 


0000006E 


3880 




move .w 


gvalue, (object ) 
#32-16, dtemp 






107 


00000070 


7810 




moveq 






108 


00000072 


E9A0 




asl.l 


dtemp, gvalue 
next ref 






109 


00000074 


683C 




bvc.s 






110 


00000076 


3B7C 


0065 


move .w 


#sworderr,escapecode (a5) 








FFFE 












111 


0000007C 


6052 




bra . s 


linkerr 






112 
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113 


0000007E 


2014 




sint 


move . 1 


(object ) .gvalue 




114 


00000080 


613fl 






bsr . 5 


runref 




115 


00000082 


2880 






move . 1 


gvalue, (object ) 




116 


00000084 


602C 






b-a. s 


next ref 




117 
















118 


00000086 


4280 




ubyto 


clr.l 


gvalue 




119 


00000088 


1014 






move -b 


(object ) ,gvalue 




120 


0000008R 


6130 






bsr. s 


runref 




121 


0000008C 


1880 






move . b 


gvalue, (object ) 
#8, gvalue 




122 


0000008E 


E080 






asr . 1 




123 


00000090 


6720 






beq . s 


next ref 




124 


00000092 


3B7C 
FFFE 


0068 




move . w 


#ubyteerr,escapecode (a5) 




125 


00000098 


6036 






bra. 5 


linkerr 




126 
















127 


0000009R 


4280 




uwo rd 


clr.l 


gvalue 




128 


0000009C 


3014 






move .w 


(object ) , gvalue 




129 


0000009E 


611C 






bsr .5 


runref 




130 


OOOOOOBO 


3880 






move .w 


gvalue, (object ) 
#$FFFFO0OO, gvalue 




131 


0000O0R2 


coec 


FFFF 




and. 1 








0000 












132 


0000O0B8 


67C8 






beq. s 


next ref 




133 


OOOOOOflfl 


3B7C 
FFFE 


0069 




move . w 


♦uworderr , escapecode ( aS ) 




134 


OOOOOOBO 


601E 






bra.s 


linkerr 




135 
















136 


OO00O0B2 


BICfi 




next t ef 


cmpa . 1 


atemp,gvrpt r 




137 


OOO0OOB4 


6000 


FF78 




bit 


ref loop 




138 
















139 


0OO0OOB8 


4ED3 






jmp 


(return) 




140 
















141 


OOOOOOBfi 


3418 




runllst 


move . w 


(gvrpt r)+, gvr get gvr record 
#valueextend,gvr 




142 


OOOOOOBC 


0802 


0009 


runref 


btst 




143 


OOOOOOCO 


6718 






beq. s 


Pt 




144 


0OO0O0C2 


4fl01 






tst .b 


sub 




14S 


OOO0OOC4 


6ftl0 






bpl . s 


addit 




146 


O000O0C6 


9098 






sub.l 


(gvrpt r)+, gvalue 




147 


OOO0O0C8 


6810 






bvc . s 


Pt 




148 


OOOOOOCR 


3B7C 
FFFE 


0066 


intover 


move .w 


#sinterr,escapecode(a5) 




149 


OOOOOODO 


CD8C 




linkerr 


exg 


object ,aobject 




ISO 


OOO0O0D2 


2886 






move . 1 


aobject , (object) 




151 


00000004 


4E4R 






t rap 


#10 




1S2 


OO00O0D6 


D098 




addii 


add.l 


(gvrpt r ) + , gvalue 




153 


00000008 


69F0 






bvs 


intover 




154 


OOOOOODfl 


ESSfl 




pt 


rol .w 


#16-primaryt ype,gvr type 
#3, gvr 2 bits 




155 


OOOOOODC 


C47C 


0003 




and 




156 


OOOOOOEO 


677C 






beq. s 


endrun done if abs 




157 


OOO0OOE2 


2809 






move . 1 


modpt r, dtemp find module 




158 


OOO0OOE4 


6618 






bne.s 


notnil 




159 


OOO0O0E6 


226D 


FFE4 




movea . 1 


newmcds(aS) ,modptr 




160 


OOOOOOER 


6002 






bra.s 


mst art 




161 


OOOOOOEC 


2251 




mloof> 


movea. 1 


(modpt r ) , modpt r Jink 




162 


OOOOOOEE 


2829 


0006 


mst art 


move . 1 


defaddr (modpt r),dtemp 




163 


000000F2 


B1C4 






cmpa . 1 


dtemp, gvrpt r 




164 


OOO0OOF4 


6FF6 






ble.s 


mloop 




165 


OOO0OOF6 


D8fl9 


000ft 




add.l 


def size (modpt r) , dtemp 
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166 


OOOOOOFfl 


B1C4 






cmpa . 1 


dtemp,gvrpt r 




167 


OOOOOOFC 


6EEE 






bgt .s 


mloop 




168 


OOOOOOFE 


5542 




notnj.l 


subq 


#2, gvr primary type 




169 


00000100 


6F5E 






ble . s 


addref reloc or global 




170 


00000102 


51CD 


OOOfi 




db r a 


depth, rloop limit recursion 




171 


00000106 


3B7C 
FFFE 


006E 




move .w 


#deptherr .escapecode (a5) 




172 


0000010C 


4E4R 






t rap 


#10 




173 


0000010E 


3418 




rloop 


move . w 


(gvrptr)*, gvr 




174 


00000110 


3801 






move 


sub, dtemp save for later 




175 


00000112 


0802 


0001 




btst 


top, gvr 




176 


00000116 


6702 






beq. s 


nosub 




177 


00000118 


4601 






not .b 


sub 




178 


000001 1ft 


3602 




nosub 


move 


gvr, field 

tSFFFC, field adr field 

#4, field 




179 


OOOOOHC 


C67C 


FFFC 




and 




180 


00000120 


B67C 


0004 




cmp 




181 


00000124 


6E06 






bgt .s 


def ref 




182 


00000126 


6138 






bsr . s 


addref 




183 


00000128 


3204 






move 


dtemp, sub 




184 


0000012R 


602ft 






bra.s 


next r 




185 


0000012C 


2F09 




defref 


move . 1 


modptr, -(sp) save modptr 




186 


0000012E 


2F08 






move . 1 


gvrptr, -(sp) save gvrptr 




187 


00000130 


3F02 






move .w 


gvr,- (sp) save done 




188 


00000132 


1F04 






move .b 


dtemp, -(sp) save sub 




189 


00000134 


2069 


0010 




movea . 1 


ext addr ( mo dptr), gvrptr 
(gvrpt r , field .wj, gvrptr 




190 


00000138 


2070 


3000 




movea. 1 




191 


O000013C 


4244 






clr 


dtemp 




192 


0000013E 


3244 






movea .w 


dtemp, modptr modptr := NIL 




193 


00000140 


1810 






move .b 


(gvrpt r) , dtemp length of symbol 
#2, dtemp skip symbol 




194 


00000142 


5444 






addq 




195 


00000144 


0884 


0000 




bclr 


#0, dtemp 




196 


00000148 


D0C4 






add3 .w 


dtemp, gvrpt r 




197 


0000014ft 


6100 


FF6E 




bsr 


runlist 




198 


0000014E 


121F 






move .b 


(5p)+,sub restore sub 




199 


00000150 


34 IF 






move .w 


(spj+,gvr restore done 




200 


00000152 


205F 






movea . 1 


(sp)+, gvrptr restore gvrptr 




201 


00000154 


225F 






movea. 1 


fsp)+, modptr save modptr 




202 


00000156 


0802 


0000 


next i' 


btst 


wdone ,gvr 




203 


000001SR 


67B2 






beq 
addq 


rloop 




204 


0000015C 


524 5 






tl, depth 




205 


0000015E 


4E75 




endrun 


rts 






206 
















207 


00000160 


6D18 




add ref 


bit .s 


reloc 




208 
















209 


00000162 


4001 




globiil 


tst ,b 


sub 




210 


00000164 


6R0R 






bpl.s 


addglobal 




211 


00000166 


9CA9 


002R 




sub.l 


glob a Idelt a (mo dptr), gvalue 




212 


0000016ft 


6900 


FF5E 




bvs 


intover 




213 


0000016E 


4E75 






rts 






214 


00000170 


D0fl9 


002R 


addgi.ob 


al add.l 


globaldelt a (modpt r), gvalue 




215 


00000174 


6900 


FFS4 




bvs 


intover 




216 


00000178 


4E75 






rt s 






217 
















218 


0000017ft 


4R01 




reloc 


tst .b 


sub 




219 


0000017C 


6P0A 






bpl.s 


add reloc 




220 


0000017E 


9CR9 


0026 




sub.l 


relocdelt a ( modpt r), gvalue 




221 


00000182 


6900 


FF46 




bvs 


intover 


1-226 
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222 00000186 4E7S rts 

223 00000188 D0A9 0026 addreloc add . 1 relocdelta (modptr) .gvalue 

224 0000018C 6900 FF3C bvs intover 

225 00000190 4E7S rts 
226 

227 *proc evalgvr(var gvalue, gvrptr: address; 

228 * modptr: moddescptr); 
229 

230 00000192 26SF evalgvr movea.l (sp)+, return return address 

231 00000194 225F movea.l (spj+, modptr 

232 00000196 245F movea.l jsp)+, atemp var gvrptr 

233 00000198 2052 movea.l ( atemp) , gv rpt r 

234 0000019A 4280 clr.l gvalue 

235 0000019C 4201 clr.b sub 

236 0000019E 7A0A moveq tmaxdepth, depth allow nesting 

237 000001AO 6100 FF18 bsr runllst 

238 000001A4 2488 move.l gvrptr, (atemp) 

239 000001A6 24SF movea.l (sp)f, atemp var gvalue 

240 000001A8 2480 move.l gvalue, (atemp) 

241 000001AA 4ED3 jmp (return) 
242 

243 

244 end 

PASS 1 ERRORS: 

PASS 2 ERRORS: 



1-227 



1-228 



FASTMOVE 



Purpose 

FASTMOVE implements the data moving procedures ASM__MOVELEFT and 
ASM_MOVERIGHT as well as a similar procedure called FASTMOVE. 



Notes 

FASTMOVE determines which direction the bytes should be moved. MOVELEFT and 
MOVERIGHT may have unpredictable results if the direction is opposite that which is 
appropriate. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 



1-229 



1-230 
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PASS 1 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 
SS 
56 
57 
58 



COMPLETE. ERRORS: 



UNIFIED GENERAL PURPOSE BYTE MOVE OPERATION 

def asm_f astmove, asrrwnovel , asm_mover,asm_moveleft , asm_moveright 



0000 0000 length equ dO 

0000 0001 delta equ dl 

0000 0000 return equ aO 

0000 0001 source equ al 

0000 0002 destination equ a2 



0000 0000 
0000 0000 

00000000 205F 

00000002 201F 

00000004 6F18 

00000006 24SF 

00000008 225F 

OOOOOOOA 6020 



asm_movel 
asm_movelef t 

movea. 1 
move . 1 
ble.s 
movea. 1 
movea . 1 
b ra . s 



0000 OOOC asm_mover 
0000 OOOC asm_move right 
OOOOOOOC 20SF movea. I 

OOOOOOOE 201 F move . 1 

00000010 6F0C ble.s 

00000012 245F movea. 1 

00000014 225F movea. 1 

00000016 606A bra.s 

0000 0018 asm_f astmove 



00000018 20SF 
0000001A 201F 
OOOOO01C 6E04 
0000001E 504F 
00000020 4ED0 
00000022 245F 
00000024 22SF 

00000026 B5C9 
00000028 62S8 
0000002A 6744 

0000002C 3209 
0000002E 340A 



movea . 1 
move. 1 
bgt .s 
addq 
jmp 

movea. 1 
movea . 1 



equ » 

equ * 

f sp) + , return 

(sp)+, length 

nonpos 

'sp)+, destination 

sp) + , source 

eft 

equ » 

equ * 

(sp)+, return 

(sp)+, length 

nonpos 

(sp)+, destination 

(sp)+, source 

right 

equ * 

(sp)+, return 

(sp)+, length 

pos 

#8,sp 

( return) 

[spl+, destination 

(sp) + , source 



cmpa . 1 source, destination 



00000030 
00000032 
00000034 
00000036 
00000038 
0000003A 
0000003C 
0000003E 

00000040 
00000042 



E249 
640C 
E24A 
643C 
14D9 
5380 
6E06 
4E00 

E24A 
6530 



bhi. 
beq . 

move 
move 

lsr 
bcc.s 
lsr 
bcc . s 

move . b 
subq. 1 
bgt .s 
imp 

lsr 
bcs . s 



right 
done 

50urce,dl 
dest inat ion ,d2 

#l,dl 
11 

#l,d2 
slowleft 



length must be > 



length must be > 



length must be > 



test direction 



copies for testing oddness 



test source address 



source odd, test destination 

source odd, destination even, worst case 

(source)*, (destination)* both odd, move 1 initial byte 

#1, length 

fastleft 

(return) 



#l,d2 
slowleft 



source even, test destination 

source even, destination odd, worst case 
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59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 

90 
91 
92 
93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



00000044 
00000046 
00000048 
0000004A 
0000004E 
00000052 
00000054 
00000056 

00000058 
OOOOOOSC 
0000005E 
00000060 
00000062 

00000064 
00000066 
00000068 

0000006H 
00000068 
0000006E 



* both source and destination addresses even, word moves possible 

fastleft moveq #32, delta 

sub.l delta, length 
bit. s 111 



7220 

9081 

6D0E 

4CD9 18FC lloopl movem.l (source)+,d2-d7/a3-a4 

48D2 18FC movem.l d2-d7/a3-a4 , (destination) 

D4C1 adda ' 

9081 sub.l 

6CF2 bge.s 



D07C 001C 111 
6D06 



24D9 
5940 
6CFA 

5440 

6D02 
34D9 

E248 
6402 
1409 



add 
blt.s 
lloop2 move.l 

subq 



delta, destination 
delta . length 
lloopl 

#28, length 
112 



(source)*, (de 
#4, length 



stination)* 



bge.s lloop2 



00000070 4ED0 



112 



113 



done 



addq 
blt.s 
move .w 

lsr 
bcc . s 

move . b 

jmp 



00000072 
00000074 
00000078 

0000007E 
00000080 



14D9 lloop3 move.b 

51C8 FFFC slowleft dbra 

90BC 0001 sub.l 

0000 

64F2 bcc.s 

4ED0 jmp 



#2, length 

113 

(source)*, (destination)* 

#1, length 

done 

(source)*, (destination)* 

( return) 

(source)*, (destination)* 
length, lloop3 
#65536, length 

lloop3 
(return) 



move 32 byte chunks 

move 4 byte chunks 

move 2 bytes 

move odd byte 

bytes not on word boundaries 



00000082 D3C0 
00000084 D5C0 



00000086 3209 
00000088 340A 



right 



length, source 
length, dest inat ion 



source, dl 
dest ination,d2 



0000008A 
0000008C 
0000008E 
00000090 
00000092 
00000094 
00000096 
00000098 

0000009B 
0000009C 



E249 
640C 
E24A 
643C 

1521 
5380 
6E06 
4ED0 

E24A 
6530 



adda . 1 
adda.l 

move 
move 

lsr 
bcc . s 
lsr 
bcc . s 

move.b 

subq.l #i, length 
bgt.s fastright 
jmp (return) 



copies for testing oddness 
test source address 



#l,dl 

rl 

#l,d2 source odd, test destination 

slowright source odd, destination even, worst case 

-(source) ,- (destination) both odd, move 1 initial byte 



lsr 
bcs. 



#1 ,d2 
slowright 



source even, test destination 

source even, destination odd, worst case 



0000009E 7220 



* both source and destination addresses even, word moves possible 
fastright moveq #32, delta 
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115 


OOOOOOAO 


9081 






sub.l 


delta, length 


116 


O00000A2 


6D0E 






bit .s 


rrl 


117 


OO0OO0B4 


92C1 




rloopl 


suba 


delta , source 


118 


oooooofie 


4CD1 


18FC 




movem. 1 


(source), d2-d7/a3-a4 
d2-d7/a3-a4,-(destinatio 


119 


OOOOOOflfi 


48E2 


3F18 




movem. 1 


120 


OOOOOOFIE 


9081 






sub.l 


delta, length 


121 


OOOOOOBO 


6CF2 






bge . s 


rloopl 


122 














123 


000O00B2 


D07C 


001C 


rrl 


add 


#28, length 


124 


000000B6 


6D06 






bit .s 


rr2 


125 


000000B8 


2521 




rloop2 


move . 1 


-(source), -(destination) 
#4, length 


126 


OOOOOOBfi 


S940 






subq 


127 


OOOOOOBC 


6CFB 






bge.s 


rloop2 


128 














129 


OOOOOOBE 


5440 




rr2 


addq 


#2, length 

rr3 


130 


OOOOOOCO 


6002 






bit .5 


131 


000000C2 


3521 






move .w 


-(source), -(destination) 


132 














133 


000000C4 


E248 




rr3 


lsr 


#1, length 


134 


000000C6 


64A8 






bcc . s 


done 


135 


OOO0OOC8 


1521 






move .b 


-(source) , -(destination) 


136 
137 
138 


OOOOOOCfl 


4ED0 






jmp 


(return) 


OOOOOOCC 


1521 




rloop3 


move .b 


-(source) , -(destination) 
length, rloop3 


139 


OOOOOOCE 


S1C8 


FFFC 


slourig 


ht dbra 


140 


O000O0D2 


90BC 
0000 


0001 




sub.l 


#65536, length 


141 


000000D8 


64 F2 






bcc. 5 


rloop3 


142 


OOOOOODPI 


4ED0 






jmp 


( return) 


143 














144 










nosyms 




145 










end 




PASS 1 


ERRORS: 












PPISS 2 


ERRORS: 













move 32 byte chunks 

move 4 byte chunks 

move 2 bytes 

move odd byte 

bytes not on word boundaries 
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FMINIT 



Purpose 

FMINIT is the initialization driver for the 9885 disc. 

Usage 

FMINIT is used by MEDIAINIT for 9885 discs. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PASS 1 COMPLETE. ERRORS: 
2 
3 
4 00000000 rorg 



nosyms 



S 
6 

7 

8 ************************************************* 

8 * PASCAL module interface * 

10 ************************************************* 

II 

12 src module Fminit; 

13 src 

1* src import 

15 src sysglobals, 

16 src midecs; 

17 src 

18 src export 

19 src function Fintdata: interleave_data; 

20 src function Fphydata: physical_dat a; 

21 src procedure Fminit ialize ( po rt : charptr; un: byte; intlve: shortint); 

22 src 

23 src end; 
24 

25 * 

26 * def's 

27 * 

28 def Fminit_Fminit module intialization routine 

29 def Fminit_Fintdata interleave factor data function 

30 def Fminit_Fphydat a physical attributes data function 

31 def Fminit Fminitialize 9885 formatting routine 

32 - 

33 * 

34 * ref's 

35 » 

36 refa sysglobals 
37 

38 * 

39 * module intialization routine 

40 * 

41 00000000 4E7S Fminit Fminit rts 
42 
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44 

45 ************************************************* 

46 * functions * 

47 ************************************************* 
48 

49 * 

50 * interleave factor data function 

51 * 

52 00000002 0001 intdata dc 1 minimum interleave factor 

53 00000004 001D dc 29 maximum interleave factor 

54 00000006 0001 dc 1 default interleave factor 
55 

56 0000 0008 Fminit_Fintdata equ * 

57 00000008 205F movea.l sp)+,aO return address 

58 O000O00A 225F movea.l sp)f,al return variable address 

59 OO00O00C 4CBA 0007 movem intda t a , d0-d2 interleave data record constant 

FFF2 

60 00000012 4891 0007 movem d0-d2,(al) assign the return variable 

61 00000016 4ED0 jmp (aO) return 
62 

63 
64 

65 * 

66 * physical attributes data function 

67 * 

68 00000018 0000 003F phydata del 67-4 number of tracks per surface 

69 0000001C 0000 0001 del 1 number of surfaces per media 

70 00000020 0000 001E del 30 number of sectors per track 
71 

72 0000 0024 Fminit_Fphydata equ * 

73 00000024 20SF movea.l (sp)+,aO return address 

74 00000026 22SF movea.l (sp)+,al return variable address 

75 00000028 4CFA 0007 movem. 1 phydat a,d0-d2 interleave data record constant 

FFEC 

76 O00O002E 48D1 0007 movem. 1 d0-d2,(al) assign the return variable 

77 00000032 4ED0 imp (aO) return 
78 
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80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 



♦ J***:******************************************** 

* passed parameters & local variables * 

*****:******* ************************************* 



* local variables 
FFFF FEAA locals equ -342 
FFFF FEAA v85buf equ -342 
FFFF FFAA v85ibuf equ -86 



FFFF FFE8 v851rp equ 

FFFF FFEC v851rso equ 

FFFF FFFO v85ri:9o equ 

FFFF FFF2 v85frec equ 

FFFF FFF4 v851i0 equ 

FFFF FFF6 v8Ss<:md equ 

FFFF FFF8 v85s-:at equ 

FFFF FFFA v85rc: equ 

FFFF FFFB v85rs/f equ 

FFFF FFFC v8Sg':c equ 

FFFF FFFD v8S6':c equ 

FFFF FFFE v85p.itc equ 

FFFF FFFF v85gdcb equ 



-24 


long 


-20 


long 


-16 


word 


-14 


word 


-12 


word 


-10 


word 


-8 


word 


-6 


byte 


-5 


byte 


-4 


byte 


-3 


byte 


-2 


byte 


-1 


byte 



* parsed parameters 



0000 0000 


oldafi 


equ 





long 


0000 0004 


ret addr 


equ 


4 


long 


0000 0008 


intl«e 


equ 


8 


word 


0000 000A 


un 


equ 


10 


word 


0000 oooc 


port 


equ 


12 


long 



total local area size 

(256 bytes) read/write buffer 

(62 bytes) interleave buffer 

logical record pointer 
logical record spiral offset 

logical record 29 offset 

first record 

this track's logical record 

skeleton command 

status word 

record count 
read/write flag 
good track count 
bad track count 
test pattern count 
gpio dma control byte 



dynamic link 
return address 
interleave factor 
unit number 
card port address 
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120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 

153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 



************************************************* 
* escape sequences * 

i************************************************ 



* assignment of ioresuit values 



0000 0010 ior_iotGPI0 equ 

0000 0010 ior_iot988S equ 

0000 002E iorjnediachange equ 

0000 0011 ior_initfailed equ 

0000 0015 ior_:atchall equ 



* 9835 error code mapping to ioresuit values 



16 


znodevice) 


16 


znodevice ) 


46 


zmediumchanged) 


17 


zinit fail) 


21 


zcatchall) 



card is not GPIO 
peripheral is not 9885 
media has been changed 
initialization failed 
error undetermined 



00000034 IS 

00000035 10 
C0000036 22 

00000037 22 

00000038 12 

00000039 20 
0000003B 20 
00000038 01 
0000003C 14 
0000003D 01 



f8Se:m 


dc.b 


21 


zcatchall) 




dc.b 


16 


znodevice) 




dc.b 


34 


znomedium j 




dc.b 


34 


znomedium) 




dc.b 


18 


zprot ec ted) 




dc.b 


32 


znoblock) 




dc.b 


32 


znoblock) 




dc.b 


1 


zbadblock) 




dc.b 


20 


zbadhardware) 




dc.b 


1 


zbadblock) 



(0) no error 

1 not all drives powered 

(2) door open 

(3 no disc in drive 

(4 badcommand (write protected) 

(5) record header error 

(6) track not found 

(7) data checkword error 

(8) data over run 

(9) verify failed 



* subroutine ioresuit escape: enter with ioresuit in dO . 1 



0000003E 2B40 FFEP ioresc move.l dO , sysg lobals-22 ( a5 I store the ioresuit 
00000042 3B7C FFF6 move #-10 , sysglobals-2 ( aS ) store the escapecode 

00000048 4E4A trap #10 escape a'la' Pascal 



0000004A 7200 

0000004C 122E FFF8 

00000050 7015 

00000052 B27C 0009 

00000056 62E6 

00000058 103B 10DA 

0000005C 60E0 



* subroutine decode and issue the error code 

* 

f8Sdie 



moveq 1*0, dl 

move.b v85stat (a6) ,dl 



moveq 
cmp 

bhi 

move -b 
bra 



#ior catchall, dO 

#9,dT 

ioresc 

f8Secm(dl) ,d0 
ioresc 



clear upper byte for word indexing 
9885 error code 

ioresuit in case error code is out of range 
is the error code within the expected range? 
branch if not 

load the appropriate ioresuit value 
escape with the bad ioresuit 
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* 9Pio interface card switch settings * 

********************************************************************** 
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169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 



option switches 

invert pelt 
invert pflg 
invert psts 
full/pulse handshake 
invert data in 
invert data out 



data clock switches 



1} read 

2) ready to busy 

3] busy to ready 

4 read 

5) ready to busy 

6) busy to ready 



open 
open 
open 
open 

open 
open 



open 
open 



closed 
closed 



lower data register 



upper data register 



select code switches: 0-31; default 1 



interrupt priority switches: don't cares; default 
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200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 



********************************************************************** 

* * 

* basic program flow is as follows: * 

* * 

* Generate the interleave buffer containing the logical record * 

* number sequences. * 

* * 

* Reset dumbo to force a "seek" to physical track 0. » 

* * 

* Format & test the current track. If the track is good, increment * 

* the good track count. If not, increment the bad track count and * 

* make the bad track invisible. Step the heads in one track. Repeat * 

* until all 67 tracks have been processed. * 

* * 

* Reset dumbo again. * 

* * 

* If more than 4 tracks were bad, issue an error. * 

* * 
********************************************************************** 



************************************************************** ******** 

* * 

* procedure for formatting and testing one track * 

* * 

* 1. Format the track with the sequence of logical record numbers * 

* appropriate for the specified interleave factor. * 

* * 

* 2. With tight margins read back the data written by the format. * 

* Write & read back under tight margins 3 other test patterns. * 

* Urite 0's to all records. " * 

* * 

* 3. If the track had no errors, increment the good track count, * 

* Else increment the bad track count and make the (bad) track * 

* invisible. * 

* * 
********************************************************************** 
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241 

242 ****>(****»**********»*******«****«***«************»****»****«********* 

243 * format the media * 

244 ****><****#*x**»**********************************************»******** 

245 

246 » 

247 » preliminary setup S checks 

248 * 

249 0000 005E Frniru t_Fmini t ialize equ * 
250 

251 0000005E 4E56 FEflfl link a6,#locals buiid our stack frame 

252 

253 00000062 286E 000C movea.l port(a6),a4 a4 dedicated as the gpio card pointer 

254 * 

255 * te:>t for gpio card; status clear; stiO & stil clear 

257 00000066 7010 moveq #ior notGPIO.dO ioresult in case card is not GPIO 

258 00000068 721F moveq #31,31 mask for card id bits 

259 0000006A C22C 0001 and.b l(a4),dl iosolate the card id bits 

260 0000006E 5701 subq.b #3,dl is the card GPIO? 

261 00000070 66CC bne ioresc escape if not 

263 00000072 7010 moveq #io r_not9885 ,d0 ioresult in case peripheral is not a 9885 

264 00000074 720B moveq #$0B,dl mask for peripheral status bits 

265 00000076 C22C 0007 and.b 7(a4),dl isolate the appropriate status bits 

266 0000007A 66C2 bne ioresc branch if inappropriate status for 9885 

267 * 

268 * te:>t for media change 

269 * 

270 0000007C 197C 0000 move.b #0,3(a4) clear enab, word, dmacl, dmacO 

0003 

271 00000082 197C 0000 move.b #0,7(a4) clear ctlO & ctll 

0007 
272 

273 00000088 6100 0392 bsr f851gin give the password 

274 

275 0000008C 70FC moveq #-4,d0 build the 

276 0000008E 806E OOOfi or un(a6),d0 request status 

277 00000092 E8S8 ror #4,d0 command 

278 00000094 6100 038P, bsr f85wo issue it 
279 

280 00000098 6100 0390 bsr f85wi fetch the status word 

281 000OC09C 3D40 FFF8 move dO , v85st at ( a6 ) save the status word for now 
282 

283 000000A0 7000 moveq #0,d0 ,,..,.., ....... .oc 

284 OO0OO0A2 6100 037C bsr f85wo complete the handshake with the 85 
285 

286 O00000A6 702E moveq #ior_mediachange , dO ioresult in case media was changed 
287 

288 000000A8 7204 moveq #$04, dl disc changed bit 

289 000000AA C26E FFF8 and v85st at (a6) ,dl is it set? 

290 O00OO0RE 668E bne ioresc escape if so 
291 
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293 

294 * 

295 » generate the interleave buffer (in ibuf) 

296 * 

297 O00O0OB0 41EE FFflA lea v85ibuf ( a6 ) , aO buffer's first byte address 

298 000C00B4 43E8 001E lea 30(a0),al buffer's last byte address plus one 

299 O0OO00B8 70FF moveq #-l,dO buffer's initial contents 

300 000000BA 7207 moveq #8-1, dl loop counter 

301 000000BC 20C0 move.l dO,(aO)+ store four bytes 

302 000000BE 51C9 FFFC dbra dl,«-2 loop until done 
303 

304 0OO0OOC2 41EE FFAA lea v8Sibuf ( a6 ) , aO buffer's first byte address 

305 0OO0OOC6 4210 clr.b (aO) logical record goes here 

306 0OO0OOC8 7001 moveq #l,dO logical record number counter 
307 

308 0000OOCA DOEE 0008 f8Sgbl adda int lve (a6) , aO bump by the interleave factor 
309 

310 0OO0OOCE B1C9 f8Stor cmpa.l al.aO are we still in range? 

311 OO00O0DO 6D04 blt.s * + 6 branch if so 

312 OO00OOD2 90FC 001E suba #30, aO otherwise, circle around 
313 

314 OO00O0D6 4A18 tst.b (a0)+ is this slot empty? 

315 0000O0D8 6P.F4 bpl f8Stpr branch if not 

317 000000DA 1100 move.b d0,-(a0) this slot's empty: claim it 

318 OOOOOODC 5240 addq #l,d0 bump the logical record number 

319 OOOOOODE B07C 001E cmp #30, dO all 30 lrn's (0-29) placed? 

320 OO00OOE2 6DE6 bit f85gbl loop until done 
321 

322 O000O0E4 43EE FFAA lea v85ibuf ( a6 ) , al buffer's FBA (Irn O's position) 

323 OO0OO0E8 91C9 suba.l al.aO offset from lrn to lrn 29 

324 000000EA 3D48 FFFO move aO , v85r29o (a6) save it 

325 » 

326 * make another copy of the buffer 

327 * 

328 O00OO0EE 4CEE OOFF movem.l v85ibuf ( a6) , dO -d7 load 32 bytes 

FFAA 

329 O00OO0F4 48EE OOFF movem.l d0-d7 , v8Sibuf +30 (a6 ) store 32 bytes 

FFC8 

330 * 

331 * some initializations for the main loop 

332 

333 
334 

335 00OO0OFE 41EE FFflA lea v85ibuf ( a6 ) , aO interleave buffer's FBA 

336 00000102 2D48 FFEC move.l aO . v8Sl r so ( a6 ) init the logical record spiral offset 

337 00000106 422E FFFC clr.b v8Sgtc(a6) clear the good track count 

338 0000010A 422E FFFD clr.b v85btc(a6j clear the bad track count 
339 

340 0000010E 70OC 

341 00000110 806E 000A 

342 00000114 E858 

343 00000116 3D40 FFF6 
344 



000000FA 1940 0001 move.b d0,l(a4) clear the gpio card & reset dumbo 



moveq 


#$OC,dO 






un(a6) ,d0 


unit number 




#4,d0 


skeleton for various commands 


move 


d0,v85scmd(a6) 


save it 
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377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 



* main loop section 

f8Sml bsr.s f8Sfmt 

move.b v8Sgtc(a6) ,d0 

add.b v85btc(a6),d0 

cmp.b #77, dO 

bge.s f85fc 
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346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 

375 00000150 7011 moveq 

376 00000152 0C2E 003F cmpi.b 



0000011PI 6150 

000001 1C 102E FFFC 
00000120 002E FFFD 
00000124 603C 004D 
00000128 6C22 

0000012A 6100 02F0 
0000012E 302E FFF6 
00000132 807C 0F9F 
00000136 6100 02E8 

0000013A 6100 018E 
0000013E C07C FFFC 
00000142 B07C 0020 
00000146 67D2 
00000148 6000 FFOO 



* formatting complete: wrap it up 
* 
0000014C 1940 0001 f8Sfc move.b d0,l(a4) 



bs r 


f851gin 


move 


v85scmd(a6) ,d0 


or 


#$0F9F,d0 


bsr 


f85wo 


bsr 


f8Sfst 


and 


#$FFFC,dO 


cmp 


#$0020, dO 


beq 


f85ml 


bra 


f85die 



00000150 7011 
00000152 0C2E 003F 

FFFC 
00000158 6D00 FEE4 

0000015C 4ESE 

0000015E 205F 

00000160 508F 

00000162 4ED0 



#ior initfailed.dO 
#63,v85gtc(a6) 



bit 



loresc 



unlk a6 

movea.l fsp)+,aO 
addq.l #8,sp 
jmp (aO) 



format and test one track 

good track count 
bad track count 
all done? 
branch if so 

give the password 
basic command skeleton 
form a step in command 
issue it 

fetch status 

strip off the drive bits 

seek complete, no errors? 

if so, continue with the main loop 

otherwise, decode and issue error 



clear the gpio card & reset dumbo 

ioresult in case of excessive rejected tracks 
did we get enough good tracks? 



escape if not 

remove our stack frame 
pop off the return address 
pop off the parameters 
return 



* test patterns (the first is written by the format command!) 

* 1 2 

* dc SC6C6 11000110110001101100011011000110 
00000164 6363 f85ptrn dc $6363 01 10001 101 10001 101 10001 101 10001 1 
00000166 DB6D dc $DB6D 1 101 101 101 101 101 1 101 1011O1 101 101 
00000168 8888 dc $8888 10001000100010001000100010001000 
0000016A 0000 dc $0000 (final sector contents) 



0000016C 102E 
00000170 B03C 
00000174 6C00 

00000178 D02E 
0000017C B03C 
00000180 6E00 

00000184 6100 
00000188 302E 
0000018C EAS8 
0000018E 802E 
00000192 EB58 
00000194 807C 

00000198 6100 
0000019C 3940 
000001A0 4E4B 



007C 

1880 

721D 
206E 
7000 



FFFC 
003F 
011E 

FFFO 
0042 
0112 

0296 

FFF6 

FFFC 

001E 

027A 
0004 



* routine to format and test one track 
* 

f85fmt move.b v85gtc (a6) ,d0 
cmp.b #63, dO 



bge 

add.b 

cmp.b 
bgt 

bsr 

move 

ror 

or .b 

rol 

or 

bsr 
move 
trap 
* scs move 
ori 



f85mtd 

v8Sbtc(a6) ,d0 
#66, dO 
f85mtd 

f8Slgin 

v85scmd(a6) ,d0 
#5.d0 

v8Sgtc(a6) ,d0 
#5,d0 
#36, dO 

f85wf 
d0,4(a4) 
#11 

sr,-(sp) 
#$2700, sr 
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395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
4 34 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 



good track count 

already have enough good tracks? 

branch if so (don't leave "extra" tracks) 

compute current physical track number 
out past the 9885's "supported" range? 
branch if so (don't leave "extra" tracks) 

give the password 
basic command skeleton 

current logical track number 

format command for this track 

wait for the flag 

place the command in the output buffer 

scs 
prepare to disable interrupts 
disable interrupts 



000001A6 

000001A8 
000001AA 
000001AE 



000001B0 1018 



************************ interrupts disabled ************************* 



000001B2 
000001B6 

000001B8 
000001BC 

000001BE 

000001C2 

000001C4 
000001C8 
00O001CC 
000001DO 



6100 
600A 

3940 
1880 

51C9 

46DF 

6100 
C07C 
B07C 
6600 



024C 
0004 
FFFO 



move.b dO, (a4) 

moveq #30-1, dl 

movea.l v851rso(a6) ,a0 

moveq #0,d0 

f85flb move.b (a0)+,d0 

bsr f85cswf 

bra.s f85fle 

move d0,4(a4) 

move .b dO, (a4 ) 



dbra dl,f85flb 



f85fle move 



(sp)« 



sr 



set the peripheral control flag 

initialize the loop counter 
logical record spiral offset 
need upper byte cleared 

next logical record number to send 

check status and wait for the flag 
ret 1; terminate & check status 

place the lrn in the output buffer 
set the peripheral control flag 

loop until all 30 lrn's sent 

re-enable interrupts 



0104 
FFF8 
0040 
FE78 



00000104 47FP, 



448 



000001D8 1D7C 
FFFE 



FF8E 
0004 



*********************** interrupts re-enabled ************************ 

bsr f85fst fetch status 

and #$FFF8,dO strip the drive & disc change bits 

cmp #$0040, dO format complete, no errors? 

bne f85die if not, decode and issue error 
* 

* prepare for reading and writing under i/o control 
* 

lea f8Sptrn,a3 first test pattern address 

move.b #4,v85patc (a6) init the pattern count 
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450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 

464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 

499 



* loop to read verify the previous pattern and write the next pattern 

* note: the first test pattern was written by the format command! 

* the last pattern written is 0, and will not be read verified 



* verify under i/o control 



000001DE 206E FFEC f85vwl 
000001E2 2D48 FFE8 

000001E6 1D''C 001E 
FFFA 

000001EC 7000 
000001EE 102E FFFC 
000001F2 COFC 001E 
000001 F6 3D40 FFF4 

000001FP, 206E FFE8 f85vl 
000001 FE 7000 
00000200 io:.8 

00000202 D06E FFF4 

00000206 2D48 FFE8 

0000020A 3040 FFF2 

0000020E 51EE FFFB 
00000212 6100 0000 
00000216 6042 

00000218 532E FFFA 
0000021C 6EDC 



0000021E 30:.3 
00000220 4840 
00000222 30:.B 
00000224 41EE FEAA 
00000228 723F 
00C0022A 20C0 
OOO0O22C 51C9 FFFC 

00000230 206E FFEC 
00000234 2D48 FFE8 

00000238 1D7C 001E 
FFFfl 



movea.l v851rso(a6 ) , aO 
move.l a0,v851rp(a6) 

move.b #30,v85rc (a6) 



moveq #0,d0 

move.b v85gtc ( a6 ) ,d0 

mulu #30, dO 

move d0,v851r0(a6) 

movea.l v851rp(a6) , aO 

moveq #0 dO 

move.b (aO)*,dO 

add v8SlrO(a6) ,d0 

move.l aO,v8Slrp(a6) 

move d0,v85f rec(a6) 



sf 


v85rwf (a6) 


bsr 


f85xfr 


bra. 


s f85ferr 


subq . b 


#l,v8Src(a6) 
f8Svl 


bgt 


under 


i/o control 


move 


(a3),d0 


swap 


dO 


move 


(a3)+,d0 


lea 


v85buf (a6),a0 


moveq 


#64-1, dl 
dO, (aO)+ 


move . 1 


dbra 


dl,*-2 



movea.l v851rso (a6) , aO 
move.l a0,v851rp(a6) 

move.b #30,v85rc(a6) 



logical record spiral offset 
imt the logical record pointer 

init the record counter 



clear the upper byte 
this track's logical track# 
this track's logical record 
save it 

logical record pointer 
clear upper byte and word 
logical record to verify next 
this track's logical record 
updated logical record pointer 
record to verify 

set read/write flag to read 

do the transfer 

ret 1; some error occurred 

decrement the record counter 

loop til all 30 records are verified 



test pattern 

need it in upper & lower words 
first word address 
initialize the loop counter 
write four bytes 
loop until done 

logical record spiral offset 
logical record pointer 

init the record count 
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501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
Sll 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
54 2 
543 
544 
54 5 
546 



0000023E 20I5E FFE8 f85wl 
00000242 7000 
0000C244 1018 

00000246 D06E FFF4 

0000024A 2D48 FFE8 

0000024E 3D40 FFF2 



movea.l v851rp(a6) , aO 
moveq #0,d0 
move.b (au)+,dO 
add v851r0(a6) ,d0 
move.l a0,v851rp(a6) 
move d0,v85f rec (as) 



00000252 50EE FFFB 
00000256 6100 008C 
000002SA 6020 

0000025C S32E FFFA 
00000260 6EDC 



st v85rwf(a6) 

bsr f85xfr 

f8Sferr bra.s f85err 



00000262 532E FFFE 
00000266 6E00 FF76 

0000026A S22E FFFC 

0000026E 701A 
00000270 906E 0008 
00000274 906E FFFO 
00000278 48C0 
0000027A 6038 



subq.b #l,v8Src(a6) 
bgt f85wl 



subq.b #1 v85patc(a6) 

bgt f85vwl 

addq.b #1 ,v85gtc (a6) 

moveq #26, dO 

sub intive(a6) ,d0 

sub V85r290(a6),d0 

ext.l dO 

bra.s f85bof 



logical record pointer 
clear upper byte and word 
next record to be written 
this track's logical record 
updated logical record pointer 
record number to write 

set the read/write flag to write 

do the transfer 

ret 1; some error occurred 

decrement the record count 

loop till all 30 records are written 



decrement the pattern count 
loop until done 



increment the good track count 



(offset=offset-inter-r29o*26) 

need the offset long 

bump the logical record offset 



* an srror occurred in verifying or writing: is it "ok"? 
0000027C 10:2E FFF8 f85err move.b v8Sst at (a6) ,d0 the upper byte of the error code word 



00000280 5BO0 
00000282 6710 
00000284 5330 
00000286 673C 
00000288 5330 
0000028A 6738 
0000028C 5530 
0000028E 6734 

00000290 6030 FDB8 



subq .b 
beq . s 
subq .b 
beq.s 
subq .b 
beq. s 
subq .b 
beq. s 

bra 



#5,d0 

f85mtd 
#6-5, dO 
f85mtd 
#7-6, dO 
f85mtd 
#9-7, dO 
f85mtd 

f85die 



id error? 
branch if so 
t rack error? 
branch if so 
c re error? 
branch if so 
verify error? 
branch if so 

take the error exit 
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mark the (bad) track defective (invisible) 



00000294 


6100 


0186 f85mtd 


bsr 


f851gin 


00000298 
0000029C 
000002AO 


302E 

807C 
6100 


FFF6 
OFBF 
017E 


move 
or 

bsr 


v85scmd(a6) ,dO 

#$OFBF,dO 

f85wo 


000002A4 
000002A6 
000002AA 


6124 

C07C 
6600 


FFFC 
FD9E 


bsr .5 

and 
bne 


f8Sfst 

#$FFFC,dO 

f85die 


000002AE 


S22E 


FFFD 


addq .b 


#l,v85btc(a6) 


000002B2 


70FC 


* 


moveq 
bra.s 


t-4,d0 
f8Sbof 



* subroutine to bump the logical record spiral offset 
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548 
549 
550 
551 
552 
553 
554 
555 
SS6 
557 
558 
559 
560 
561 
562 
563 
564 
S6S 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
S92 
593 
594 



give the password 

basic command skeleton 

form a mark track defective cmd 

issue it 

fetch status 

strip off the drive bits 

branch if any errors 

increment the bad track count 

logical record offset to be bumped by 4 
bump the offset 



000002B4 D0AE FFEC f85bof 
000002B8 2D40 FFEC 
000002BC 41EE FFAA 
000002CO B088 
000002C2 6C04 
000002C4 701E 
000002C6 60EC 
000002C8 4E7S 



add.l 
move . 1 
lea 
cmp. 1 
bge.s 
moveq 
bra.s 
rts 



v851rso(a6) ,d0 

d0,v851rso(a6) 

v85ibuf (a6) , aO 

aO.dO 

*+6 

#30, dO 

f85bof 



* subroutine to fetch status 



000002CA 6100 0134 f8Sfst 
000002CE 4E71 



O0O002D0 6100 0150 
000002D4 3D40 FFF8 



000002D8 7000 
000002DA 6100 0144 



000002DE 302E FFF8 
000002E2 4E7S 



bsr 

nop 

bsr 

move 

moveq 
bsr 

move 
rts 



f85cswf 



f85winw 
dO,v8Sstat (a6) 

*0,d0 
f85wo 

v8Sstat (a6),d0 



bump it 

save it 

interleave buffer's FBA 

offset still in range? 

branch if so 

else put it in range 



check status and wait for the flag 
ret 1; error occurred 

word in; don't wait on the flag 
save the status word for now 



complete the handshake with the '85 
load the status word 
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596 








597 








598 








599 








600 








601 








602 








603 








604 


000002E4 


247C 
0000 


0050 


60S 


000002EA 


7005 




606 








607 








608 








609 


000002EC 


1D40 


FFFF 


610 


000002F0 


197C 
0003 


0000 


611 


000002F6 


197C 
0007 


0000 


612 








613 








614 








615 


000002FC 


6100 


011E 


616 








617 


00000300 


302E 


FFF2 


618 


00000304 


48C0 




619 


00000306 


81 FC 


001E 


620 


0000030A 


4840 




621 


0000030C 


EH58 




622 


0000030E 


EE98 




623 


00000310 


806E 


OOOfl 


624 


00000314 


E458 




625 


00000316 


807C 


0003 


626 


0000031A 


E4S8 




627 


0000031C 


6100 


0102 


628 








629 








630 








631 








632 


00000320 


6100 


OOFA 


633 








634 


00000324 


302E 


000A 


635 


00000328 


E8S8 




636 


0000032A 


5240 




637 








638 


0000032C 


41EE 


FEAH 


639 


00000330 


2488 




640 








641 


00000332 


727F 




642 


00000334 


3541 


0004 


643 








644 


00000338 


6100 


00C6 


645 


0000O33C 


605A 




646 








647 


0000033E 


4A2E 


FFFB 


648 


00000342 


6BS6 




64 9 









* routine to transfer one sector * 



* gain access to the dma channel 
f85xfr movea.l #$500000, a2 

moveq #$05, dO 

* set up the gpio card 
* 

move.b dO,v85gdcb (a6) 
move.b #0,3(a4) 

move.b #0,7(a4) 

* 

* build and issue the seek command 



DMR channel address 

gpio dma control byte: chan 



save the gpio dma control byte 
clear enab, word, dmacl, dmacO 



bsr 

move 
ext .1 
divs 
swap 

ror 
ror .1 
or 

ror 
or 
ror 
bsr 



f851gin 

v8Sf rec(a6) ,d0 

dO 

#30, dO 

dO 

#5,d0 

#7,d0 

un(a6) ,d0 

#2,d0 

#3,d0 

#2,d0 

f85wo 



clear ctll & ctlO 



give the password 

first record number 

make it long for division 

split into track & sector #'s 

track in upper; sector in lower 

sector in upper bits of lowe r 

track&sector in upper bits of lower 

t rack&sector&OO&unit in lower 

unit&track&sector&OO 

unit&t rack&sector&ll 

ll&unit&t rack&sector (finally!) 

issue the seek command 



partially build the appropriate transfer command 



bsr f851gin 

move un{a6) ,d0 

ror #4,d0 

addq #l,dO 

lea v85buf (a6) , aO 

move.l aO,(a2) 



moveq 
move 



#127, dl 
dl,4(a2) 



bsr f85c5wf 
bra.s f85_grs 



tst .b 
bmi. s 



v85rwf (a6) 
f85_wrt 



give the password 

unit number 

position for read/write/verify 

specify a record count of one 

read/write buffer's FUfl 

write in the DMA channel's address register 

#words-l in a sector 

write in the DrIP channel's count register 

check status and wait for the flag 
ret 1 - error; go read status 

read/write flag 
branch if a write 
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651 

652 * 

653 * section for verify (read) 

654 * 

655 00000344 08C0 000E bset #14, dO make a verify command 

656 00000348 3940 0004 move d0,4(a4) place cmnd in the output buffer 
6S7 

658 0O00O34C 4E4B trap #11 s<= 

659 * 5c« move sr.-(sp) prepare to disable interrupts 

660 0000034E 007C 2700 ori #$2700, sr disable interrupts (except nmi) 

661 ************************ interrupts disabled ************************* 

662 00000352 1880 move.b d0,(a4) set the peripheral control line 
663 

664 00000354 6100 OOAA bsr f8Scswf check status and wait for the flag 

665 00000358 600C bra.s f85 rby ret 1; bypass because of error 
666 

667 000003SA 397C 0000 move #0,4(a4) clear the output buffers 

0004 

668 00000360 4A6C 0004 tst 4(a4) set direction in w/ dummy read 

669 00000364 1880 move.b d0,(a4) set the peripheral control flag 
670 

671 00000366 196E FFFF f8S rby move.b v85gdcb(a6) ,3(a4 ) set the gpio dma control bits 

0003 

672 0000036C 536A 0004 subq #l,4(a2) don't dma the last word in 

673 00000370 6D06 blt.s f85 rei don't arm if no words to dma in 

674 00000372 357C 0002 move #$00"02, 6 (a2 ) arm the dma channel 

0006 

675 00000378 46DF f85 rei move (sp)+,sr re-enable interrupts 

676 *********************** interrupts re-enabled ************************ 

677 0000037A 41EE FFA8 lea v8Sbuf+254 (a6) , aO transfer's last word address 

678 

679 0000037E 082C 0003 f8S rwt btst #3,7(a4) peripheral status set? 

0007 

680 00000384 6648 bne.s f85 tdx if so, terminate dma xfer now! 

681 00000386 082A 0000 btst #0,7(a2) dma channel still armed? 

0007 

682 0000038C 66F0 bne f8S_rwt if so, loop 
683 

684 0O00O38E 6100 0070 bsr f85cswf check status and wait for the flag 

685 00000392 603A bra.s f85 tdx ret 1 - error: bypass else hang 

686 00000394 30AC 0004 move 4(a4"),(a0) transfer the last word 

687 00000398 6034 f8S_crs bra.s f85 tdx go read the status word 
688 
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690 

691 * 

692 * section for write 

693 * 

694 0000039A 08C0 OOOF f8S_wrt bset #15, dO make it a write command 

695 0000039E 3940 0004 move d0,4(a4) place the command in the output buffer 
696 

697 000003R2 4E4B trap #11 scs 

698 * scs move sr.-(sp) prepare to disable interrupts 

699 000003A4 007C 2700 ori #$2700, sr disable interrupts (except nmi ) 

700 I*********************** interrupts disabled ************************* 

701 000003A8 1880 move.b d0,(a4) set the peripheral control line 
702 

703 00000390 196E FFFF move.b v85gdcb (a6 ) , 3 ( a4 ) set gpio card dma control bits 

0003 

704 000003B0 357C 0006 move #$0006,6 (a2) arm the dma channel 

0006 
70S 

706 000003B6 46DF move (sp)+,sr re-enable interrupts 

707 *********************** interrupts re-enabled ************************ 

708 000003B8 082C 0003 f85 ttwt btst #3,7(a4) peripheral status set? 

0007 

709 000003BE 660E bne.s f85 tdx if so, terminate dma xfer now; 

710 000003C0 0820 0000 btst #0,7(a2) dma channel still armed? 

0C07 

711 000003C6 66F0 bne.s f85_wwt if so, loop 
712 

713 000003C8 6100 0036 bsr f8Scswf check status and wait for the flag 

714 000003CC 4E71 nop ret 1; some error occurred 
715 

716 » 

717 * terminate the dma transfer and read the status word 

718 * 

719 000003CE 3C12 f85_1dx move (a2),d0 disarm the dma channel 

720 O00003D0 422C 0003 clr.b 3 ( a4 ) clr the gpio card dma control bits 
721 

722 000003D4 1S7C 0001 move.b #l,7(a4) set the transfer complete bit 

OC07 

723 000O03Dfi 6100 0050 bsr f85winw word in; don't wait for the flag 

724 000003DE 3C40 FFF8 move dO , v85st at ( a6) save the status word for now 

725 000003E2 197C 0000 move.b #0 , 7 ( a4 ) clear the transfer complete bit 

0C07 
726 

727 000003E8 7C00 moveq #0,d0 

728 000003EA 6100 0034 bsr f85wo complete the handshake with the 85 

729 * 

730 * check for errors 

731 * 

732 000003EE 3C2E FFF8 move v85st at (a6 ) , dO drive ready, seek complete, 

733 000003F2 CC7C FFFO and #$FFFO,dO transfer complete, & 

734 000003F6 BC7C 0060 cmp #$0060, dO no error in error code? 

735 000003FA 6602 bne.s *+4 branch if any errors 

736 000003FC 5497 addq.l #2,(sp) setup a normal (ret 2) exit 

737 000003FE 4E7S rts exit 
738 



1-242 



PAGE 17 [2.0] 11/4/82 14:30:20 FMINIT - 9885 INITIALIZATION ROUTINE 

740 

741 ********** ******************* *************** ************** ****** ****** 

742 « 9885 shared driver routines * 

743 **************************************************************** ****** 

744 

745 * 

746 * routine to check status while waiting on the flag 

747 * 

748 00000400 5497 f8Scswf addq.l #2,(sp) anticipate a normal (ret 2) exit 
749 

750 00000402 0814 0000 f85tfb btst #0,(a4) flag bit 

751 00000406 660A bne.s f85ret branch if set 
752 

753 00000408 082C 0003 btst #3,7(a4) peripheral status bit 

0007 

754 0000040E 67F2 beq . s f85tfb keep looping unless it's set 
755 

756 00000410 5697 subq.l #2,(sp) change the ret 2 back to a ret 1 

757 00000412 4E75 f85ret rts exit 
758 

759 
760 

761 * 

762 » routine to wait for the flag 

763 * 

764 00000414 0814 0000 f85wf btst #0,(a4) flag bit 

765 00000418 67FR beq *-4 loop until set 

766 0000041A 4E75 rts 
767 

768 
769 

770 * 

771 * routine to send the 9885 password 

772 * 

773 0000041C 303C AE87 f851gin move #44679, dO 988S's "secret" password 
774 

775 
776 

777 » 

778 » routine to send one word out on the gpio card 

779 * 

780 00000420 61F2 f85wo bsr f85wf wait for the flag 

781 00000422 3940 0004 move d0,4(a4) place word in the output buffer 

782 00000426 1880 move.b d0,(a4) set the peripheral control line 

783 00000428 4E7S rts 
784 
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786 

787 t 

788 * routine to receive one word in on the gpio card 

789 « 

790 0000042A 61E8 f8Swi bsr f85wf wait for the flag 
791 

792 0000042C 397C 00O0 f85winw move #0,4 (a4) clear the output buffer 

0004 
793 

794 00000432 4A6C 0004 tst 4 ( a4 ) set direction in w/ dummy read 

795 00000436 1880 move.b do.(a4) set the peripheral control line 

796 00000438 61DA bsr f85wf wait for the flag 

797 0000043A 302C 0004 move 4(a4),d0 load in the word 

798 0000043E 4E75 rts 
799 

800 

801 end 

PASS 1 ERRORS: 
PASS 2 ERRORS: 
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FORMAT 



Purpose 

FORMAT is the initialization driver for the 7906, 7920 and 7925 hard discs. 

Usage 

FORMAT is used solely with MEDIAINIT. 

Notes 

FORMAT is for HP internal use only; it is not formally supported. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PBGE 1 [2.0] 11/4/82 16:50:00 ASSEMBLY OF FORMAT. TEXT 



PASS 1 
1 
2 
3 

4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



COMPLETE. ERRORS: 



00000000 



************************************************ 
* 

* FORMAT Routine for Initialize 
* 

* Last Updated September 30, 1981 
* 

************************************************ 
* 





0000 0010 PHI 
0000 0001 CARD 
0050 0000 DMAC 



RORG 
NOSYMS 

DEF 

REFB 
REFP 

EQU 
EQU 
EQU 



ASMR FORMAT 

SYSGEOBALS 

XMINIT 

$10 
$ 1 
$500000 



FFFF 


FFEC 


INITISRIB 


EQU 






* PHI REGISTE 


0000 


0011 


INTR 


FQlt 


0000 


0013 


IMSK 


FQU 


0000 


0015 


FIFOFFSET 


FQU 


0000 


0017 


STATPOFFS 


FQU 


0000 


0019 


CTRL 


FQU 


0000 


001B 


HPIBADR 


FQU 


0000 


001D 


PPMSK 


FQU 


0000 


001F 


PPSNS 


EQU 



LOCATION OF BUILT IN DMA CARD 
> INIT'S ISRIB 



IN ASCENDING ORDER 



PHI + 1 
PHI +3 
PHI + S 
PHI + 7 
PHI + 9 
PHI+SB 
PHI+SD 
PHI+SF 



* PHI CARD REGISTERS 



0000 0003 CRDCTRL 

*CRDSTAT 
0000 0001 ID 



EQU 
EQU 
EQU 



DMA REGISTERS 



0050 0000 
0050 0004 
0050 0006 
0050 0000 
0050 0008 
0050 OOOC 
0050 OOOE 



DMADRO 

DMUCTO 

DMCTRLO 

DMSTAT 

DMADR1 

DMUCT1 

DMCTRL1 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



CARD+2 
CARD+2 
CARD 



DMAC 

DMAC+4 

DMAC+6 

DMAC 

DMAC+8 

DMAC*$C 

DMAC*$E 



* AMIGO RELATED CONSTANTS 



0000 005E 

0000 003E 

0000 0040 

0000 0020 

0000 0070 

0000 0068 

0000 0040 



PTB 

PLA 

DTAC 

DLAC 

DSJ 

DSAD 

ICMND 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$5E 
$3E 
$40 
$20 
$70 
$68 
$40 



PHI TALK ADDRESS 

PHI LISTEN ADDRESS 

DISK PRIMARY TALK BASE 

DISK PRIMARY LISTEN BASE 

DSJ SECONDARY 

DISK STANDARD SECONDARY 

INTERFACE COMMAND SETUP 



0000 


0080 


EOI 


EQU 




$80 


0000 


005F 


UNT 


EQU 




$5F 


0000 


003F 


UNL 
* 


EQU 




$3F 


0000 


0000 


* 

SECTOR 

* 


EQU 











* 

* REGISTER SETUP 




0000 


0000 


DTEMP 


EQU 


DO 




0000 


0001 


MTEMP 


EQU 


Dl 




0000 


0002 


BCOUNT 


EQU 


D2 




0000 


0003 


TCOUNT 


EQU 


D3 




0000 


0004 


DZERO 


EQU 


D4 




0000 


0005 


FREE3 


EQU 


D5 




0000 


0006 


FREE2 


EQU 


D6 




0000 


0007 


FREE1 


EQU 


D7 




0000 


0000 


BYTEPTR 


EQU 


AO 




0000 


0001 


FIFO 


EQU 


Al 




0000 


0002 


PORT 


EQU 


A2 




0000 


0003 


ATEMP 


EQU 


A3 




0000 


0004 


STATP 


EQU 


A4 




0000 


0005 


GLOBAL 


EQU 


A5 




0000 


0006 


BASE 


EQU 


A6 








*SP 


EQU 


B7 
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59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 



EOI SETUP 
UNTALK COMMAND 
UNLISTEN COMMAND 



(AVAILABLE FOR USE 
AVAILABLE FOR USE 
AVAILABLE FOR USE 



* PARAMETERS PASSED FROM PASCAL 



0000 


0020 


PARAMS 


EQU 


40-8 


NUMBER OF BY 


0000 


0026 


BUSADDR 


EQU 


38 




0000 


0024 


UNIT 


EQU 


36 




0000 


0022 


HEAD 


EQU 


34 




0000 


001E 


PHI PORT 


EQU 


30 




0000 


001A 


TRACKB 


EQU 


26 




0000 


0016 


SECTORS 


EQU 


22 




0000 


0014 


SPD 


EQU 


20 




0000 


0010 


MADR 


EQU 


16 




0000 


OOOC 


TRACKA 


EQU 


12 


ADDRESS OF T 


0000 


0008 


ERRTYPE 


EQU 


8 








*RETADDR 


EQU 


4 


RETURN ADDRE 






*STATLNK 


EQU 





STATIC LINK 






» LOCAL 


PARAMETERS 




FFFF 


FFFF 


DLA 


EQU 


-1 


DISC LISTEN ADDRESS 


FFFF 


FFFE 


DTA 


EQU 


-2 


DISC TALK ADDRESS 


FFFF 


FFFD 


DSJBYTE 


EQU 


-3 


DSJ BYTE 


FFFF 


FFFC 


STAT3 


EQU 


-4 


STORAGE FOR STATUS BYTES 


FFFF 


FFFB 


STAT2 


EQU 


-5 




FFFF 


FFFA 


STAT1 


EQU 


-6 




FFFF 


FFF9 


STATO 


EQU 


-7 




FFFF 


FFF8 


BDDR3 


EQU 


-8 


STORAGE FOR DISC ADDRESS 



FOR PASSED PARAMETERS 



1-247 



FFFF 


FFF7 


ADDR2 


EQU 


-9 


FFFF 


FFF6 


RDDR1 


EQU 


-10 


FFFF 


FFFS 


ADDRO 


EQU 


-11 


FFFF 


FFF4 


PMASK 


EQU 


-12 


FFFF 


FFF3 


IFLAG 


EQU 


-13 


FFFF 


FFF2 


SPDTEMP 


EQU 


-14 


FFFF 


FFFO 


CYLINDR1 


EQU 


-16 


FFFF 


FFEE 


CyLINOR2 


EQU 


-18 


FFFF 


FFEfl 


RDDRSTOR 


EQU 


-22 


FFFF 


FFE6 


STATSTOR 


EQU 


-26 


FFFF 


FFE6 


LOCALS 


EQU 


-26 



00000000 4E56 
00000004 246E 
00000008 43ER 
OOOOOOOC 49EA 
00000010 4284 



FFE6 ASMR FORMAT LINK BASE,#LOCALS 
001E MOVER. L PHI PORT (BASE) .PORT 

0015 LEA FIFOFFSETfPORT ),FIFO 

0017 LEA STRTPOFFS(PORT),STATP 

CLR.L DZERO 
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116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 



PPOLL MASK 

INTERRUPT FLAG 

UPPER 3 BITS=S.P,D 

CVL ADDR FOR SEEK 

CYL ADDR FOR ADDR REC 

STORAGE FOR SYSTEM INTERRUPT VECTOR 

STORAGE FOR SYSTEM STATIC LINK 

TOTAL AMOUNT OF LOCAL STOREAGE 



ADDRESS OF PHI CARD INTERFACE 



00000012 47FR 03E2 
00000016 2B4B FFF4 
OOOOOOIA 2B4E FFF8 

0000001E 122E 0027 

00000022 103C 0080 
00000026 E228 

00000028 1D40 FFF4 

0000002C 103C 0040 
00000030 002E 0027 
00000034 1D40 FFFE 

00000038 103C 0020 
0000003C D02E 0027 
00000040 1D40 FFFF 

00000044 266E 0008 
00000048 2684 

0000004A 6100 0378 



LEA 

MOVE.L 

MOVE.L 

MOVE .8 
MOVE.B 
LSR.B 
MOVE .B 

MOVE .B 

ADD.B 

MOVE.B 

MOVE.B 

ADD.B 

MOVE.B 

MOVER. 
MOVE.L 



ISV,ATEMP SET UP INTERRUPT VECTOR 

ATEMP, INITISRIB+8(GL0BAL) ADDRESS OF ISR 
BRSE,INITISRI8+12(GLOBAL) STATIC LINK 



BUSRDDR+1(BASE),MTEMP 
#$80. DTEMP 
MTEMP, DTEMP 
DTEMP, PMASK(BASE) 

#DTAC,DTEMP 
BUSADDR+1 (BASE) ,DTEMP 
DTEMP, DTA(BASE) 

#DLAC. DTEMP 
BUSADDR+1 (BASE) ,DTEMP 
DTEMP, DLA(BASE) 

L ERRTYPE(BASE) ,ATEMP 
DZERO, (ATEMP) 



BSR SFM 



SET FILE MASK 



0000004E 
00000052 
00000054 
000000S8 



266E OOOC 
2013 

BOAE 001A 

6600 002C 



0000005C 6100 009A 

00000060 266E OOOC 

00000064 3D6B 0002 
FFFO 

165 0000006R 302E 0014 

166 0000006E C1FC 0020 

167 00000072 1D40 FFF2 
168 

169 00000076 6100 0238 

170 0000007A 6100 0272 

171 0000007E 6100 0092 



MOVER. L TRPCKA (BASE), ATEMP 
MOVE.L (ATEMP) .DTEMP 
CMP.L TRRCKB(BASE) , DTEMP 
BNE SPARE 
IF EQUAL THEN FORMAT TRACK A 
BSR DMSETUP 
MOVER. L TRRCKfl(BRSE) , RTEMP 
MOVE.U 2 (ATEMP) ,CYLINDR1 (BASE) 

MOVE.U SPD(BASE), DTEMP 

MULS #32, DTEMP 

MOVE.B DTEMP, SPDTEMP (BASE ) 

BSR SEEK 
BSR INITZE 
BSR ERCHK 



CALCULATE PPOLL MASK 



CALCULATE DISC TALK ADDRESS 



CALCULATE DISC LISTEN ADDRESS 



LOAD ERRTYPE ADDRESS 
CLEAR ERRTYPE 



COMPARE TRACK A & B 



SHIFT S,P,D TO UPPER 3 BITS 



PAGE 

172 
173 
174 
175 
176 
177 

178 

179 

180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 

192 
193 

194 

195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 

212 
213 
214 
21S 

216 

217 
218 
219 
220 
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00000082 6000 006R BRR END_IO 



« NOD SPARE TRACK A WITH TRACK B 



00000086 
0000008R 

00000090 

00000096 

0000009C 
OOOOOOAO 
OOO0OOR4 
0OO0OOR8 
OOOOOOPC 
OOOOOOBO 
OOO0O0B4 
OOOOO0B8 
OOOOOOBC 
OOOOOOCO 

O00OO0C4 

OOOOOOCA 
OOOOOOCE 

OOOOO0D4 

OOOOOODfl 
OOOOOODE 
000O00E2 
00O0O0E6 
OOOOOOER 



266E 
3D6B 
FFFO 

3D6E 
FFEE 
1D7C 
FFF2 

6100 
6100 
6100 
61C0 
6100 
102E 
66C0 
102E 
0200 
6600 



OOOC SPARE 
0002 



0020 



0212 
02CA 
0052 
0244 
0064 
FFFD 
0038 
FFF9 
001F 
002C 



3D6E 001C 
FFFO 

266E OOOC 
3D6B 0002 
FFEE 

1D7C 0080 
FFF2 

6100 01D4 
6100 028C 
6100 0014 
6100 0206 
6100 0026 



OOOOOOEE 4ESE 

OOOOOOFO 26SF 

0O00OOF2 DEFC 

0O00O0F6 4ED3 



OO0OO0F8 



23EE 
0050 
202E 
C1FC 



00000100 
00000104 
00000108 5340 
0000010A 33C0 0050 



0010 
0000 
0016 
0100 



00000110 



0004 
4E75 



MOVER. L TRACKA(BASE), ATEMP 
MOVE.U 2(ATEMP) ,CYLINDR1 (BASE) 

MOVE.U TRRCKB+2(BASE) , CYLINDR2 (BASE ) 

MOVE.B #32,SPDTEMP(BRSE) SET D-BIT 

BSR SEEK 

BSR RDDREC 

BSR DMSETUP 

BSR INITZE 

BSR ERCHK 

MOVE.B DSJBYTE(BASE) , DTEMP 

BNE END 10 

MOVE.B STRTO(BASE) , DTEMP 

RNDI.B #11 F . DTEMP CLEAR SPD 

BNE END_IO 

MOVE.U TRACKB*2 (BASE ),CYLINDR1 (BASE) 

MOVEA.L TRACKA(BASE) , ATEMP 
MOVE.U 2(ATEMP) .CYLINDR2 (BASE ) 

MOVE.B #128,SPDTEMP(BASE) SET S-BIT 

BSR SEEK 

BSR ADDREC 

BSR DMSETUP 

BSR INITZE 

BSR ERCHK 



UNLK 
MOVEfl.L 
RDDP.U 
JMP 



BASE 

(SP)+, ATEMP 

#PRRPMS,SP 

(RTEMP) 



DMA SE X UP ROUTINE 

- AT THE END OF THIS ROUTINE THE DMA CARD UILL BE 
SET UP FOR A DISK TRANSFER 



DMSETUP MOVE.L MROR (BRSE ) , DMADRO 



MOVE.L 
MULS 
SUBQ 
MOVE.U) 

RTS 



SECTORSfBASE) , DTEMP 
#$100, DTEMP 



#1 , DTEMP 
DTEMP, DMUCTO 



CONVERT TO BYTE COUNT 



LOUER 2 BYTES ONLY 



Error Check Routine 



1-248 
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221 
222 
223 
224 
22S 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
2S0 
251 

252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 



00000112 
00000116 
0000011A 
OOOOOllE 
00000122 
00000126 
0000012A 
0000012E 
00000132 
00000136 
0000013A 
0000013E 
00000142 
00000146 
0000014A 
0000014C 
000001SO 
00000154 



6100 
6100 

102E 
6600 
102E 
0200 
6700 
6100 
266E 
16EE 
16EE 
16EE 
16RE 
266E 
36C4 
16EE 
16AE 
4E7S 



0042 ERCHK 
007E 

FFFD 

OOOE 

FFF9 

001F 

0028 

00D4 ERROR 

0008 

FFF9 

FFFA 

FFFB 

FFFC 

OOOC 

FFF5 
FFF6 

FINISH 



00000156 
00000158 
0000015C 
00000160 
00000164 
00000168 
0000016C 
00000170 
00000172 

00000178 
0000017C 
0000017E 
00000182 
00000186 
0000018A 
0000018E 
00000192 



00000196 
0000019A 
0000019E 
000001A2 
000001A6 
000001AA 
000001AE 
00000180 
000001B4 
000001B8 
000001BC 
000001CO 
000001C4 



1884 

1544 0013 
188C 0040 
12BC 003E 
12AE FFFE 
12BC 0070 
143C 0001 
1884 

157C 0004 
0013 

41EE FFFO 
1884 

12BC 0001 
4EBA 029A 
18BC 0040 
12BC OOSF 
12BC 003F 
6000 010C 



DSJR 



ENDSJR 



BSR 

BSR 

MOVE.B 

BNE 

MOVE.B 

ANDI.B 

BEQ 

BSR 

MOVEA.L 

MOVE.B 

MOVE.B 

MOVE.B 

MOVE.B 

MOVEA.L 

MOVE.UI 

MOVE.B 

MOVE.B 

RTS 



DSJR 

DSTAT 

DSJBYTE(BASE) ,DTEMP 

ERROR CHECK DSJ BYTE 

STATO(BASE),DTEMP 

#$1F.DTEMP CLEAR SPD BITS 

FINISH CHECK STATUS 1 

RADDREC 

ERRTYPE(BASE), ATEMP 

STATO(BASE) , (ATEMP)* 

"' "'"' ATEMPJ+ 

ATEMP1+ 

ATEMP 

ATEMP 



STAT1 BASE 
STAT2 BASE), ( 
STAT3(BASE), ( 
TRACKA(BASE), 
D2ER0, (ATEMP) 
AODRO(BASE) ' 



ATEMP)* 



ADDR1 (BASE), (ATEMP) 



DSJ ROUTINE 



MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 

LEA 

MOVE.B 

MOVE.B 

JSR 

MOVE.B 

MOVE.B 

MOVE.B 

BRA 



DZERO, (STATP) 
DZERO, IMSK(PORT) 
#ICMND, (STATP) 
#PLA, (FIFO) 
DTArBASE), (FIFO) 
tDSJ, (FIFO) 
#$01,BCOUNT 
DZERO. (STATP) 
#$04, IMSK (PORT) 

DSJBYTE(BASE),BYTEPTR 

DZERO, (STATP) 

#$01, (FIFO) 

I WAIT 

#ICMND, (STATP) 

#UNT, (FIFO) 

#UNL, FIFO) 

IDLE 



DISABLE INTERRUPTS 



LOAD INPUT COUNT 
INTERRUPT ENABLE 
ENABLE "FIFO BYTE" 

STORE ADDR. FOR DSJ 

ENABLE TRANSFER 
UAIT FOR INTERRUPT 



1544 0013 
18BC 0040 
12BC 005E 
12AE FFFF 
12BC 0068 
6100 OODC 
1884 

12BC 0003 
18BC 0080 
12AE 0025 
18BC 0040 
12BC 003F 
6100 OODA 



* REQ.UEST AND 

* 

DSTAT MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
BSR 

MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
BSR 



READ DISK STATUS 

DZERO. IMSK (PORT) 
#ICMND, (STATP) 
#PTA. (FIFO) 
DLA(BASE). (FIFO) 
#DSAD, (FIFO) 
PNUAIT 

DZERO, (STATP) 
#$03, (FIFO) 
#EOI, (STATP) 



UNIT+1 (BAS 
#ICMND, (ST 
#UNL, (FIFO) 
IDLE 



AT 



OP CODE 



(FIFO) 
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277 
278 
279 
280 
281 
282 
283 
284 

285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 

317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 

330 



000001C8 
000001CC 
00000100 
000001D4 
000001D8 
000001DC 
000001EO 
000001E2 

000001E8 
000001EC 
OOOOOIFO 
000001F4 
000001F8 
000001FC 
00000200 



00000204 
00000208 
0000020C 
00000210 
00000214 
00000218 
0000021C 
0000021E 
00000222 
00000226 
0000022A 
0000022E 
00000232 
00000236 
0000023A 
0000023E 
00000242 
00000246 
0000024A 
0000024E 
00000250 

00000256 
0000025A 
000002SE 
00000262 
00000266 
0000026A 
0000026E 



18BC 
12BC 
12AE 

12BC 
143C 
41EE 
1884 
157C 
0013 
18BC 
12BC 
4EBA 
18BC 
128C 
12BC 
6000 



1544 

18BC 
12BC 
12AE 
12BC 
6100 
1884 
12BC 
18BC 
12AE 
18BC 
12BC 
6100 
18BC 
12BC 
12AE 
12BC 
143C 
41EE 
1884 
1S7C 
0013 
18BC 
12BC 
4EBA 
18BC 
12BC 
12BC 
6000 



0040 
003E 
FFFE 
0068 
0004 
FFF9 

0004 

0080 
0004 

022C 
0040 
005F 
003F 
009E 



MOVE.B #ICMND. (STATP) 

MOVE.B #PLA. (FIFO) 

MOVE.B DTA(BASE). (FIFO) 

MOVE.B #DSAD,(FIFO) 

MOVE.B #$04,BC0UNT 

LEA STATO(BASE),BYTEPTR 

MOVE.B DZERO. (STATP) 

MOVE.B #$04,IMSK(P0RT) 



MOVE.B #$80, (STATP) 

MOVE.B #$04. (FIFO) 

JSR IUAIT 

MOVE.B #ICMND, (STATP) 

MOVE.B #UNT,(FIFO) 

MOVE.B #UNL,(FIFO 

BRA IDLE 



LOAD INPUT COUNT 
STORE ADDR. FOR STAT 



ENABLE "FIFO BYTE" 



LF INHIBIT 

COUNTED XFER ENABLE 



* REQUEST AND READ ADDRESS RECORD 



0013 

0040 
005E 
FFFF 
0068 
006E 

0014 

0080 
0025 
0040 
003F 
006C 
0040 
003E 
FFFE 
0068 
0004 
FFF5 

0004 

0080 

0004 
01BE 

0040 
OOSF 
003F 
0030 



00000272 1544 

00000276 156E 

001D 

0000027C 1884 



RADDREC MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
BSR 

MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
BSR 

MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
LEA 

MOVE.B 
MOVE.B 



MOVE.B 

MOVE.B 

JSR 

MOVE.B 

MOVE.B 

MOVE.B 

BRA 



DZERO. IMSK (PORT) 
#ICMND, [STATP) 
#PTA, (FIFO) 
DLA(BASE). (FIFO) 
#DSAD,(FIFO) 
PNUAIT 

DZERO, (STATP) 
#$14, (FIFO) 
#EOI , (STATP) 
UNIT+1 (BASE , (FIFO) 
#ICMND. (STATP) 
#UNL, (FIFO) 
IDLE 

#ICMND, (STATP) 
#PLA. (FIFO) 
DTA(BASE). (FIFO) 
#DSAD. (FIFO) 
#$04,BC0UNT 
ADDRO(BASE),BYTEPTR 
DZERO. (STATP) 
#$04, IMSK (PORT) 



OP CODE 



LOAD INPUT COUNT 
STORE ADDR. FOR ADDRESS REC 



ENABLE "FIFO BYTE" 



#$80, (STATP) 

#$04. FIFO) 

IUAIT 

#ICMND. (STATP) 

#UNT, (FIFO) 

#UNL, (FIFO) 

IDLE 



LF INHIBIT 

COUNTED XFER ENABLE 



* PPOLL HOLDOFF 



001F 
FFF4 



MOVE.B 

MOVE.B 



DZERO, PPSNS( PORT) 
PMASK ( BASE ) , PPMSK ( PORT ) 



SET 



POSITIVE SENSE 
PPMSK 



MOVE.B DZERO, (STATP) 



1-249 
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331 

332 
333 
334 
335 
336 
337 

338 

339 
340 

341 
342 
343 
344 
345 
346 
347 
348 

349 
350 

351 
352 
3S3 
354 
3S5 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 



0000027E 157C 0020 

0013 
00000284 6000 0198 



MOVE.B #$20, IMSK (PORT) 



PPOLL RESPONSE 



8RA 



IUfilT 



00000288 156E FFF4 

001F 
0000028E 156E FFF4 

001D 
00000294 1884 
00000296 157C C020 

0013 
0000029C 6000 0180 



* PPOLL NEGATION HOLOOFF 

PNUAIT MOVE.B PMASK (BASE) , PPSNS ( PORT) SET PPSNS 
MOVE.B PMASK (BASE ),PPMSK( PORT) SET PPMSK 



MOVE.B DZERO. (STATP) 
MOVE.B #$20, IMSK (PORT 



IUBIT 



* FIFO IDLE HOLDOFF 



000002AO 1544 0013 
000002A4 1884 
000002A6 157C 0002 

0013 
000002AC 6000 0170 



IDLE MOVE.B DZERO , IMSK (PORT) 
MOVE.B DZERO, (STATP) 
MOVE.B #$02, IMSK (PORT) 



ENABLE "FIFO IDLE" 



BRA 



IUBIT 



* SEEK ROUTINE 



000002BO 
000002B4 
000002B8 
000002BC 
0000O2C0 
000002C2 
000002C4 
000002C8 
000002CC 
000002D0 
000002D4 
000002D8 
000002DA 
000002DE 
000002E2 
000002E6 
000002EA 
000002EC 



18BC 
12BC 
12AE 
12BC 
61C6 
1884 
12BC 
12AE 
12BE 
12BE 
12BE 
61C6 
18BC 
12BC 
18BC 
12BC 
61B4 
6084 



0040 
005E 
FFFF 
0068 



SEEK 



0002 
0025 
FFFO 
FFF1 
0023 

0080 

0000 
0040 
003F 



MOVE.B 

MOVE.B 

MOVE.B 

MOVE.B 

BSR 

MOVE.B 

MOVE .B 

MOVE.B 

MOVE.B 

MOVE.B 

MOVE.B 

BSR 

MOVE.B 

MOVE.B 

MOVE.B 

MOVE.B 

BSR 

BRA 



» INITIALIZE 

* 
000002EE 18BC 0040 INITZE MOVE.B 

000002F2 12BC 005E MOVE.B 

000002F6 12BE FFFF MOVE.B 

000002FA 12BC 0068 MOVE.B 

000002FE 6188 BSR 

00000300 102E FFF2 MOVE.B 

00000304 0600 OOOB ADDI.B 



#ICMND. (STATP) 

#PTA, (FIFO) 

DLA(8ASE),(FIF0) 

#DSAD,(FIFO) SEEK SECONDARY 

PNUAIT 

DZERO, (STATP) 

#$02, (FIFO) OP CODE 



UNIT*! (BASE), (FIFO) 
" "■ -ll(BASE) , ' 
CYLINDR1+1 (BASE 



CYLINDR1 (BBS 



(FIFO) CYLAD HIGH BYTE 
E), (FIFO) CYLAO LOU BYTE 
HEAD*1(BPSE),(FIF0) 
IDLE EMPTY FIFO 

#EOI. (STATP) 
#SECTOR, (FIFO) 
#ICMND. rSTATP) 
#UNL, (FIFO) 
IDLE 
PUAIT WAIT FOR SEEK COMPLETION 



#ICMND, (STATP) 

#PTfi. (FIFO) 

DLA(BASE), (FIFO) 

#DSAD,(FIFO) 

PNUAIT 

SPDTEMP(BASE),DTEMP 

#$B,DTEMP ADD SPD TO OP CODE 
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383 
384 
38S 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 

397 

398 

399 
400 

401 
402 
403 
404 
405 
406 
407 

408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
4 34 



00000308 1280 
0000030B 18BC 0080 
0000030E 12AE 0025 
00000312 18BC 0040 
00000316 12BC 003F 
0000031A 6184 

0000031C 18BC 0040 
00000320 12AE FFFF 
00000324 12BC 0060 



DTEMP, (FIFO) 
#EOI, (STATP 
UNIT-H(BASE), (FIFO) 
#ICMND, (STATP) 
#UNL, (FIFO) 
IDLE 

#ICMND, (STATP) 

DLA(BASE),(FIFO) 

#$60, (FIFO) SEC. UDAT 



00000328 
0000O32A 
0O00O32E 

00000336 

0000033C 

00000342 

00000348 
0000034C 
0000034E 
00000350 

00000352 
00000356 

000003SC 
00000360 
00000364 
00000368 



0000036C 
00000370 
00000374 
00000378 
0000037C 
00000380 
00000382 
00000386 
0000038A 
0000038E 
00000392 
00000396 
0000039A 
0000039E 
000003B2 
000003B6 
000003SA 



1884 
1D44 

33FC 
0050 
157C 
0003 
1S7C 
0019 

263C 
8C74 
4A2E 
6608 
5383 
6CF6 

6000 
1S7C 
0019 
18BC 

12BC 
12BC 
6000 



18BC 
12EC 
12AE 
12BC 
6100 
1884 
12BC 
12PE 
12AE 
12AE 
12AE 
6100 
18BC 
12BC 
18BC 
12BC 
6000 



FFF3 
OOOC 
0006 
0089 



MOVE .B 
MOVE.B 
MOVE.B 
MOVE.B 
MOVE.B 
BSR 

MOVE.B 
MOVE.B 
MOVE.B 

MOVE.B DZERO, (STATP) 

MOVE.B DZERO. IFLBG(BASE) 

MOVE.UI #$OC,DMCTRLO (PRIORITY .OUTPUT , BYTE) 



MOVE.B #$89,CR0CTRL(P0RT) ( INTERRUPT, OUTPUT , CHAN. 0) 
0002 MOVE.B #$02,CTRL(P0RT) ENABLE DMARQ, 10 BIT PROC? 
* NOU DATA IS BEING TRANSFERRED 



0005 



MOVE.L #363636, TCOUNT 



2 SEC. TIMEOUT 



FFF3 LOOPU TST.B IFLAG(BASE) 

BNE.S UDONE 

SUBQ.L #1, TCOUNT 

BGE LOOPU 

* FAILED TO DO IT IN 2 SECONDS 

0106 BRA TESCBPE 

0080 UDONE MOVE.B #$80 , CTRL ( PORT ) 



0040 
003F 
005 F 
FF36 



MOVE. 
MOVE . 
MOVE. 
BRA 



#ICMND, (STATP) 
#UNL, (FIFO) 
#UNT, (FIFO) 
IDLE 



* ADDRESS RECORD ROUTINE 



0040 
005E 
FFFF 
0068 
FFOB 

OOOC 
0025 
FFEE 
FFEF 
0023 
FC08 
0080 
OOCO 
0040 
003F 
FEC6 



ADDREC 



MOVE. 

MOVE. 

MOVE. 

MOVE. 

BSR 

MOVE. 

MOVE. 

MOVE. 

MOVE. 

MOVE. 

MOVE. 

BSR 

MOVE. 

MOVE. 

MOVE. 

MOVE. 

BRA 



#ICMND. (STATP) 
#PTB, (FIFO) 
DLB(BflSE), (FIFO) 
#DSBD,(FIFO) 
PNUAIT 

DZERO, (STATP) 
#$0C, (FIFO) 



ADDRESS RECORD SECONDARY 



OP CODE 



UNIT*1(BBSE) , (FIFO) 
CYLINQR2(BPSE], (FIFO) 
CYLINDR2+1 (BASE) t (FIFO) 



CYLINQR2(BPSE], (FIFO 

CYLINDR2+1 (BASE) , (F~ 

HEBD+llBASE) ,(FIFO) 

IDLE EMPTY FIFO 

*EOI, (STATP) 

♦SECTOR, (FIFO) 

#ICMND, iSTBTP) 

#UNL, (FIFO) 

PUAIT UBIT FOR COMPLETION 



CYLAD HIGH BYTE 
CYLAD LOU BYTE 
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435 








* 


EMPTY INBOUND FIFO 






436 








* 












437 


000003AE 


1884 




INEMP 


MOVE.B 


DZERO. (STATP) 
#$04,IMSK(P0RT) 






438 


000003BO 


157C 


0004 






MOVE.B 










0013 
















439 


000003B6 


4A2A 


0011 


EMPTY 


TST.B 


INTR(PORT) 


CHECK FOR BYTE AVAILABLE 




440 


000003BA 


6700 


0006 






BEQ 


EMPTY1 


IF SO, READ, IF NOT RETURN. 




441 


000003BE 


4A11 








TST.B 


(FIFO) 
EMPTY 


(DUMMY READ OF FIFO TO EMPTY IT) 




442 


000003CO 


60F4 








BRA 






443 


000003C2 


4E75 




EMPTV) 


RTS 








444 








* 












445 








x 












446 








* 


SE1 


FILE MASK ROUTINE 






447 








* 




OUTPUT BYTE =XXXXDSCA 






448 








* 




D=DECREMENTAL SEEK (1) OR INCREMENTAL SEEK(O) 
S-l ALLOWS AUTOMATIC SEEK TO SPARE TRACK 




449 








* 






4S0 








X 




C=l ENABLES CYLINDER MODE, C=0 


SURFACE MODE 




451 








X 




A=l ENABLES AUTOMATIC SEEK AND 


END OF CYLINDER (SEE D) 




452 








X 












453 








X 












454 


000003C4 


18BC 


0040 


SFM 


MOVE.B 


#ICMND. (STATP) 
#PTA, (FIFO) 
DLA(BASE), (FIFO) 
#DSAD. (FIFO) 
PNUAIT 






455 


000003C8 


12BC 


005E 






MOVE.B 






456 


000003CC 


12AE 


FFFF 






MOVE.B 






457 


000003DO 


12BC 


0068 






MOVE.B 






458 


00000304 


6100 


FEB2 






BSR 






459 


000003D8 


1884 








MOVE.B 


DZERO, (STATP) 
#$0F, (FIFO) 
#EOI. (STATP) 






460 


0000030PI 


12BC 


OOOF 






MOVE.B 






461 


000003DE 


18BC 


0080 






MOVE.B 






462 


000003E2 


12BC 


0001 






MOVE.B 


#1, (FIFO) 






463 








* 


DISABLE AUTO SEEK TO SPARE, EN SURFACE, AUTO 




464 








* 




SEEK TO NEXT CYLINDER 






465 


000003E6 


18BC 


0040 






MOVE.B 


#ICMND, (STATP) 
#UNL, (FIFO) 






466 


000003EA 


12BC 


003F 






MOVE.B 






467 


000003EE 


6100 


FEBO 






BSR IDLE 






468 


000003F2 


6000 


FE7E 






BRA PUAIT 






469 








* 












470 








* 












471 








* 


INTERRUPT SERVICE ROUTINE 






472 








* 












473 








* 












474 








* 


SERVICE COP 


INTERRUPT 






475 








* 












476 


000003F6 


265F 




ISV 


MOVEA.L 


(SP)+,ATEMP 


RETURN ADDRESS 




477 


000003F8 


2C5F 








MOVEA.L 


SP)+,BASE 


STATIC LINK 




478 


000003FA 


2E8B 








MOVE.L 


ATEMP. (SP) 
PHIPORT (BASE), PORT 
FIFOFFSET(PORT) ,FIFO 


(POP PARAMETER & PUSH) RETURN ADDRESS 




479 


000003FC 


246E 


001E 






MOVEA.L 






480 


00000400 


43EA 


0015 






LEA 






481 


00000404 


43EA 


0017 






LEA 


STATPOFFS(PORT), STATP 






482 


00000408 


4284 








CLR.L 


DZERO 






483 




















484 


0000040A 


1544 


0003 






MOVE.B 


DZERO, CRDCTRL(PORT) 

CTRLfPORT) 

PWBIT 


DISABLE INTERRUPTS, DMA 

DUMMY READ TO CLEAR INTERRUPT 




485 


0000040E 


4B2A 


0019 






TST.B 




486 


00000412 


6100 


FESE 






BSR 






487 


00000416 


1D7C 
FFF3 
4E7S 


0001 






MOVE.B 


#$01,IFLAG(BASE) 






488 


0000041C 








RTS 








489 
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490 








X 












491 








X 












492 








* 


IDA IT ROUTINE 






493 


0000041E 


363C 


E77B 


I WAIT 


MOVE.U 


#59258, TCOUNT 
INTR(PORT) .DTEMP 
TCOUNT, IIUAIT 
TESCAPE 


TIME OUT COUNT FOR 200 MILLISECONDS 




494 


00000422 


102B 


0011 


IIWAIT 


MOVE.B 






495 


00000426 


56CB 


FFFA 






DBNE 


TRY AGAIN 




496 


0000042A 


672E 








BEQ.S 


TIMED OUT IF STILL CLEAR 




497 




















498 


0000042C 


B03C 


0004 






CMP.B 


#04, DTEMP 
BYTE 






499 


00000430 


67O0 


OOOE 






BEQ 


CHECK INTERRUPT TYPE 




500 


00000434 


B03C 


0020 






CMP.B 


#$20, DTEMP 






501 


00000438 


6700 


001E 






BEQ 


PPU 






502 


0000043C 


6000 


0014 






BRA 


OUT 






503 




















504 








* 


SERVICE FIFO 


BYTE AVAILABLE INTERRUPT 




505 








* 












506 


00000440 


1001 




BYTE 


MOVE.B 


(FIFO) , (BYTEPTR)* 
♦l.BCOUNT 

OUT 


STORE INPUT DATA 




507 


00000442 


5302 








SUBQ.B 


DECREMENT INPUT COUNT 




508 


00000444 


6700 


OOOC 






BEQ 






509 


00000448 


0C2fi 


0004 


TEST 


CMPI.B 


#4,INTR(P0RT) 


ANOTHER BYTE? 








0011 
















510 


0000044E 


66F8 








BNE 


TEST 






511 


00000450 


60EE 








BRA 


BYTE 






512 


00000452 


1884 




OUT 


MOVE. 8 


DZERO, (STATP) 
DZERO, IMSK(P6RT) 


DISABLE INTERRUPTS 




513 


00000454 


1544 


0013 






MOVE.B 






514 








* 












515 








* 












516 








* 


SERVICE PPOLI INTERRUPT 






517 








* 












518 


00000458 


4E7S 




PPU 


RTS 








519 




















520 


0000045A 


6100 


OOOE 


TESCflPE BSR 


HDURCLEAR INVOKE I FC , CLEAR DMA. ETC. 
#-10,SYSGLOBALS-2(GLOBAL) ESCAPE (-10) 




521 


0000045E 


3B7C 


FFF6 






MOVE.U 








FFFE 
















522 


00000464 


2E6D 


FFF6 






MOVEA.L 


SYSGLOBALS-IO(GLOBAL) 


,SP 




523 


00000468 


4E75 








RTS 








524 








* 












525 








* 












526 








* 


HARDWARE CLEAR 






527 








* 












528 




0000 


046B 


HDURCLEBR EQU * 








529 


0000046FI 


4B79 
0000 


0050 






TST.U 


DMSTAT 


READ DMA CARD CONTROL REG TO DISARM IT 




530 


00000470 


1544 


0001 






MOVE.B 


DZERO, ID (PORT) 
#$80,HPIBADR(PORT) 


SOFTWARE RESET 




531 


00000474 


1S7C 


0080 






MOVE.B 


ON-LINE 








001B 
















532 


0000047A 


6100 


0010 






BSR 


IFCLEAR 


ASSERT IFC 




533 








* 


DISK 


CLEAR FOR HANGUPS 






534 


0000047E 


157C 


0040 






MOVE.B 


#ICMND,STATPOFFS(P0RT) 








O017 
















53S 


00000484 


157C 
0015 
4E75 


0014 






MOVE.B 


#$14,FIFOFFSET(P0RT) 


DEVICE CLEAR 




536 


0000048R 








RTS 








537 








* 












538 








X 












539 








* 


INTERFACE CLEAR 






540 








X 
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541 0000048C 1S7C 0011 IFCLEAR MOVE.B tSll , CTRL ( PORT ) I FC , INIT OUTBOUND FIFO 

542 00000492 7642 DEL100 MOVEQ #66,TC0UNT 100 MICROSECOND DELAY 

543 00000494 S1CB FFFE REP DBRA TCOUNT.REP „„.„„ 

544 00000498 1S7C 0080 MOVE.B t$80, CTRL (PORT ) 8-BIT PROCESSOR 

0019 

545 0000049E 4E75 RTS 

546 * 

547 * 

548 * 

549 END 
PASS 1 ERRORS : 

PASS 2 ERRORS : 
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GPIO 



Purpose 

GPIO contains assembly language low -level drivers. 

Usage 

GPIO is used for the 98622 interface. 

Requirements 

G DRVandCOMASM 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PRSS 1 COMPLETE. ERRORS: 



PAGE 2 [2.0] 11/4/82 16:22:45 IOLIB EXTG - GPIO DRIVERS 

3 ******************************************************************************** 

4 * 

5 * COPYRIGHT (C) 1982 BY HEWLETT-PACKARD COMPANY 

6 * 

7 ******************************************************************************** 

8 * 

9 * 

10 * IOLIB EXTG 

11 * 

12 * 

13 *************************************************** ***************************** 

14 * 

15 * 

16 * 

17 * Library - IOLIB 

18 » 

19 * Purpose - This set of assembly language code is intended to be used as 

20 * a PASCAL module for I/O drivers for use by the external I/O 

21 * procedures library. 

22 * 

23 * 

24 * Date - 09/20/81 

25 * Update - 10/06/82 

26 * Release - 10/06/82 

27 * 

28 * 

29 * Source - IOLIB :GPI0. TEXT 

30 * Object - IOLIB:GPIO.CODE 

31 * 

32 * 

33 ******************************************************************************** 

34 * 

35 * 

36 * RELEASED 

37 * VERSION 2.0 

38 * 

39 * 

40 ***************************************************** *************************** 
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42 

43 
44 
45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
$5 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
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******************************************************************************** 

* 

* 

* The following lines are used to teil the LINKER/LOADER what this module 

* looks like in PASCAL terms. 
* 

* Note that it is possible to create assembly modules that are functions. 

* These routines are called through an indirect pointer using the CPLL 

* facility which does NOT permit functions. 
* 

* This module is called 'EXTG' ( upper or lower case - doesn't matter ) 

* independent of the file name ( by use of the MNAME pseudo-op ). 



fill the externally used procedures are called 'EXTG 

this module. If you are using assembly to access tnem use the 
'EXTG_@@@@@<?@' name. If you are using Pascal use the •laaamtiaaa' 
name . 



***************************** 
MNAME EXTG 
SRC MODULE EXTG; 
SRC IMPORT iodeclarat 
SRC EXPORT 



********************* ****************************** 



SRC 


PROCEDURE 


eg init 


temp 


flNYPTR 


; 




SRC 


PROCEDURE 


eg_isr 


temp 


ANYPTR 


; 




SRC 


PROCEDURE 


eg_rdb 


temp 


BNYPTR 


VBR x 


CHAR) ; 


SRC 


PROCEDURE 


eg_wtb 


temp 


RNYPTR 


val 


CHAR) ; 


SRC 


PROCEDURE 


eg_rdw 


temp 


flNYPTR 


VBR x 


io_word ) ; 


SRC 


PROCEDURE 


eg_wtw 


temp 


BNYPTR 


val 


io_word ) ; 


SRC 


PROCEDURE 


eg_rds 


temp 


flNYPTR 


reg 
VBR x 


io_word : 


SRC 










io_wo rd ) ; 


SRC 


PROCEDURE 


eg_wtc 


temp 


flNYPTR 


reg 
val 


io_word ; 


SRC 










io word ) 


SRC 


PROCEDURE 


eg_t f r 


temp 


flNYPTR 


bcb 


flNYPTR ) ; 


SRC 


PROCEDURE 


eg_clr 


temp 


flNYPTR 


line 


io bit ; 


SRC 


PROCEDURE 


eg_set 


temp 


flNYPTR 


line 


io bit ) ; 


SRC 


PROCEDURE 


eg test 


temp 


flNYPTR 


line 


io bit ; 


SRC 










VBR x 


BOOLEAN ) 


SRC END; 


< of EXTG > 













82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 
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******************************************************************************** 

* 

* SYMBOLS FOR EXPORT BS PROCEDURE NAMES 



***********> 



******************* 



************************************************ 
DEF EXTG_EXTG 

DEF EXTG EG INIT 
DEF EXTG EG_ISR,EXTG_EG_TDMB 
DEF EXTG_EG_RDB,EXTG_EG_UTB 
DEF EXTG EG_RDU,EXTG_EG_UTUI 
DEF EXTG EG_ROS,EXTG_EG_UTC 
DEF EXTG_EG_TFR 

DEF EXTG_EG_SET,EXTG_EG_CLR,EXTG_EG_TEST 

******************************************************************************** 
* 

* SYMBOLS FOR IMPORT 
* 

* j****************************************************************************** 

REFfl STBSY 

REFfl STCLR 

REFfl ITXFR 

REFB ABORT 10 

REFfl LOGINT 

REFfl GETDMB 

REFB DROPDMB 

REFA TESTDMA 

REFA DMA STBSY 

REFA UAIT TFR 

REFA CHECOFR r „ 

* change references to allow long jumps when the I/O 
x modules get moved around 

LMODE STBSY 

LMODE STCLR 

LMODE ITXFR 

LMODE ABORT 10 

LMODE LOGINT 

LMODE GETDMA 

LMODE DROPDMA 

LMODE TESTDMA 

LMODE DMA STBSY 

LMODE UAIT TFR 

LMODE CHEC?_TFR 



475 TM 9/17/82 
47S TM 9/17/82 
475 TM 9/17/82 
475 TM 9/17/82 
475 TM 9/17/82 
475 TM 9/17/82 
475 TM 9/17/82 
475 TM 9/17/82 
475 TM 9/17/82 
475 TM 9/17/82 
475 TM 9/17/82 
475 TM 9/17/82 
475 TM 9/17/82 
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130 INCLUDE COMDCL 
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133 ********************************************** **************** ****************** 

134 * 

135 * modified: 02/22/82 JPC added parm to user EOT S ISR proc's 

136 * 

137 ******************************************************************************** 

138 * 

139 * HPL CONVENTIONS 

140 * 

141 * 

142 * Much of this code is taken intact from the 9826 HPL 

143 * language system EIO ROM ( extended I/O ROM ). 

144 * , . 

145 * The Pascal that will be calling this code uses 

146 * the stack for parameter passage. The HPL code 

147 * uses the Ax and Dx registers for all parameters. 

148 * The Pascal driver entry points on the previous pages 

149 * take care of getting the parameters into the correct 

150 * registers. 

151 * 

152 * 

153 * GENERAL HPL ENTRY/EXIT CONDITIONS: 

154 * 

155 * Al .L = CARD ADDRESS 

156 * A2.L = DRIVER TEMP ADDRESS 

157 * UNLESS OTHERWISE INDICATED, THESE REGISTERS ARE UNALTERED. 

158 * 

159 » 

160 * NELJ ENTRY/EXIT CONDITIONS FOR PASCAL USE : 

161 * 

162 * R3.L = BUFFER CONTROL BLOCK ADDRESS 

163 * In addition to the P.1/A2 convention, Pascal will use 

164 * A3 for a pointer to the buffer control block. 

165 * The HPL system kept much of the transfer 

166 * information in the s.c. temps. 

167 * 

168 * TIME0UT(A2) = contains timeout information 

169 * Timeout was a global temp in HPL and a timeout 

170 * generated an error. 

171 * In PASCAL each card has a timeout value stored in 

172 * its temporary area. A timeout error 

173 * generates an ESCAPE ( which can be trapped ). 

174 * 

175 * 

176 ******************************************************************************** 
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178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 



******************************************************************************** 

* 

* 

* DRIVER TEMPS TEMPLATE 
* 

* OFFSET FROM A2 
* 

* HPL DECLARATIONS ( MODIFIED ) 
* 
* 

********************************************************************** 
PASCAL ISR LINK & UNLINK area 
user ISR: do NOT change the proc/stat link/parm ordering! 

procedure pt r 

static link 

parameter 
card address 
buffer pointer offset 
buffer pointer offset 
ei r byte 

select code ( i.e. 7, 22, etc. ) 
timeout value 

=0 : no timeout 
#0 : value of timeout 
word access to my address 
byte access to my address 
standard space taken from temps 
normal cards ( 32 bytes ) 
98628 card ( 128 bytes ) 







************************** 


0000 


0000 


ISR ENTRY 


EQU 





.19 


0000 


0014 


USER" ISR 


EQU 


20 




0000 


0014 


H ISR" PR 


EQU 


20 


.23 


0000 


0018 


H~ISR~SL 


EQU 


24 


.27 


0000 


001C 


H ISR PM 


EQU 


28 


.31 


0000 


0020 


C ADR 


EQU 


32 


.35 


0000 


0024 


BUFI OFF 


EQU 


36 


.39 


0000 


0028 


BUFO OFF 


EQU 


40 


.43 


0000 


002C 


EIRB OFF 


EQU 


44 




0000 


002D 


10 SC 


EQU 


45 




0000 


002E 


TIHEOUT 

* 


EQU 


46 


.49 


0000 


0032 


* 
MA U 


EQU 


50 


.51 


0000 


0033 


MA - 


EQU 


51 




0000 


0034 


AVAIL OFF 


EQU 


52 


•?? 






* 




52 


.83 






* 




52 


.17 
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208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
24 3 
244 
245 
24 6 
24 7 
248 
249 
250 
251 
2S2 
253 
254 
255 
256 



******************************************************************************** 
* 

* TRANSFER OFFSETS IN BUFFER CONTROL BLOCK 
* 

* OFFSET FROM A3 
* 

* PASCAL DECLARATION 
* 
************************************************************* 

pointer to driver temp offset 
transfer select code 
actual transfer mode 
transfer mode 

00 - not 

serial DMA 

serial FHS 

serial FASTEST 



************ 



0000 


0000 


TTMP OFF 


EQU 





0000 


0005 


T SC OFF 


EQU 


5 


90O0 


0007 


TffCT OFF 


EQU 


7 


000« 


OO09 


TUSR OFF 


EQU 


9 



0000 


000A 


T BU OFF 

* 

TEND OFF 

* 

TDIR_0FF 

* 

TCHR OFF 

* 

TCNT OFF 

TBUF'OFF 

TBSZ OFF 

TEMP OFF 

TFIL OFF 

T PR OFF 

* 

T SL OFF 

T PM OFF 

T~DMfi"PRI 

* 

* T 

* 

TT INT 

TT DMA 

TT BURST 

TT~FHS 


EQU 


10 




0000 


0008 


EQU 


11 




oooo 


000D 


EQU 


13 




0000 


000E 


EQU 


14 


. .15 


0000 
0000 
0000 
0000 
0000 
0000 


0010 
0014 
0018 
001C 
0020 
0024 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


16 
20 
24 
28 
32 
36 


. .19 
. .23 
. .27 
. .31 
. .35 
..39 


0000 

0000 
0000 


0028 
002C 
0030 


EQU 
EQU 
EQU 


40 
44 
48 


. .43 
. .47 






RANSFER EQUATES 


0000 
0000 
0000 
0000 


0001 
0002 
0003 
0004 


EQU 
EQU 
EQU 
EQU 


1 
2 
3 

4 





01 
02 
03 
04 



05 
06 
07 
08 
09 
t ransfe 
= 
t ransfe 
= 
t ransfe 
= 
t ransfe 

-1 
t ransfe 
t ransfe 
t r a n s f e 
t ransfe 
t ransfe 
t ransfe 
NIL no 
t ransfe 
t ransfe 
dma pri 



DMA 
not 



or FHS 
used 



BURST ) 

DMA or BURST ) 

DMA or INTR ) 



overlp INTR 
overlp DMA 
overlp FHS 
overlp FASTEST 
overlp OVERLAP , 

■ byte/word indicator 
byte / 1 = word 

■ EOI/END indicator 
no eoi / 1 = eoi sent 

■ direction 
input / 1 = output 

■ terminate character 
' no termination character 

■ count 
• buffer pointer 

■ buffer maximum size 

■ empty pointer pointer 
- fill pointer 

■ pointer to eot procedure 
procedure 

.■ eot proc static link 
r eot proc parameter 
ority request 



searched for 



interrupt 

DMA 

burst 

fast handshake 
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260 
261 
262 
263 
264 
26S 
266 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
295 
295 
296 
297 
297 
297 
298 
299 
300 
300 
300 
301 
302 
303 
305 
306 
307 
308 
309 
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************************************************************X******************* 
* 

* EXTERNAL REFERRNCES for escape 

**********XX*************************************X******X*******X********#*****» 

REFA iodeclarations reference the io lib var. area 

REFA sysglobals 

**** ******XXXXX**X*******X*******************X*XX*X****XX******* ********* ******* 



Escape code values 







************** 


************* 


0000 


0001 


NO CARD 


EQU 


1 


0000 


0002 


NOT HPIB 


EQU 


2 


0000 


0003 


NO FTCTL 


EQU 


3 


0000 


0004 


NO DVC 


EQU 


4 


0000 


0005 


NO SPACE 


EQU 


S 


0000 


0006 


NO DATA 


EQU 


6 


0000 


0007 


TFR" ERR 


EQU 


7 


0000 


0008 


sc Busy 


EQU 


8 


0000 


0009 


BUF BUSY 


EQU 


9 


0000 


OOOR 


TCNTERR 


EQU 


10 


0000 


000B 


BADTMO 


EQU 


11 


0000 


OOOC 


NO DRV 


EQU 


12 


oooo 


000D 


NO DMA 


EQU 


13 


0000 


OOOE 


NO UORD 


EQU 


14 


0000 


00OF 


NOT TALK 


EQU 


15 


0000 


0010 


NOT LSTN 


EQU 


16 


0000 


0011 


TMO ERR 


EQU 


17 


0000 


0012 


NO S"CTL 


EQU 


18 


0000 


0013 


BAD" RDS 


EQU 


19 


0000 


0014 


BAD SCT 


EQU 


20 


0000 


0015 


CRD DWN 


EQU 


21 


0000 


0016 


EOD SEEN 


EQU 


22 


0000 


0017 


10 RISC 


EQU 


23 



FFFF FFE6 IOE ERROR EQU 



***************************************************** 
no interface 
not an hpib interface 
no active controller 
sc ( not device ) specified 
not enough space in the buffer 
not enough data left in the buffer 
t f r error 

sc is currently busy 
the buffer is busy 
bad count 
bad timeout value 
no driver 
no dma installed 
no word transfers allowed 
not addressed as talker 
not addressed as listener 
timeout 

not system controller 
bad read status / write control 
bad set/clear/test 
interface is dead 
end of data has happened 
misc. error 



io sub system error escape code 



FFFF FFBE IOE RSLT 
FFFF FFBA IOE SC 



EQU 
EQU 



FFFF FFFE ESC CODE EQU 
FFFF FFF6 RCVR"_BLK EQU 



I00ECLARATI0NS-66 
IOOECLARATIONS-70 



SYSGLOBALS-2 
SYSGLOBALS-10 



* 

* PASCAL DRIVER ENTRY POINTS FOR GPIO CARDS 

* 

***********<xxx********************x********** J******* * ********************** *** 
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310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 



NODULE initialization 



00000000 



00000002 
00000004 
00000006 
0000000A 
OOOOOOOC 



00000010 
00000012 
00000014 
00000018 
0000001A 



0000001E 
00000020 
00000022 
00000026 
00000028 



0000 

4E75 



0000 
205F 
245F 
226A 
4850 
6000 



0000 
205F 
245F 
226A 
4850 
6000 



0000 EXTG. 



0002 EXTG. 

0020 

00D4 



EXTG EQU 
RTS 



Driver initialization 



EG_INIT 

I10VEA 

MOVEA 

MOVEA 

PEA 

BRA 



EQU x 

SP)+,AO 

SP]+,A2 
_ ADR(A2),A1 
(A"0) 
G INIT 



get return address 

get temp address 

get card address 

push return address back on stack 



Interrupt service routine 



0010 EXTG_EG_ISR EQU 
MOVEA. L 
MOVEA 

0020 MOVEA.. . _ 

PEA (fi~0) 

04F8 BRA G ISR 



,L (SP) + 
. L C ADR 



, AO 
,A2 
(A2),A1 



get 
get 
get 



return address 
temp address 
card address 



push return address back on stack 



HPIB DMA transfer termination routine 



0000 
205F 
245F 
226A 
4850 
6000 



0000002C 
0000002E 
00000030 
00000032 
00000036 
00000038 
0000003C 
0000003E 



00000040 
00000042 
00000044 
00000046 
0000004A 
0000004C 



0000 
20SF 
265F 
245F 
226A 
4850 
6100 
1680 
4E75 



0000 
205F 
101F 

24SF 
226A 
4850 
6000 



001E EXTG. 

0020 

0480 

* 

* 

* 

O02C EXTG. 

0020 
00E8 



EG_TDMA 

MOVEA. L 
MOVEA. L 
MOVEA. L 
PEA 
BRA 



EQU » 

;SP)+,A0 

SPW.A2 
J ADR(A2) ,A1 
(A"0) 
G DMATERM 



Read a byte 



EG RDB 

MOVEA. 

MOVEA. 

MOVEA. 

MOVEA. 

PEA 

BSR 

MOVE.B 

RTS 



EQU x 
SPJ+.AO 
SP t,A3 
SP +,B2 
a6r(A2),A1 

G ROB 
DC, (A3) 



get return address 

get temp address 

get card address 

push return address back on stack 



get return address 

get VAR address 

get temp address 

get card address 

push return address back on stack 

call read byte ( or word J 

save character 



Urite a byte 



_EG UTB 

MOVEA. L 
MOVE.B 



0020 
00C8 



MOVEA. 
MOVEA, 
PEA 
BRA 



EQU x 
(SP)+,AO 

SP +.D0 

SP +.A2 
C ADR(A2),A1 

G UTB 



get return address 

get value 

get temp address 

get card address 

push return address back 

call write byte ( or word 



( this actually bumps SP by 2 ) 



Read a word 
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367 








* 




368 




0000 


0050 


EXTG_EG_ 


RDUI EQU * 


369 


00000050 


205F 






" MOVEA.L (SP)+,flO 


370 


00000052 


26SF 






MOVEfi.L SP + ,A3 


371 


00000054 


24SF 






MOVEA.L SP +,B2 


372 


00000056 


226B 


0020 




MOVEfi.L C ADR(A2) ,A1 


373 


0000005A 


4850 






PES (fiO) 
BSR G RDB 


374 


0000005C 


6100 


00C4 




37S 


00000060 


3680 






MOVE.U DO", (S3) 


376 


00000062 


4E75 






RTS 


377 








* 




378 








* 


Urite a word 


379 








* 




380 




0000 


0064 


EXTG^EG, 


UTU EQU * 


381 


00000064 


205F 






" nOVER.L (SP)+,fiO 


382 


00000066 


301F 






MOVE.U SP +,D0 


383 


00000068 


245F 






MOVEfi.L SP)+,A2 


384 


0O0O0O6B 


226B 


0020 




MOVEfi.L C A0R(A2),A1 


385 


0000006E 


4850 






PEfl (R"0) 
BRfl GJJTB 


386 


00000070 


6000 


0OB4 




387 








* 




388 








x 


Read status 


389 








* 




390 




0000 


0074 


EXTG_EG_ 


RDS EQU * 


391 


00000074 


20SF 






" MOVEfi.L (SP)+,AO 


392 


00000076 


265F 






MOVEfi.L SP + ,A3 


393 


00000078 


321F 






MOVE.U SP +,D1 


394 


0000007P 


245F 






MOVEfi.L SPW,A2 


395 


0000007C 


226B 


0020 




MOVEfi.L C ADR(A2),B1 


396 


00000080 


4850 






PEfl (A"0) 
BSR G RDS 


397 


00000082 


6100 


0192 




398 


00000086 


3680 






MOVE.U DO", (A3) 


399 


00000088 


4E75 






RTS 


400 








* 




401 








* 


Write control 


402 








* 




403 




0000 


008A 


EXTG_EG_ 


UTC EBU * 


404 


0000008B 


205F 






MOVEfi.L (SP)+,AO 


405 


0000008C 


301F 






MOVE.U (SP +,D0 


406 


0000008E 


321F 






MOVE.U SP W,D1 


407 


00000090 


245F 






MOVEfi.L SP)+,A2 


408 


00000092 


226B 


0020 




MOVEA.L C A0R(A2),A1 


409 


00000096 


4850 






PEA (A"0) 
BRB G_UTC 


410 


00000098 


6000 


01D8 




411 








* 




412 








* 


Transfer 


413 








* 




414 




0000 


009C 


EXTG_EG. 


TFR EQU * 


415 


0000009C 


20SF 






" MOVEfi.L (SP)+,AO 


416 


0000009E 


265F 






MOVEfi.L SP +,A3 


417 


OOOOOOBO 


24SF 






MOVEfi.L (SP)+,A2 


418 


OO0OOOB2 


226A 


0020 




MOVEA.L C ADR(A2) ,A1 


419 


000000B6 


48S0 






PEA (A"0) 

BRA G_TFR 


420 


O00O0OH8 


6000 


022C 




421 








* 




422 








* 


Set an GPIO line 


423 








* 





get ret u rn address 

get VflR address 

get temp address 

get card address 

push return address back on stack 

call read byte ( or word ) 

save word 



get return address 

get word value 

get temp address 

get card address 

push return address back on stack 

write the byte ( or word ) 



get return address 

get VAR address 

get register numbe r 

get temp address 

get card address 

push return address back on stack 

get status 

save status info 



get return address 

get value 

get register number 

get temp address 

get card address 

push return address back on stack 

write cont rol 



get return address 

get buffer control block address 

get temp address 

get card address 

push return address back on stack 

transfer 
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424 




0000 


OOflC 


EXTG. 


_EG_ 


SET 


EQU * 


425 


OOOOOOflC 


205F 








" MOVEA.L 


(SP)+,AO 


426 


OO0O0OAE 


321F 








MOVE.U 


SP +.01 


427 


OOOOOOBO 


245F 








MOVEA.L 


SP + ,A2 


428 


OOOO0OB2 


226B 


0020 






MOVEA.L 


C A0R(A2),A1 


429 


000000B6 


4850 








PEfl 


Set 


430 


0OOO0OB8 


6000 


00E6 






BRfl 


431 








* 








432 








* 




Clear an GPIO line 


433 








* 








434 




0000 


OOBC 


EXTG. 


-EG. 


CLR 


EQU * 


435 


000000BC 


20SF 








" MOVEA.L 


(SPJ+.AO 


436 


0O0OOOBE 


321F 








MOVE.U 


SP + ,D1 


437 


OOOOOOCO 


24SF 








MOVEA.L 


SP) + ,A2 


438 


0000O0C2 


226A 


0020 






MOVEA.L 


C ADR(A2),A1 


439 


0O0OOOC6 


4850 








PEA 


G_CLR 


440 


000000C8 


SOOO 


00 FA 






BRA 


441 








* 








442 








* 




Test an 


GPIO line 


44 3 








* 








444 




0000 


OOCC 


EXTG 


-EG. 


TEST 


EQU * 


445 


oooooocc 


205F 








" MOVEA.L 


(SP)+,AO 


446 


000000CE 


265F 








MOVEA.L 


SP +,A3 


447 


000000D0 


321F 








MOVE.U 


SP +,D1 


448 


OO0OOOD2 


24SF 








MOVEA.L 


SPJ+.A2 


449 


OO0OO0D4 


226A 


0020 






MOVEA.L 


C ADR(A2),fll 


450 


OO0OOOD8 


4850 








PEA 


G TEST 


451 


0O0O0ODA 


6100 


0106 






BSR 


452 


0O0OOODE 


1680 








MOVE.B 


DO", (A3) 


453 


OOOOOOEO 


4E7S 








RTS 





get return address 

get line ( this actually bumps SP by 2 ) 

get temp address 

get card address 

push return address back on stack 

call set line 



get return address 

get line ( this actually bumps SP by 2 ) 

get temp address 

get card address 

push return address back on stack 

clear the line 



get return address 

get VAR address 

get line ( this actually bumps SP by 2 ) 

get temp address 

get ca rd add ress 

push return address back on stack 

read status 

save character 
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****************************************** 
* GPIO INITIALIZATION 



****************************************** 

0000 O0E2 G INIT EQU * 

OOOO0OE2 4EB9 0000 G RESET JSR ABORT 10 

0000 

000000E8 357C FFFF MOVE.U #-l,MA U(A2) 

0032 

OOOOOOEE 1340 0001 MOVE.B D0,1(A1) 

O0OO0OF2 7413 MOVEQ #19, D2 

0000O0F4 51CA FFFE DBRA D2 , * 

000000F8 137C 0003 MOVE.B #3,2(A1) 

0002 

OOOOOOFE 4E75 RTS 



****************************************** 

* 

* IOFS 



475 TM 9/17/82 

the card is not addressable - so my addr =-1 

Reset the GPIO card 
Wait 15 microseconds 



****************************************** 
G_IOFS MOVEQ #0,00 

BTST #3,7(A1) PSTS -> D0<0> 



00000100 7000 
00000102 0829 0003 

0007 

00000108 6702 BEQ.S G I0FS1 

0000010A 7001 MOVEQ #T,DO 

0000010C 0811 0000 G I0FS1 BTST #0.(A1) 

00000110 6702 BEQ.S G I0FS2 

00000112 5440 ADDQ #2",00 

00000114 4E7S G_I0FS2 RTS 



PFLG -> 00<1> 
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****************************************** 



4 84 








485 








486 








487 








488 








489 


00000116 


611C 




490 


00000118 


6134 




491 


0000011A 


3340 


0004 


492 


0000011E 


1280 




493 


00000120 


4E75 




494 








494 








494 








495 








496 








497 








498 








499 








500 


00000122 


6110 




SOI 


00000124 


6128 




502 


00000126 


3029 


0004 


503 


0000012A 


1280 




504 


0000012C 


6120 




SOS 


0000012E 


3029 


0004 


S06 


00000132 


4E7S 




507 








507 








507 








507 








S07 








507 








508 


00000134 


3F00 




509 


00000136 


303C 


56 FO 


510 


0000013A 


0829 
0007 


0003 


511 


00000140 


6704 




512 


00000142 


301F 




513 


00000144 


4E75 




514 


00000146 


S1C8 


FFF2 


S15 


0000014A 


6000 


0030 



* wtb 

* 

****************************************** 
GJJTB BSR.S G STSCHK Check for PSTS 
BSR.S G UAIT Uait for FLG 
MOVE.U D0",4(A1) Urite the word 
HOVE.B DO, (HI) wti 7,0 trigger output 
RTS 



****************************************** 



****************************************** 



G RDB 



BSR.S 

BSR.S 

MOVE.U 

MOVE.B 

BSR.S 

MOVE.U 

RTS 



G STSCHK MOVE 

MOVE 

G_STSO BTST 

BEQ.S 

MOVE 

RTS 

DBRA 

BRA 



G_STS1 



G_STSCHK 
G UAIT 
4TA1),D0 
DO, (Pi) 
G WAIT 
4TA1),D0 



DO.-(SP) 
#22000,00 
#3,7 (HI ) 

G STS1 
(5P)+,D0 

DO.G STSO 
CRD ffOWN 



Check for PSTS 

Set I/O line for input 
wti 7,0 trigger input 
Wait for data to come i 



Save DO 

Count parameter for 100 ms wait 

Is PSTS O.K. ? 



No: 
Yes: 



Give him 100 ms 
Restore DO 



Decrement loop counter 

If counter expires, card is down 
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517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
S31 
532 
533 
534 
535 
536 
537 
538 
538 
538 
538 
539 
540 
541 



****************************************** 

* 

* GPIO WRIT ROUTINE 

* 

******** ** ******************************** 



0000014E 0811 
00000152 6622 
00000154 222A 
00000158 6716 

0000 



0000 GJJAIT 
002E 



0000015A 
0000015C 
0000015E 
00000160 
00000162 
00000166 
00000168 
0000016A 
0000016C 
0000016E 



2001 

EF89 
ED8D 
D28S 
0811 
660E 
5381 
6EFS 
7011 
601A 



015P G_UAIT2 
* tm 



ETST 
BNE.S 
MOVE.L 
BEQ.S 
EQU 
nULU 
tlOVE.L 
LSL.L 
LSL.L 
PDD.L 
0000 G UAIT3 BTST 
BNE.S 
SUBQ.L 
BGT.S 
MOVED. 
BRfl.S 



00000170 0811 0000 GJJAIT4 BTST 
00000174 67FA BEQ.S 

00000176 4E75 G URTS RTS 



#0,(fil) 

G URTS 

TIMEOUT (A2),D1 Dl 

G UAIT4 



IF CARD_READY THEN RETURN 
(TIMEOUT) 



#182, Dl 

Dl.DS 

#7,D1 

#6,D5 

0S.D1 

#0, (Al) 

G URTS 

#T,D1 

G WAIT3 

#TM0 ERR, DO 

ESC ERR 



#0, (Al) 
G UAIT4 



CONVERT Dl TO MILLISECONDS 
\ * 196 IS CLOSE TO * 182 

UHILE Dl MILLISECONDS HAS NOT EXPIRED DO 
IF CARD_RERDY THEN RETURN 



GENERATE ESCAPE 



IF CARD READY THEN RETURN 



PAGE 

S44 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
559 
559 
559 
560 
561 
562 
563 
564 

565 
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************************************************************** ****************** 
* 

* Error escapes 

******************************************************************************** 

00000178 7008 G_SCBSY MOVEQ #SC_BUSY,D0 sc is busy 

0000017A 600E ~ 8RA.S ESC ERR 

0000017C 7015 CRD_D0U)N MOVEQ «CRU DUN, DO CARD IS DOWN 

0O0OO17E 600A BRA.S ESC ERR 

00000180 7014 G_SC_ERR MOVEQ tBfltJ SCT.DO bad set/clear/test 

00000182 6006 " BRA.S ESC E"RR 

00000184 7007 GTERR_B MOVEQ «TFR~ ERR, DO bad transfer specification 

00000186 6002 BRA.S ESC_FRR . 

00000188 700D GTERR D MOVEQ #N0_DMA,D0 DMA not installed 

* ~ BRA.S ESC ERR 



0000018A 48C0 ESC_ERR 
0G00018C 2B40 FFBE 
00000190 102A 002D 
00000194 2B40 FFBA 
00000198 3B7C FFE6 

FFFE 
0000019E 4E4A 



EXT.L DO assume errors<128 

MOVE.L DO,IOE RSLT(AS) save ioe_result 
MOVE.B 10 SC(B"2) ,D0 

MOVE.L DO.IOE SC AS) save io s.c. 

novE.u *i6e er"ror,esc_cooe(as) 



TRAP #10 



escape 



1-262 



PAGE 

568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
582 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
S9S 
596 
597 
598 
599 
599 
599 
600 
601 
602 
603 
$04 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
614 
614 
615 
616 
617 
618 
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******************************************** 

* 

* LINE DEFINITIONS 



bit 


STIO 


1 


STI1 


2 


EIR 


3 


PSTS 


4 


CTLO 


5 


CTL1 


6 


READY 


7 


PCTL 



000001A0 
000001A4 
000001A8 
000001AA 
000001AE 
000001BO 
000001B4 
000001B8 
000001BC 
000001BE 
000001C2 



000001C4 
000001C8 
000001CC 
000001CE 
000001D2 
000001D6 
000001D8 
000001DC 
000001E0 



C23C 
B23C 
6714 
B23C 
6DD0 
923C 
8329 
832A 
4E75 
1341 
4E75 



C23C 
B23C 
6DB2 
102fl 
923C 
0380 
1540 
1340 
4E7S 



******************************************** 



******************************************** 

* SET LINE 

* 

******************************************** 

G_SET RND.B #7,D1 MASK TO RIGHT SIZE 

#S,D1 \ HANDLE SET PCTL 

GSET 1 / 

#6.DT \ CAN ONLY SET 

G SC ERR / CTLO/l 

#5",DT GET INTO 1/2 FORM 

D1,7(A1) SET CTLO or 1 

Dl.EIRB 0FF(A2) SAVE IN EIRB 



0007 
OOOS 

0006 

0005 
0007 
002C 

0000 GSET 1 



CMP.B 

BEQ.S 

CMP.B 

BLT.S 

SUB.B 

OR.B 

OR.B 

RTS 

MOVE .B D1,0(A1) 

RTS 



SET PCTL 



******************************************** 

* 

« CLEAR LINE 

* 

******************************************** 
0007 G_CLR AND.B #7,D1 MASK TO RIGHT SIZE 

0006 CriP.B #6,01 \ CAN ONLY CLEAR 

BLT.S G SC ERR / CTLO/l 
002C MOVE.B ETRB~0FF(A2) ,00 GET OLD CTLO/l 

0006 SUB.B #6,DT GET INTO 0/1 FORM 
BCLR D1,D0 CLEAR COPY 

002C MOVE.B DO, EIRB 0FF(A2) SAVE IN EIRB 

0007 MOVE.B D0,7(AlT WRITE TO CARD 
RTS 



******************************************** 

* 

* TEST LINE 



PAGE 18 [2.0] 11/4/82 16:22:45 IOLIB EXTG - GPIO DRIVERS 



DO 
#7,D1 
#7.D1 
G SC ERR 
#3".DT 
GTST2 



619 








************** 


620 


000001E2 


4240 




G_TEST 


CLR.U 


621 


000001E4 


C23C 


0007 




AND.B 


622 


000001E8 


B23C 


00O7 




CMP.B 


623 


000001EC 


6792 






BEQ 


624 


000001EE 


B23C 


0003 




CMP.B 


625 


000001F2 


6E0A 






BGT.S 


626 


000001F4 


0329 


0007 


GTST1 


BTST 


627 


000001F8 


6702 




GTST CHK 


BEQ.S 


628 


000001FA 


7001 




GTST~SET 


MOVEQ 


629 


000001FC 


4E7S 




GTST_RTS 


RTS 


630 












630 












631 


000001FE 


923C 


0004 


GTST2 


SUB.B 


632 


00000202 


823C 


0001 




CMP.B 


633 


00000206 


6E06 






BGT.S 


634 


00000208 


032A 


002C 


GTST3 


BTST 


635 


0000020C 


60EA 






BRA.S 


636 












636 












637 


0000020E 


0829 
0000 


0000 


GTST4 


BTST 


638 


00000214 


60E2 






BRA.S 



D1.7(A1) 
GTST RTS 
#1,D0" 



set FALSE indication 
mask to the right size 
\ CHECK FOR PCTL 
/ AND GIVE ERROR 



TEST STO/l,EIR,or psts 
if clear then RTS 



else return true indication 



#4,D1 

#1,D1 

GTST4 

Dl.EIRB 0FF(A2) TEST CTLO/l 

GTST CHK" GO TO COMMON CHECK CODE 



#0,0(A1) 
GTST CHK 



CHECK READY LINE 



1-263 
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* G_RDS 
* 

* READ STATUS 
* 

* PASCAL ROUTINE 



640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
670 
671 
672 
673 
673 
674 
675 
676 
677 
678 
679 
680 
680 
680 
681 
682 
683 
684 
685 
686 
687 
688 
688 
688 
689 
690 



******************************************************************************** 
0000 0002 G_ROUTINE EQU 2 
0000 0001 G_TEMP 
0000 0000 G_CRDREG 



00000216 
0000021A 
0000021C 
00000220 
00000222 
00000226 
00000228 

0000022C 
0000022E 
00000230 
00000232 
00000234 
00000236 
00000238 



4 1 FS 004E 
D241 

B23C OOOC 
6C18 

3030 1000 
6B12 
B03C 0001 

6D12 
E048 
671A 
5340 
671C 
5340 
6722 



EQU 


1 


EQU 





LEA 


G RDSTBL,AO 


ADD.U 


DT,D1 


cnp.B 


#G RT SIZ.D1 


BGE.S 


RDS" ER"R 


hove.u 


0(A0\D1) ,D0 
RDS ERR 


Bni.s 


CMP.B 


#G TEMP, DO 


BEQ.S 


GR TEMP 


BLT.S 


GR CARD 


LSR 


#8, DO 


BEQ.S 


G RDS DI 


SUBQ 


#T,DO 


BEQ.S 


G RDS RDY 


SUBQ 


#T.DO 

G RDS PST 


BEQ.S 


BRA.S 


RD"S ER~R 



0000023B 7013 RDS_ERR 
0000023C 6000 FF4C 



MOVEQ #BAD RDS, DO 
BRA ESC_ERR 



get pointer to lookup table 
multiply the rds register by 2 
\ check for out of Bounds 

get the table entry 

if the entry is then error 



get the routine offset 
status rtn 3 - data in 

status 4 - ready 

status 5 - peripheral status 
there are no more status 'routines' 



bad read status 



retrieve temps as words 



* tm GR_TEMP 
» tm 

* tm 



LSR #8. DO 
MOVE.U 0(A2,D0) ,D0 
RTS 



get temp offset 
get the value 



retrieve card registers as bytes 



00000240 E048 GR CARD LSR #8,00 

00000242 1031 0000 GR CARD1 rIOVE.B 0(A1,DO).DO 

00000246 0240 OOFF GREGEXIT ANDI .U #$00FF,D6 

0000024A 4E75 RTS 



get the card offset 
get the value 
mask off garbage 
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691 








* 










692 


0000024C 


3029 


0004 


G_RDS 


_DI 


MOVE 


Id 


4(A1 ),D0 


693 


00000250 


4E7S 








RTS 






694 


















694 
694 
695 


















00000252 


1029 


0000 


G_RDS 


_RDY 


HOVE 


B 


0(A1),DO 

♦J01.D0 

GREGEXIT 


696 


00000256 


0200 


0001 






ANDI 


B 


697 


0000025A 


60EA 








BRA 




698 


















698 
698 
699 


















0000025C 


1029 


0007 


G_RDS 


_PST 


MOVE 


B 


7(A1),D0 

#$0F,D0 

GREGEXIT 


700 


00000260 


0200 


OOOF 






ANDI 


B 


701 


00000264 


60E0 








BRA 




702 


















702 


















702 
702 
703 




















0000 


0266 


G_RDST8L 


EQU 




* 


704 


00000266 


01 








DC.B 




1,G_CRDREG 


704 


00000267 


00 














70S 


00000263 


03 








DCS 




3,G_CRDREG 


70S 


00000269 


00 














706 


0000026A 


09 








DC.B 




9,G_R0UTINE 


706 


0000026B 


02 














707 


0000026C 


00 








DC.B 




0,G_R0UTINE 


707 


0000026D 


02 














708 


0000026E 


01 








DC.B 




1,G_R0UTINE 


708 


0000026F 


02 














709 


00000270 


02 








DC.B 




2,G_ROUTINE 


709 


00000271 


02 














710 




OOOO 


0272 


G RT 


END 


EQU 




* 


711 




0000 


OOOC 


G_RT_ 


SIZ 


EQU 




G_RT_END-G_RDSTBL 



get data lines 



get ready line 
mask to 1 bit 
and get out 



get status 
mask to 4 bits 
and get out 



status - card reg - card id 
status 1 - card reg 3 - intr/dma status 
status 2 - not implemented 
status 3 - data in 
status 4 - ready line 
status 5 - peripheral status 

size of t able 



1-264 



PAGE 

713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
727 
728 
729 
730 
731 
732 
733 
734 
734 
734 
735 
736 
736 
737 
738 
739 
739 
740 
741 
742 
743 
744 
745 
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*x*x*****x****************x*x*x*xx******x*****xxx*xxx****xxx*xx*x******xx*x*xxx* 

* G_UTC 
* 

* WRITE CONTROL 

x 

* ENTRY: DO.UI = PflRfiMETER 

* 

****** *xxxx**xx**xixxxx*xxxxx«*xxxxxxx*xx***x*x***xxxxxxx* XX**XXXXXX*X XXXXtXXXX* 

00000272 B27C 0006 GJJTC CMP.U #6,D1 \ 

00000276 6CC2 ' BGE.S RDS ERR / check wtc limits 

00000278 48C1 EKT.l Dl " 

0000027A D281 ADD.L D1.D1 

0000027C 4EFB 1002 JMP GUTCTBL(Dl) 



00000280 600A 
00000282 600C 
00000284 6010 
00000286 601C 
00000288 60BO 
0000028A 601E 



GUTCTBL 



BRA.S 
BRA.S 
BRfi.S 
BRfi.S 
BRfi.S 
BRfi.S 



0000028C 6000 FES4 G UTC RST BRfl 



G UTC RST 

G SET PCT 
G_SET CTL 
G DRTB 
RD"S ERR 
G ETR 



G INIT 



00000290 1340 0000 G SET PCT MOVE.B DO.OfAl) 
00000294 4E75 RTS 



00000296 1340 0007 G_SET_CTL MOVE.B D0,7fAl) 



0000029fi C03C 0003 
0000029E 812A 002C 
000002A2 4E7S 

000002A4 3340 0004 G DATA 
000002B8 4E75 



#3,00 
D0,EIRB_0FF(A2) 



AND.B 

OR.B 

RTS 

novE.y D0,4(fli) 

RTS 



CONTROL 





- 00 A RESET 


CONTROL 


1 


- set pctl 


CONTROL 


? 


: set control line 


CONTROL 


3 


- write data out 


CONTROL 


4 


: not used 


CONTROL 


b 


: enable intrpts 



reset card 
set pctl line 



set ctl and 1 
\ save CTLO/1 
/ in EIR byte 

write 16 bit data 



SPR836 Til 8/9/82 



508 TM 9/17/82 
508 TM 9/17/82 



PAGE 

747 
748 
749 
750 
751 
752 
753 

754 
755 
756 
7S7 
758 
759 
760 

761 
762 

763 
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xxx*x**x*xxxxxxx*******xxxxxx*x**xxxxxxx**x***xxx 

X 

* EIR 

X 
XXXXXXXXX*XXXX*X*XXXXXXX*X**XXXXXXXXXXXXXXXXXXX*« 



000002AA 1540 002C G EIR 
000002AE 4EB9 0000 

0000 
000002B4 6616 
000002B6 1340 0007 G UTIS 
000002BA 0800 0005 
000002BE 6600 FE22 
000002C2 4A00 
000002C4 6C08 
000002C6 137C 0080 

0003 
000002CC 4E75 G RTS 
000002CE 137C 0000 G _ RTS1 

0003 
000002D4 4E75 



MOVE.B 
JSR 



DO.EIRB 0FF(A2) 
ITXFR 



475 TM 9/17/82 



BNE.S G RTS 

MOVE.B D0~,7(fll) 

BTST #5. DO 

BNE G RESET 

TST.B DO" 

BGE.S G RTS1 

MOVE.B #f80,3(Al) 

RTS 

MOVE.B #0,3(A1) 



if tfr then don't 
Update CTL1 :CTLO 
Check RESET bit 



1-265 
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766 
767 
768 
769 

770 
771 

772 
773 
774 
77S 
776 
777 
778 
779 

780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 



000002D6 

000002DC 
000002EO 
000002E4 
000002E8 
000002EC 
000002EE 
000002F2 
000002F4 

000002FA 
000002FC 
00000300 
00000304 
00000308 



4EB9 0000 
0000 

6100 FE70 
4A2B OOOB 
6600 FE9E 
202B 0010 
4241 

122B 0009 
D241 

4EB9 0000 
0000 
6704 

0641 0014 
41FA 0008 
OOFO 1000 



************************************************* 

* 

* GPIO tfr 

* 

************************************************* 

G TFR JSR CHECK_TFR wait for tfr to finish 475 TM 9/17/82 



00000314 
00000316 
00000318 
0000031A 
0000031C 

0000031E 
00000320 
00000322 
00000324 
00000326 

00000328 
0000032A 
0000032C 
0000032E 
00000330 



OOCO 

FE7E 
0OC8 
00C8 
OOCO 

FE7A 
0028 
00 F4 
0028 
FE7A 

OOCO 
0028 
00C8 
0028 
0028 



BSR G UAIT 

TST.B TEND 0FF(A3) 

BNE GTERR" B 

MOVE.L TCNT 0"FF(A3) ,D0 

CLR.U Dl 

nOVE.B TUSR 0FF(A3),D1 

ADD.U Dl.DT 

JSR TESTDMA 

BEQ.S G NODMA 
ADDI.UI #50. Dl 
LEA G TBL.AO 
ADOA.U 0TAO.D1) ,A0 
JMP (AO) 

TRANSFER JUMP TABLE 



Wait for FLG xxx TM 10/6/82 

\ end NOT ALLOUED 

GET COUNT 

\ COMPUTE OFFSET INTO JUMP TABLE 



BASED ON TFR 



475 TM 9/17/82 



TYPE AND DMA PRESENCE 



INDEXED JUMP THRU TABLE 



/ 



0000030A 


FE7A 


G TBL 


DC.UI 


GTERR B-G TBL 


serial 


interrupt 


0000030C 


FE7E 




DC.U 


GTERR D-G TBL 


serial 


dm a 


0000030E 


00 F4 




DC.UI 


G T FHS-G TBL 


serial 


fhs 


00000310 


00F4 




DC.UI 


G T FHS-G TBL 


serial 


fastest 


00000312 


FE7A 




DC.UI 


GTER"R B-G TBL 


serial 


overlap 



DMA is not installed or available 



DC.UI 
DC.UI 
OC.UI 
DC.UI 
DC.UI 

DC.U 
DC.U 
DC.U 
DC.UI 
DC.U) 

DC.U 
DC.U 
DC.U 
DC.U 
DC.U 



G T INT-G TBL 
GTER~R D-G_TBL 
G T B3"T-G_TBL 
G T BST-G_TBL 
GlT_I NT -G_TBL 

GTERR B-G TBL 
G T DRA-G TBL 
G T FHS-G TBL 
G~T~DMA-G_TBL 
GTER~R_B-G_TBL 

G T INT-GJTBL 
G T DMA-G_TBL 
G T_BST-G_TBL 
G T DMA-G TBL 
G T DMA-G TBL 



overlap interrupt 
overlap dma 
overlap fhs 
overlap fastest 
overlap overlap 



serial 
serial 
serial 
serial 
serial 



interrupt 

dma 

fhs 

fastest 

overlap 



DMA is installed 



overlap interrupt 
overlap dma 
overlap fhs 
overlap fastest 
overlap overlap 
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813 








* 








814 








* 




Transfer DMA 


815 








* 








816 


00000332 


BOBC 
0001 


0000 


G_ 


T_DMA 


CMP.L 


#1,D0 


817 


00000338 


6700 


0090 






BEQ 


G T INT 


818 


0000033C 


177C 

0007 
4P2B 


0002 






MOVE.B 


*TT_DMA,TACT_ 


819 


00000342 


OOOD 






TST.B 


TDIR 0FF(A3) 


820 


00000346 


6E36 








BGT.S 


G_TOtf 


821 








* 








822 








* 




Transfe 


r Input Dma: 


823 








* 








824 




0000 


0348 


G_ 


JID 


EQU 


* 


825 


00000348 


5380 








SUBQ.L 


#1,D0 

GETDMA 


826 


0000034A 


4EB9 


0000 






JSR 






0000 












827 


00000350 


0829 
0003 


0003 






BTST 


#3,3(A1) 


828 


00000356 


6704 








BEQ.S 


G DMA1 


829 


00000358 


0042 


0008 






ORI.U 


#5,D2 


830 


0000035C 


3882 




G_ 


OMA1 


MOVE 


D2, (A4) 
GD STBSY 


831 


0000035E 


6100 


OOSE 






BSR 


832 


00000362 


4A69 


0004 






TST 


4(B"li 
DO, (Al) 


833 


00000366 


1280 








MOVE.B 


834 


00000368 


137C 

0002 
4A2B 


0001 






MOVE.B 


*1,2(A1) 


835 


0000036E 


000A 






TST.B 


T BUI 0FF(A3) 


836 


00000372 


6704 








BEQ.S 


G DMA~3 


837 


00000374 


D67C 


0004 






ADD 


#4~,D3 


838 


00000378 


1343 


0003 


G 


.DMA 3 


MOVE.B 


D3,3(A1) 


839 








* 








840 


0000037C 


602C 








BRA.S 


G_DMA_U 


841 








* 








842 








* 




Transfer Output Dma: 


843 








* 








844 




0000 


037E 


G 


TOD 


EQU 


* 


845 


0000037E 


4EB9 
0000 


0000 


g; 


IDMAOUT 


JSR 


GETDMA 


846 


00000384 


0829 
0003 
6704 


0003 






BTST 


#3,3(A1) 


84 7 


0000038A 








BEQ.S 


G DMA4 


848 


0000038C 


0042 


0008 






ORI .U 


#5,D2 


849 


00000390 


3882 




G. 


.DMA4 


MOVE 


02, (A4) 
GD STBSY 


850 


00000392 


6100 


002A 






BSR 


851 


00000396 


137C 
0002 
4A2B 


0001 






MOVE.B 


#1 ,2(A1) 


8S2 


0000039C 


000A 






TST.B 


T BU 0FF(A3) 


853 


000003AO 


6704 








BEQ.S 


G DMR6 


854 


000003A2 


0043 


0004 






ORI ,U 


*4",D3 


855 


000003A6 


1343 


0003 


G 


.DMA 6 


MOVE.B 


D3,3(A1) 


856 








* 








857 








* 


C 


_OMA_U 




858 








* 








859 


0O0OO3AA 


182B 


00C9 


G 


_DMA_U 


MOVE.B 


TUSR 0FF(A3) , 


860 


000003AE 


B83C 


0005 






CMP.B 


#S,D4" 
G DMA U2 


861 


000003B2 


6C08 








BGE.S 



\ USE INTR IF COUNT-1 ON DMA 

set tfr type to DMA 

\ test for transfer direction 



- Set up DMA for Input 

Tfr N-l bytes via DMA 475 TM 9/17/82 

Is BURST bit set on GPIO card ? 

No 

Yes: Set BURST bit in DMA arm byte 

Arm DMA 

Set buffer busy (Card is still not triggered) 

rdi 4 

wti 7,0 (trigger card) 

RDYEN * (so transfers won't interrupt) 

Byte (0) or Uord (1) transfers ? 



Tell the GPIO what channel he's got and 

watch the shit hit the fan 
DONE 



Get a DMA channel 475 TM 9/17/82 
Is Burst mode enabled (1) 

Yes: Set the Burst bit in DMA arm byte 

Arm the DMA channel 

Set the buffer busy 

Disable the transfer interrupt mechanism 

Byte (1) or Uord (0) transfers ? 

Byte: Oon't set the UORD bit on GPIO card 

UORD: Set the UORD bit 

Tell the GPIO what channel he's got, etc. 

IF SERIAL THEN UAIT FOR COMPLETION 

IS THE TRANSFER OVERLAP ? 
/ 
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CflPI.B #25S,T_SC_0FF(A3) 



000003B4 0C2B OOFF G DMA Ul 

0005 ~ ~ 
000003BA 66F8 BNE.S 

000003BC 4E75 G DMA UI2 RTS 



000003BE 49FA FCSE GD STBSY LEA 

000003C2 4EB9 0000 " JSR 

0000 

000003C8 4E75 RTS 



G DMA Ul 



EXTG EG TD(1A,A4 
DMA_3~TBS"Y 



IF NOT THEN UAIT TILL DONE 



save g_dmaterm routine 

in dma temps 475 TM 9/17/82 



475 TM 9/17/82 
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870 
871 
872 
873 

874 
875 
875 
875 
876 
877 
878 
879 



000003CA 177C 0001 G T INT 

0007 
000003D0 6006 



000003D2 177C 0003 G T BST 
0007 



880 








* 




881 












881 












881 












882 








* 




883 








* 




884 








* 




885 


000003D8 


4EB9 
0000 


0000 


G. 


_T_BIC 


886 


000003DE 


4B2B 


OOOD 






887 


000003E2 


6E06 








888 








* 




889 








* 




890 








* 




891 




0000 


03E4 


G 


Til 


892 


000003E4 


4A69 


0004 


g; 


;int_i 


893 


000003E8 


1280 








894 








* 




895 








* 




896 








* 




897 




0000 


03EA 


G 


TOI 


898 


000003EA 


137C 


0003 


Gl 


-INT_0 






C002 








899 


000003FO 


102A 


002C 






900 


000003F4 


0000 


0080 






901 


000003F8 


6100 


FEBC 






902 


000003FC 


60AC 









Transfer INTERRUPT 

MOVE.B #TT_INT,TACT_0FF(A3) 

BRA.S G T BIC 



set tfr type to INTERRUPT 
go to common code 



Transfer BURST ( intr on 1st byte FHS on rest ) 
MOVE.B #TT_BURST,TACT_0FF(A3) set tfr type to BURST 
BRA.S G_T_BIC go to common code 



common interrupt and burst code 

JSR STBSY SET BUFFER BUSY, ETC 

TST.B TOIR 0FF(A3) \ test for transfer direction 

BGT.S G_T0T / 

Transfer Input Interrupt or Transfer Input Burst 

EQU 
TST 
MOVE.B 



4(A11 
DO, (Al) 



Dummy read to set I/O line to I 
wti 7,0 (trigger input) 



Transfer Output Interrupt or Transfer Output Burst 



EQU * 

MOVE.B #3,2(A1) 

MOVE.B EIRB_0FF(A2) ,D0 

ORI.B #S80,D0 

BSR G UTI5 

BRA G DMA Ul 



Allow I/O to cause an interrupt 

GET CTLO/1 

Enable interrupts 
and wait if necessary 
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904 








* 






90S 








* 


Transfer FHS 


906 








* 






907 


000003FE 


177C 

0007 


0004 


G_T_FHS 


MOVE.B 


#TT_FHS,TACT_0FF(A3) 


908 


00000404 


4EB9 
0000 


0000 




JSR 


STBSY 


909 


0000040A 


4EB9 
0000 


0000 




JSR 


ITXFR 


910 


00000410 


4A2B 


OOOD 




TST.B 


TDIR 0FF(A3) 


911 


00000414 


6E54 






BGT.S 


G_TFO" 


912 








* 






913 








* 


Trans 


'er FHS in 


914 








* 






915 


00000416 


4A69 


0004 


G_TFI 


TST 


4(A1) 
DO, (Al) 


916 


0000041A 


1280 






MOVE.B 


917 


0000041C 


7000 






MOVEQ 


tO. DO 
. TFIL 0FF(A3),fl0 


918 


0000041E 


206B 


0020 




MOVEA. 


919 


00000422 


4A2B 


OOOA 




TST.B 


T BW 0FF(A3) 


920 


00000426 


661C 






BNE.S 


G TFTUI 


921 


00000428 


6100 


FD24 


G TFIB 


BSR 


G~UAIT 


922 


0000042C 


1029 


0005 


G_TFIB1 


MOVE.B 


5TA1) .DO 
DO, (A0)^■ 


923 


00000430 


10C0 






MOVE.B 


924 


00000432 


5383 






SUBQ.L 


#1,D3 
GTFI TRM 


925 


00000434 


6F24 






BLE.S 


926 


00000436 


B440 






CMP.UI 


D0.D2" 
GTFI TRM 


927 


00000438 


6720 






BEQ.S 


928 


0000043A 


1280 






MOVE.B 


DO, (fl"l) 


929 


0000043C 


0811 


0000 


G_TFIB2 


BTST 


#0, (fll 
G TFIB1 


930 


00000440 


86EA 






BNE 


931 


00000442 


60F8 






BRA 


GITFIB2 


932 














932 














932 














933 


00000444 


6100 


FD08 


G TFIU 


BSR 


G UAIT 


934 


00000448 


30E9 


0004 


G_TFIU1 


MOVE 


4TA1J , (A0) + 
#1,D3 

GTFI TRM 


935 


0000044C 


5383 






SUBQ.L 


936 


0000044E 


6F0A 






BLE.S 


937 


00000450 


1280 






MOVE.B 


DO, (Rl) 


938 


00000452 


0811 


0000 


GJTFIU2 


BTST 


#0.(fll 
G TFIU1 


939 


00000456 


66 FO 






BNE 


940 


00000458 


60F8 






BRA 


g;TFIU2 


941 














941 














941 














942 








* 






943 








* FHS TRANSFER 


rERMINATION 


944 








* 






945 


0000045A 


2743 


0010 


GTFIJTRM 


MOVE.L 


D3.TCNT 0FF(A3) 


946 


0000045E 


2748 


0020 




MOVE.L 


AO.TFIL 0FF(A3) 
STCLR " 


947 


00000462 


4EB9 


0000 


GTFO_TRM 


JSR 






0000 










948 


00000468 


4E7S 






RTS 




949 














94 9 














949 














950 








* 







set tfr type to FHS 

set buffer busy 475 TM 9/17/82 

get all pointers 475 TM 9/17/82 

\ test for transfer direction 



to set I/O line to I 507 TM 9/17/82 
trigger input S07 TM 9/17/82 

clear upper part of data in 
GET FILL POINTER 
GET B/U INDICATIONS 



DO.L = Byte received 

Decrement transfer counter 

If buffer full; exit fast handshake 

If input character matches end character 

then we' re done 
wti 7,0 (Trigger next input) 
PFLG = 1 ? 
Yes: Get next byte 
No: Keep checking 



Copy word from GPIO to buffer 
Decrement transfer counter 
If D3 = we* re done 
wti 7,0 (Trigger next input) 
PFLG = 1 

No: Keep checking 



D3 has bytes not finished 

update fill pointer 

MARK BUFFER FINISHED 475 TM 9/17/82 
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951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
964 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
973 
973 
974 
975 
976 
977 
977 
977 
977 



0000046A 206B 001C G_TFO 

0000046E 4A2B OOOA 

00000472 6616 

00000474 6100 FCD8 G_TFOB 

00000478 1358 0005 G_TF0B1 



0000047C 
OOOO047E 
00000480 
00000482 
00000486 
00000488 



1280 
5383 
6F1E 
0811 
66F0 
60F8 



0000 G TF0B2 



Transfer FHS out 



MOVEA. L 

TST.B 

BNE.S 

BSR 

MOVE.B 

MOVE.B 

SUBQ.L 

BLE.S 

BTST 

BNE 

BRA 



0000048B 


6100 


FCC2 


G TFOU 


BSR 


0000048E 


3358 


0004 


G TFOU1 


MOVE.U 


00000492 


1280 






MOVE.B 


00000494 


S383 






SUBQ.L 


00000496 


6F08 






BLE.S 


00000498 


0811 


0000 


G TF0U2 


BTST 


0000049C 


66F0 






BNE 


0000049E 


60F8 






ERA 


000004AO 


2748 


001C 


G TF03 


MOVE.L 


000004A4 


42RB 


0010 




CLR.L 


000004A8 


60B8 






BRft.S 



TEMP OFF(A3),AO 
T BU 0FFJA3) 
G - TF0"U 

G WAIT 

mo)*,s(Ai) 

D0,(A1) 
#1 ,D3 
G TF03 
#0". (Al) 
G TFOBi 
G _ TF0B2 



G UAIT 
(A"0)*,4(A1) 



DO, (fli) 
#1,D3 

G TF03 
*0",(B1) 
G TFOUJl 
G TF0UJ2 



flO,TEMP 0FF(A3) 
TCNT_OFF(A3) 

GTF0_TRM 



GET EMPTY POINTER 
GET B/U INDICATIONS 

Uait for card ready 

Copy byte from buffer to GPIO 

wti 7,0 (Trigger next output) 

Decrement transfer count 

If D3 = then we're done 

PFLG = 1 ? 

Yes: Get next byte 

No: Keep checking 



wait for card ready 

Copy word from buffer to GPIO 

wti 7,0 (Trigger next output) 

Decrement transfer count 

IF D3 = then we're done 

PFLG = 1 ? 

Yes: Get next byte 

No: Keep checking 



SAVE EMPTY PTR 
CLEAR COUNT 
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**************************************************** 
* 

* UNDnft 



979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 

990 

991 
992 
993 
994 
995 
996 
997 



999 
1000 
1001 
1002 
1003 

1004 
1005 
1005 

1005 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 

1014 

1015 

1016 



* Release the DMA channel associated with the GPIO 

* card when the transfer is done. 

* 
**************************************************** 



000004AA 
000004AE 



0000 04AA GJMATERM 

007C 2700 G UNDMA ORI 

4EB9 0000 J5R 

0000 

000004B4 4EB9 0000 JSR 

0000 

6756 BEQ.S 

4A2B 000D TST.B 

672A BEQ.S 



000004BA 
000004BC 
000004CO 
000004C2 
000004C6 
000004CA 
000004CE 

000004D4 
000004D8 
000004DA 
000004DC 
000004E0 
000004E4 

000004EA 



EQU * 
#$2700, SR 
DROPDMA 



G UNDEND 
TIJIR 0FF(A3) 
UNINPUT 



1020 002C UNOUTPUT MOVE.B EIRB 0FF(A2),D0 



C07C OOOF 

6100 FDEA 

337C 0300 

0002 

4A2B OOOA 

6702 

D683 

D7AB 001C UN0UT2 

42AB 0010 

4EB9 0000 

0000 

4E75 



AND #$F,D~0 
BSR G UTIS 
MOVE.U #f300,2(Al) 



000004EC 202B 0010 UNINPUT 

* tm 
000004F0 9084 
000004F2 4A2B OOOA 
000004F6 6702 
000004F8 D080 
000004FA D1AB 0020 UNIN2 
000004FE 277C 0000 

0001 0010 
00000506 337C 0380 

0002 
0000050C 177C 0001 

0007 



TST.B 
BEQ.S 
ADD.L 
ADD.L 
CLR.L 
JSR 

RTS 



MOVE.L 

MOVE. I 

SUB.L 

TST.B 

BEQ.S 

ADD.L 

ADD.L 

MOVE.L 



T BU 0FF(A3) 

UflOUT2 

D3,D3 

D3,TEMP 0FF(A3) 

TCNT 0FF(A3) 

STCLR" 



TCNT 0FF(A3) .DO 

D4,TC~NT_0FF(A3] 

D4.D0 

T BU 0FF(A3) 

URINZ 

DO, DO 

DO.TFIL 0FF(A3) 

#1,TCNT OFF A3 



MOVE.U #$380,2(A1) 

MOVE.B #TT_INT,TACT_0FF(A3) 



Disable all other interrupts 

Release the DMA channel 475 TM 9/17/82 

See if buf was active 475 TM 9/17/82 

No: this should never happen 

Uas it an Input (0) or Output (1) ? 



Restore REDYN and EIREN 

Uas it a Byte (1) or Word (0) tfr ? 

Uord: Double the count 

UPDATE EMPTY POINTER 

CLEAR COUNT 

Unbusy the buffer 475 TM 9/17/82 



DO = Transfer count 

SET COUNT TO REMAINING BYTES 

GET ACTUAL BYTES TFR'O 

Uas it a Byte (1) or Uord (0) tfr ? 

Uord: Double the count 

UPDATE FILL POINTER 

Last byte is received via interrupt 

Allow it to cause an interrupt 

change tfr type 



00000512 4E75 



G UNDEND RTS 
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******************************************************* 

* 

» GPIO INTERRUPT SERVICE ROUTINE 



1019 
1020 
1021 
1022 
1023 
1024 
1025 

1026 
1027 
1028 
1029 
1030 

1031 

1032 
1032 
1032 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1049 
1049 
1049 
1050 
1051 
10S2 
1053 
1054 
1055 
1056 
1057 
1058 
1058 
1058 
1058 
1059 

1060 



******************************************************* 

0000 0514 G_ISR EQU * 

00000514 4EB9 0000 G ISR1 JSR ITXFR Transfer in progress? 

0000 

0000051B 6614 BNE.S G ATFR 

0000051C 102A 002C G ISR2 MOVE.B ETRB 0FF(A2),D0 NO TFR IN PROGRESS 

00000520 C07C OOOF ~ AND #$F,DO 

00000524 6100 FD90 BSR G LITIS 

00000528 4EB9 0000 JSR LffGINT log the interrupt 

0000 

0000052E 4E7S GISR END RTS 



00000530 
00000534 
00000538 
00000S3A 
00000S3E 
00000540 
00000544 
00000546 
0000054A 
0000054C 
00000550 
00000554 
00000556 
0000055A 
000005SC 
0000055E 



1029 
C07C 
6648 
B23C 
6742 
923C 
E509 
4A2B 
6704 
D23C 
4A2B 
6708 
D23C 
4881 
48C1 
4EFB 



0003 
0003 



G ATFR 



0001 G ATFR1 



OOOD GTST_DIR TST 
BEQ 
0010 



1002 G ATFR2 



MOVE.B 

AND 

BNE.S 

CMP.B 

BEQ.S 

SUB.B 

LSL.B 

TST.B 

BEQ.S 

ADD. 



B 
B 
S 

ADD.B 
EXT.U 
EXT.L 

JMP 



00000562 6000 OOCO G_TTBL BRA 

00000566 6000 OODO BRA 

0000056A 6000 0084 BRA 

0000056E 6000 009E BRA 

00000572 6000 0044 BRA 

00000576 6000 0046 BRA 

0000057A 6000 0010 BRA 

00O00S7E 6000 0022 BRA 



00000582 4EB9 0000 G TABORT JSR 

0000 
00000588 6000 00C2 BRA 



3(A1),D0 

#3. DO 

G TABORT 

#TT FHS.D1 

G TRBORT 

#T,D1 

t2,Dl 

T BU 0FF(A3) 

GTST DIR 

#4,DT 

TDIR 0FF(A3) 

G ATFR2 

#$"10, Dl 

Dl 

Dl 

G TTBL(Dl) 



G TUB 
G_TIIU 
G TIFB 
G_TIFU 
G_TOIB 
G TOIU 
G TOFB 
G'TOFU 



DROPDMA 
G TDIN 



475 TM 9/17/82 



475 TM 9/17/82 



Put DMA channel for GPIO in DO 

If DMA in progress: Abort & update pointers 
\ If FHS then exit 

( IF INTR THEN D1=0 
/ BURST THEN Dl=8 
\ IF UORD THEN ADD 4 



IF OUTPUT THEN ADD 16 



computed goto 



INTR IN BYTE 

INTR IN UORD 

BRST IN BYTE 

BRST IN UORD 

INTR OUT BYTE 

INTR OUT UORD 

BRST OUT BYTE 

BRST OUT UORD 



Release DMA channel 



475 TM 9/17/82 
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- INTERRUPT SERVICE 


ROUTINE 




1062 






********************************************** 




1063 






* 










1064 






* 


OUTPUT TRANSFERS 






1065 






* 










1066 






********************************************** 




1067 


0000058C 


007C 


2700 G TOFB 


ORI 


#$2700, SR 
(A01*,5(A1) 
#1 ,03 
G TDOUT 


Disable interrupts 




1068 


00000590 


1358 


0005 G_T0FB1 


MOVE.B 


Copy byte from buffer to GPIO 




1069 


00000594 


5383 




SUBQ.L 


Decrement transfer count 




1070 


00000596 


6F3A 




BLE.S 


If D3 = then we're done 




1071 


00000598 


1280 




MOVE.B 


05, (All 


wti 7,0 (Trigger next output) 




1072 


0000059A 


0811 


0000 G_T0FB2 


BTST 


#0.(A1 
G T0FB1 


PFLG = 1 ? 




1073 


0000059E 


66F0 




BNE 


Yes: Get next byte 




1074 


000005AO 


60F8 




BRA 


G_T0FB2 


No: Keep checking 




1075 
















1075 
















1075 
















1075 
















1076 


OOC005A2 


007C 


2700 G TOFU 


ORI 


#$2700, SR 


Disable interrupts 




1077 


000005A6 


3358 


0004 G_T0FU1 


MOVE.UI 


(A0)*,4(A1) 
G TDOUT 


Copy word from buffer to GPIO 




1078 


000005AA 


5383 




SUBQ.L 


Decrement transfer count 




1079 


000005AC 


6F24 




BLE.S 


IF D3 = then we're done 




1080 


000005AE 


:?60 




MOVE.B 


DO", (All 


wti 7,0 (Trigger next output) 




1081 


000005BO 


0811 


0000 G_T0FU2 


BTST 


#0, (Al ) 
G T0FU1 


PFLG = 1 ? 




1082 


000005B4 


66F0 




BNE 


Yes: Get next byte 




1083 


000005B6 


60F8 




BRA 


G__T0FU)2 


No : Keep checking 




1084 
















1084 
















1084 
















1084 
















1085 


000005B8 


1358 


0005 G_TOIB 


MOVE.B 


(AO)* S(A1) 
G ENDOUT 


Copy a byte from buffer to GPIO 




1086 


000005BC 


6004 




BRA.S 






1087 


000005BE 


3358 


0004 G TOIU 


MOVE.UI 


(fTO) t,4(Al) 
AO.TEMP 0FF(A3) 


Copy a word from buffer to GPIO 




1088 


000005C2 


2748 


001C G_ENDOUT 


MOVE.L 


Save AO for use on next output byte/word 




1089 


000005C6 


5383 




SUBQ.L 


#1,D3 






1090 


000005C8 


2743 


0010 


MOVE.L 


D3.TCNT 0FF(A3) 
G TDOUT 


Decrement transfer out counter 




1091 


000005CC 


6F04 




BLE.S 


If zero, go thru Transfer Done Out 
wti 7,0 (Trigger byte out) 
End of ISR 




1092 


000005CE 


1280 




MOVE.B 


05, (Al) 




1093 


000005DO 


4E75 




RTS 






1094 
















1094 
















1094 
















1094 
















1095 


000005D2 


2748 


001C G TDOUT 


MOVE.L 


AO.TEMP 0FF(A3) 


save empty pt r 




1096 


000005D6 


42AB 


0010 


CLR .L 


TCNT 0FF(A3) 


clear tfr count 




1097 


000005DA 


137C 
0003 


0000 


MOVE.B 


#0,373A1) 


Stop card from interrupting 




1098 


OOOOOSEO 


136A 
0007 


002C 


MOVE.B 


EIRB_0FF(A2),7(A1) 


Put EIR byte in CTL1/CTL0 




1099 


000005E6 


1260 




MOVE.B 


DO. (Al) 
STCLR 


wti 7,0 (Trigger last output] 

Unbusy buffer 475 Trl 9/17/82 




1100 


0O000SE8 


4EB9 


0000 


JSR 








0000 












1101 


OOOOOSEE 


4E75 




RTS 
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1103 






************** ******************************** 




1104 






* 










1105 






* 


INPUT TRANSFERS 






1106 






* 










1107 






******** 


*************************** 


*********** 




1108 


000005F0 


007C 


2700 GJTIFB 


ORI 


#$2700, SR 






1109 


000005F4 


7000 




MOVEQ 


#0,D0 
S(A1),D0 
DO, (A6) + 






1110 


000005F6 


1029 


0005 G_TIFB1 


MOVE.B 


DO.L = Byte received 




1111 


000005FA 


10C0 




rovE.B 






1112 


OOOOOSFC 


5383 




SUBQ.L 


#1,D3 
G TDIN 


Decrement transfer counter 




1113 


OOOOOSFE 


6F4C 




BLE.S 


If buffer full; exit fast handshake 




1114 


00000600 


B440 




CriP.UI 


D0".D2 
G TDIN 


If input character matches end character 




1115 


00000602 


6748 




BEQ.S 


then we ' re done 




1116 


00000604 


1280 




MOVE.B 


DO", (Al) 


wti 7,0 (Trigger next input) 




1117 


00000606 


0811 


0000 G_TIFB2 


BTST 


#0, Al 
G TIFB1 


PFLG = 1 ? 




1118 


0000060FI 


66EA 




BNE 


Yes: Get next byte 




1119 


0000060C 


60F8 




BRA 


G_TIFB2 


No: Keep checking 




1120 
















1120 
















1120 
















1120 
















1121 


0000060E 


007C 


2700 G TIFU 


ORI 


#$2700, SR 


Disable interrupts 

Copy word from GPIO to buffer 




1122 


00000612 


30E9 


0004 G_TIFU1 


MOVE 


4(A1), (A0)+ 

#1.D3 

G TDIN 




1123 


00000616 


5383 




SUBQ.L 


Decrement transfer counter 




1124 


00000618 


6F32 




BLE.S 


If D3 = we' re done 




1125 


0O00O61A 


1280 




MOVE.B 


DO", (Al) 


wti 7,0 (Trigger next input) 




1126 


0000061C 


0811 


0000 G_TIFU2 


BTST 


#0, Al 
G TIFU1 


PFLG = 1 




1127 


00000620 


66F0 




BNE 






1128 


00000622 


60F8 




BRA 


G_TIFU2 


No : Keep checking 




1129 
















1129 
















1129 
















1129 
















1130 


00000624 


7000 


G TUB 


MOVEQ 


#0,D0 
5(A1),D0 
DO, (A0) + 






1131 


00000626 


1029 


0005 


MOVE.B 


DO.L = Byte received 




1132 


0000062A 


!0C0 




MOVE.B 


Store byte in input buffer 




1133 


0000062C 


B440 




CMP.U 


D0,D2 
G ENDIN 


Compare termination byte with input byte 




1134 


OO00O62E 


660C 




BNE.S 


No match: Everybody get out of here 1 




1135 


00000630 


5383 




SUBQ.L 


#T,03 


Decrement byte counter 




1136 


00000632 


2743 


0010 


MOVE.L 


D3,TCNT 0FF(A3) 

G_TDIN 






1137 


00000636 


6014 




BRA.S 






1138 
















1138 
















1138 

1138 
1139 
















00000638 


30E9 


0004 G TIIU 


MOVE 


4(A1),(A0)+ 
AO.TFIL 0FF(A3) 


Copy word from GPIO to buffer 




1140 


0000063C 


2748 


0020 G_ENDIN 


MOVE.L 


Save buffer pointer 




1141 


00000640 


5383 




SUBQ.L 


#1,D3 






1142 


00000642 


2743 


0010 


MOVE.L 


D3,TCNT 0FF(A3) 

G TDIN 






1143 


00000646 


6F04 




ELE.S 






1144 


00000648 


1280 




MOVE.B 


DO", (Al) 


wti 7,0 




1145 


0000064A 


4E75 




RTS 








1146 
















1146 
















1146 
1146 
1147 
















0000064C 


2748 


0020 G_TDIN 


MOVE.L 


A0,TFIL_0FF(A3) 


save fill pt r 
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1148 


00000650 2743 0010 


MOVE 


1 


D3,TCNT 0FF(A3) 


1149 


00000654 137C 0000 
0003 


HOVE 


13 


#0,3(fllT 


1150 


0000065A 136A 002C 
000? 


MOVE 


B 


EIRB_0FF(A2),7(A1) 


1151 


00000660 4EB9 0000 
0000 


JSR 




STCLR 


1152 


00000666 4E7S 


RTS 







save remaining count 

Stop card from interruptin9 

Put EIR byte in CTL1/CTL0 

Unbusy buffer 475 TM 9/17/82 
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1154 END 

PASS 1 ERRORS: 

PASS 2 ERRORS: 
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*»* 68000 ASSEMBLER SYMBOL TABLE DUMP *** 
EXTERNAL SYMBOLS 
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SYHBOL 


TYPE 


DEF 


VALUE 




ABORT 10 


ABS 


106 


00000008 




CHECK TFR 


ABS 


113 


00000019 




DMA STBSY 


ABS 


111 


00000013 




DROPDMfl 


ABS 


109 


OOOOOOOF 




GETDMfl 


ABS 


108 


OOOOOOOD 




IODECIARATIONS 


ABS 


264 


0000001C 




ITXFR 


ABS 


105 


00000006 




LOGINT 


ABS 


107 


OOOOOOOB 




STBSY 


ABS 


103 


00000002 




STCLR 


ABS 


104 


00000004 




SYSGLOBALS 


ABS 


265 


00000020 




TESTDMA 


ABS 


110 


00000011 




UAIT_TFR 


ABS 


112 


00000016 




INTERNAL SYMBOLS 






syobol 


TYPE 


DEF 


EQU SYM 


VALUE 


AO 


AREG 







00000000 


Al 


AREG 







00000001 


A2 


AREG 







00000002 


A3 


AREG 







00000003 


A4 


AREG 







00000004 


AS 


AREG 







00000005 


A6 


AREG 







00000006 


A7 


AREG 







00000007 


AVAIL OFF 


ABS 


204 




00000034 


BADTrtO" 


ABS 


282 




OOOOOOOB 


BAD RDS 


ABS 


290 




00000013 


BAD SCT 


ABS 


291 




00000014 


BUFT OFF 


ABS 


19S 




00000024 


BUFO OFF 


ABS 


196 




00000028 


buf Busy 


ABS 


280 




00000009 


CCR 


STREG 







00000005 


CRD DOWN 


REL 


551 




0000017C 


CRD DUN 


ABS 


292 




00000015 


C AtJR 


ABS 


194 




00000020 


DO" 


DREG 







00000000 


Dl 


DREG 







00000001 


D2 


DREG 







00000002 


D3 


DREG 







00000003 


D4 


DREG 







00000004 


05 


DREG 







00000005 


06 


DREG 







00000006 


D7 


DREG 







00000007 


EIRB OFF 


ABS 


197 




0000002C 


EOD SEEN 


ABS 


293 




00000016 


ESC CODE 


ABS 


301 


SYSGLOBALS 


f FFFFFFFE 


ESC ERR 


REL 


560 




0000018A 


EXTG" EG CLR 


REL 


434 




OOOOOOBC 


EXTG EG INIT 


REL 


319 




00000002 


EXTG EG ISR 


REL 


328 




00000010 
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0000002C 
00000074 
00000050 
OOOOOOAC 
O0OOO01E 
OOOOOOCC 
0000009C 
00000040 
0000008A 
00000064 
00000000 
000003BE 
0000052E 
00000246 
00000240 
00000242 
000001BE 
00000184 
00000188 
0000045A 
00000462 
000001F4 
000001FE 
00000208 
0000020E 
000001F8 
00000550 
000001FC 
000001FA 
00000280 
00000530 
00000540 
0000055E 
000001C4 
00000000 
000002A4 
0000035C 
00000378 
00000390 
0O0OO3A6 
0000037E 
000004AA 
000003AA 
000003B4 
000003BC 
000002AA 
0000063C 
000005C2 
O00OOOE2 
O00003E4 
000003EA 
00000100 
0000010C 
00000114 
00000514 
00000514 
00000S1C 



EXTG EG RDB 


REL 


346 


EXTG EG RDS 


REL 


390 


EXTG EG RDW 


REL 


368 


EXTG EG SET 


REL 


424 


EXTG EG TDMA 


REL 


337 


EXTG EG TEST 


REL 


444 


EXTG EG TFR 


REL 


414 


EXTG EG~UITB 


REL 


358 


EXTG EG~UTC 


REL 


403 


EXTG EG~WTLJ 


REL 


380 


EXTG EXTG 


REL 


314 


GD STBSY 


REL 


866 


GIS"R END 


REL 


1031 


GREGEXIT 


REL 


686 


GR CARD 


REL 


684 


GR CARD1 


REL 


685 


GSE"T 1 


REL 


597 


gterp: b 


REL 


555 


GTERR D 


REL 


557 


GTFI TRM 


REL 


94S 


GTFO TRM 


REL 


947 


GTSTT 


REL 


626 


GTST2 


REL 


631 


GTST3 


REL 


634 


GTST4 


REL 


637 


GTST CHK 


REL 


627 


GTST DIR 


REL 


1043 


GTST RTS 


REL 


629 


GTST~SET 


REL 


628 


GUJTCTBL 


REL 


728 


G ATFR 


REL 


1033 


G ATFR1 


REL 


1038 


G ATFR2 


REL 


1048 


G CLR 


REL 


605 


G~CROREG 


ABS 


651 


G DATA 


REL 


744 


G DMA1 


REL 


830 


G DMA3 


REL 


838 


G DMA4 


REL 


849 


G 0MA6 


REL 


855 


G DMAOUT 


REL 


845 


G QMATERM 


REL 


987 


G DMA U 


REL 


859 


G DMATJI 


REL 


862 


G - DMA U2 


REL 


864 


G~EIR 


REL 


752 


G ENDIN 


REL 


1140 


G ENDOUT 


REL 


1088 


G INIT 


REL 


461 


G INT I 


REL 


892 


G INT 


REL 


898 


G IOFS" 


REL 


475 


G I0FS1 


REL 


479 


G I0FS2 


REL 


482 


G ISR 


REL 


1024 


G'ISRI 


REL 


1025 


G ISR2 


REL 


1027 
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G NODMfl 


REL 


782 


00000300 




G RDB 


REL 


SOO 


00000122 




G RDS 


REL 


654 


00000216 




G RDSTBL 


REL 


703 


00000266 




G RDS DI 


REL 


692 


0000024C 




G RDS PST 


REL 


699 


OO0O025C 




G RDS RDY 


REL 


695 


00000252 




G RESE"T 


REL 


462 


OO0OOOE2 




G~ROUTINE 


ABS 


64 9 


00000002 




G _ RTS 


REL 


761 


000002CC 




G RTS1 


REL 


762 


000002CE 




G RT END 


REL 


710 


00000272 




G RT SIZ 


ABS 


711 


OOOOOOOC 




G SCB"SY 


REL 


549 


00000178 




G SC ERR 


REL 


553 


00000180 




G SET 


REL 


588 


000001AO 




G~SET CTL 


REL 


740 


00000296 




G~SET~PCT 


REL 


737 


00000290 




G STSO" 


REL 


510 


0000013A 




G STS1 


REL 


514 


00000146 




G STSCHK 


REL 


508 


00000134 




G TABORT 


REL 


1059 


00000582 




G TBL 


REL 


789 


0000030A 




G TDIN 


REL 


1147 


0000064C 




G~TDOUT 


REL 


1095 


000005D2 




G _ TEHP 


ABS 


650 


00000001 




G TEST 


REL 


620 


000001E2 




G TFI 


REL 


915 


00000416 




G TFIB 


REL 


921 


00000428 




G TFIB1 


REL 


922 


0000042C 




G~TFIB2 


REL 


929 


0000043C 




G~TFIU) 


REL 


933 


00000444 




G TFIU1 


REL 


934 


00000448 




G TFIUI2 


REL 


938 


000004S2 




G TFO 


REL 


953 


0000046A 




G TF03 


REL 


974 


000004AO 




G TFOB 


REL 


956 


00000474 




G TFOB1 


REL 


957 


00000478 




G TF0B2 


REL 


961 


00000482 




G TFOW 


REL 


965 


0000048A 




G TFOU1 


REL 


966 


0000048E 




G TF0UI2 


REL 


970 


00000498 




G TFR 


REL 


771 


000002D6 




G TID 


REL 


824 


00000348 




G TIFB 


REL 


1108 


000005FO 




G TIFB1 


REL 


1110 


000005F6 




G TIFB2 


REL 


1117 


00000606 




G~TIFU 


REL 


1121 


0000060E 




G TIFUI1 


REL 


1122 


00000612 




G TIRJ2 


REL 


1126 


0000061C 




G Til 


REL 


891 


000003E4 




G TUB 


REL 


1130 


00000624 




G TIIUI 


REL 


1139 


00000638 




G TOD 


REL 


844 


0000037E 




G TOFB 


REL 


1067 


0000058C 




G TOFB1 


REL 


1068 


00000590 




G_T0FB2 


REL 


1072 


0000059A 
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G TOFU 


REL 


1076 


0O000SA2 




G TOFUI1 


REL 


1077 


0O000SA6 




G T0FUI2 


REL 


1081 


000005B0 




G TOI 


REL 


897 


000003EA 




G TOIB 


REL 


1085 


000005B8 




G TOIU 


REL 


1087 


000005BE 




G TTBL 


REL 


1050 


00000562 




G T BIC 


REL 


885 


000003D8 




G T BST 


REL 


879 


000003D2 




G~T"~DMA 


REL 


816 


00000332 




G T FHS 


REL 


907 


000003FE 




G T INT 


REL 


873 


000003CA 




G UNDEND 


REL 


1016 


00000512 




G UNDHfl 


REL 


988 


000004AA 




G UfilT 


REL 


522 


0000014E 




G UAIT2 


REL 


526 


0000015A 




G UAIT3 


REL 


532 


00000162 




GTJAIT4 


REL 


539 


00000170 




G URTS 


REL 


541 


00000176 




G UITB 


REL 


489 


00000116 




G UTC 


REL 


722 


00000272 




G~UTC RST 


REL 


735 


0000028C 




G LITIS 


REL 


755 


000002B6 




H ISR PH 


ABS 


193 


0000001C 




H ISR PR 


ABS 


191 


00000014 




H ISR SL 


ABS 


192 


00000018 




IO"E ER"ROR 


ABS 


296 


FFFFFFE6 




IOE RSLT 


ABS 


298 IODECLARATIONS 


t FFFFFFBE 




IOE SC 


ABS 


299 IODECLARATIONS 


+ FFFFFFBA 




10 RISC 


ABS 


294 


00000017 




IO~SC 


ABS 


198 


0000002D 




ISR" ENTRY 


ABS 


189 


OOOOOOOO 




HP 


ABS 


203 


00000033 




ma W 


ABS 


202 


00000032 




NOT HPIB 


ABS 


273 


00000002 




NOT LSTN 


ABS 


287 


00000010 




NOT"TflLK 


ABS 


286 


OOOOOOOF 




NO PTCTL 


A8S 


274 


00000003 




NO CARD 


ABS 


272 


00000001 




NO DATA 


ABS 


277 


00000006 




NO DflP 


ABS 


284 


OOOOOOOD 




NO DRV 


ABS 


283 


OOOOOOOC 




NO _ OVC 


ABS 


275 


00000004 




NO SCTL 


ABS 


289 


00000012 




NO SPACE 


ABS 


276 


00000005 




NO UORD 


ABS 


285 


OOOOOOOE 




RCVR BLK 


ABS 


302 SYSGLOBALS 


+ FFFFFFF6 




RDS FRR 


REL 


671 


0000023A 




sc Susy 


ABS 


279 


00000008 




SP~ 


AREG 





00000007 




SR 


STREG 





00000006 




TACT OFF 


ABS 


219 


00000007 




TBSZ OFF 


ABS 


242 


00000018 




TBUF OFF 


ABS 


241 


00000014 




TCHR~0FF 


ABS 


238 


OOOOOOOE 




TCMT/RR 


ABS 


281 


OOOOOOOA 




TCNT OFF 


PBS 


24 


00000010 
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OOOOOOOD 
0000001C 
00000008 
00000020 
00000007 
0000002E 
00000011 
00000000 
00000003 
00000002 
00000004 
00000001 
00000009 
OOOOOOOfi 
00000030 
0000002C 
00000024 
00000005 
00000028 
000004FB 
000004EC 
000004DC 
000004C2 
00000014 
00000007 



TDIR OFF 


BBS 


236 


TEHP OFF 


BBS 


243 


TEND OFF 


FIBS 


234 


TFIL OFF 


BBS 


244 


TFR FRR 


BBS 


278 


TIMFOUT 


BBS 


199 


TttO ERR 


BBS 


288 


TTMP OFF 


BBS 


217 


TT BURST 


BBS 


255 


TT~DMA 


BBS 


254 


TT~FHS 


BBS 


256 


TT~INT 


BBS 


253 


TUS"R OFF 


BBS 


220 


T BU OFF 


BBS 


232 


T Drift" PR I 


BBS 


249 


T PM OFF 


BBS 


248 


T PR OFF 


BBS 


245 


T SC OFF 


BBS 


218 


T SL OFF 


BBS 


247 


UFlIN? 


REL 


1012 


UNINPUT 


REL 


1006 


UN0UT2 


REL 


1001 


UNOUTPUT 


REL 


994 


USER ISR 


BBS 


190 


USP 


STREG 
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GPIODVR 



Purpose 

GPIODVR is the assembly language support routines for the 9885 flexible disc drive transfer 
method: F9 8 8 5. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PASS 1 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
4S 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



COMPLETE. ERRORS: 



src 
src 
src 
src 

src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 
src 



nosyms 
mname 


9P 


module gp; 




import 

sysglobals, 


mini; 


export 
type 





gpiotype = { gpio interface card definition > 
packed record case integer of 
0: {direct byte access) 

( rO, rl, r2, r3, r4, r5, r6,r7: byte ); 
1: (read access; 

( <r0) R0pad:0. .127; ready:boolean; 
rl> Rlpad:0..7; cardid:0. .31 ; 
r2> R2pad: byte; 

r3> Renab, req :boolean; intlevel :0 . .3 
r4> Rdata: 
r5> shortint; 

r6) R6pad:byte; 
r7) R7pad:0..15; pst s,eir , stil , st iO : boolean ); 



burst ,Rword,Rdmacl ,Rdmac0: boolean; 



end; 



{write access} 

r0> setpctl:byte; 

rl> reset:byte: 

r2> U2pad:0..63; rdyen.eiren :boolean; 

r3) Uenab :boolean; UI3pad:0. . 15; Ulword,Wdmacl,WdmacO : boolean; 

r4> Udata: 

r5> shortint; 

r6) U6pad:byte: 

,r7) UI7pad:0. .63; ct 11 ,ctl0:boolean ) 

{ gpio interface card definition > 



gpio_r3 type ■ {separate declaration for use with structured constants) 
packed" record 

{r3) Uenab :boolean; U3pad:0..15; Wword.Wdmacl ,Udmac0: boolean; 
end; 

dmachanneltype = packed array[0..7] of byte; 

ar 
dma_port [5242880] : array[0..1] of dmachanneltype; 



procedure gpioclear 

procedure gpiowordout 

function gpiowordin 

procedure gpiodmaout 



procedure gpiodmain 



end; (gpio) 



(var gpio: gpiotype); 
(var gpio: gpiotype: datum: shortint); 
(var gpio: gpiotype): shortint; 
(var gpio: gpiotype; 

command: snortint; 

enable_byte: gpio r3_type; 

var dma_channel: dmachanneltype; 

buffer: charptr; length: integer); 
(var gpio: gpiotype; 

command: snortint; 

enable_byte: gpio r3_type; 

var dma_channel: dmachanneltype; 

buffer: charptr; length: integer); 
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60 
61 
62 
63 
64 
65 
66 
67 



70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 



* dmaout/dmain stack frame definitions 
* 

(long) 
long) 
long) 
(long) 
(long) 
(byte) 
byte 
(wo rd J 
(long) 



0000 


0000 


olda6 


equ 


+0 


0000 


0004 


radd 


equ 


+4 


0000 


0008 


len 


equ 


♦ 8 


0000 


oooc 


buf 


equ 


+ 12 


0000 


0010 


chan 


equ 


+ 16 


0000 


0014 


enab 


equ 


+20 


0000 


0015 


stackpad 


equ 


+ 21 


0000 


0016 


cmnd 


equ 


+22 


oooo 


0018 


gpio 


equ 


+ 24 



* Def's & Ref's 



def 
def 
def 
def 
def 
def 

refa 
ref a 



gp_gp 

gp_gpioclear 

gp_gpiowordout 

gp_gpiowordin 

gp_gpiodmaout 

gp_gpiodmain 

sysglobals 
mini_ioresc 

mini ioresc 



00000000 4E75 



* module initialization routine 
gp_gp rts 



* ioresult assignments 



0000 0004 ztimeout 
0000 0015 zcatchall 



equ 
equ 



00000002 7015 



* error exits 
ioresc_catchall moveq 



00000004 3F00 ioresc 
00000006 4EB9 0000 

0000 



OO0O000C 3B7C FFF4 bus error 

FFFE 
00000012 4E4P, 



move 



4 
21 



♦zcatchall, dO 

dO.-(sp) 
mini ioresc 



old stack frame pointer 

return address 

length of transfer in words 

address of buffer 

dma channel base address 

gpio dma enable byte 

unused - caused by pushing byte on stack 

disc command (read/write/verify) 

gpio card base address 



zcatchall ioresult 

push the ioresult 

set ioresult then escape(-lO) 



move #-12,sysglobals-2(aS) set the escapecode 
trap #10 escape 
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* gpiowait ready with 2 second timeout 
* 

move.l #206185, dO 



00000014 203C 0003 waitready 
2569 

00000019 0829 0003 wait ready_loop btst 
0007 

00000020 66E0 
00000022 0811 0000 
00000026 6608 
00000028 5380 
0O0O002A 6EEE 



#3,7(al) 



0000002C 7004 
0000002E 60D4 



00000030 4E7S 



bne 


ioresc catchall 


btst 


#0, (alj 


bne . 5 


wait ready rt s 


subq . 1 


#l ( dO 


bgt 


wait ready_loop 


moveq 


Hzt imeout , dO 


bra 


ioresc 



wai t ready_rt s rts return 

****************************************************************************** 
* gpioclear * 

****************************************************************************** 



gp_gpioclear 
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115 
116 
117 
118 

119 
120 

121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 



timeout counter 



peripheral status? 

ioresc(zcatchall) if so 

ready? 

branch if so 

decrement the timeout counter 

loop until timeout count expired 

ztimeout ioresult 
escape 



00000032 20SF 

0C000034 225F 

00000036 1340 0001 

0000003A 4229 0007 

0000003E 7064 

00000040 51C8 FFFE 

00000044 61CE 

00000046 4E00 



movea .1 (sp) + , aO 
movea .1 ( sp 3 + , al 
move.b d0,l(al) 
clr.b 7(al) 
moveq #100, dO 
dbra dO,* 
bsr waitready 
jmp (aO) 



pop the return address 

pop the gpio card base address 

reset the card 

clear ctll & cltO 

prepare to . . . 

wait a while . . . 

before testing psts & ready 

return 



******************************************************************************* 
* gpiowordout * 

******************************************************************************* 



00000048 205F 
0000004R 226F 0002 
0000004E 61C4 
O00O00SO 3357 0004 
00000054 1280 
00000056 5C8F 
00000058 4ED0 



0000005A 205F 
0000005C 225F 
0000005E 61B4 
00000060 3EA9 0004 
00000064 1280 
00000066 4ED0 



gp_gpiowordout movea. 1 (sp)+,a0 
movea .1 2(sp) , al 
bsr waitready 
move (sp) ,4 (al ) 
move .b dO , (al ) 
addq.l #6,sp 
jmp (aO) 



pop the return address 
gpio card base address 
wait until ready 
output the datum 
set pctl 

pop off the parameters 
ret urn 



******************************************************************************* 
* gpiowordin * 

******************************************************************************* 



gp_gpiowordin movea. 1 (sp)+,aO 

movea. 1 (sp)+,al 

bsr waitready 

move 4 (al ) , (sp) 

move.b dO.(al) 

jmp (aO) 



pop the return address 

gpio card base address 

wait until ready 

input the datum 

set pctl (same manner as 98032 autohandshake) 

return 
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172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 

185 
186 

187 
188 
189 
190 
191 
192 
193 

194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 

208 
209 
210 
211 
212 
213 
214 
215 
216 
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******* 



I****************************************: *************************** 
* gpiodmaout 

***************************************************** 



00000068 4E56 0000 gp_gpiodmaout 

0000006C 226E 0018 
00000070 61A2 

00000072 4E4B 

* scs 
00000074 007C 2700 

00000078 336E 0016 

0004 
0000007E 1280 
00000080 136E 0014 

0003 

00000086 246E 0010 
0000008A 24AE 000C 
0000008E 202E 0008 
00000092 5380 
00000094 3540 0004 
00000098 357C 0006 
0006 

0000009E 46DF 

OOOOOOAO 47E9 0007 
OO00O0A4 7003 
OO0OO0A6 49EA 0007 
OO00O0AA 7200 

OOOOOOAC 0113 do_loop 
000000HE 6600 FFS2 
000000B2 0314 
OO0O00B4 66F6 

OO0O00B6 0C6A FFFF 

0004 
000000BC 6600 FF4E 

000O00C0 6100 FFS2 

000000C4 4E5E 
0000C0C6 20SF 
O0OO0OC8 OEFC 0014 
000O0OCC 4ED0 



a6,#0 



movea. 1 gpio(a6) ,al 

bsr waitready 



trap 
move 

ori 



#11 

sr -(sp) 

#12700, sr 



move cmnd (a6) ,4 (al) 

move .b dO, (al 1 
move.b enab (a6) ,3 (al ) 



movea. 1 chan(a6) , a2 
move.l buf(a6),(a2) 
move .1 len(a6 ) ,d0 
subq.l #l,dO 
move d0,4(a2) 
move #$0006, 6(a2) 



(sp)+,sr 



lea 


7(al),a3 
#3,d0 


moveq 


lea 


7(a2),a4 


moveq 


#0,dl 


btst 


dO, (a3) 


bne 


ioresc catchall 


btst 


dl, (a47 


bne 


do_loop 


cmpi 


#-l,4(a2) 


bne 


bus_e rro r 


bsr 


wait ready 


unlk 


a6 


movea 
adda 


1 (sp)+,aO 
#20, sp 


jmp 


(aO) 



************************* 

create our own stack frame 

gpio card base address 

wait for previous handshake to complete 

move into supervisor mode (scs) 

prepare to disable interrupts 

disable interrupts ******************* 

disc command 

set pctl 

enable the gpio card for dma 



dma channel base address 

set the dma address 

transfer length 

length-1 

set the dma count 

arm the dma channel 



re-enable interrupts ****************** 

gpio register 7 address 
psts bit (gpio register 7) 
dma status lower byte address 
armed bit (dma status register) 

psts? 

ioresc (zcatchall) if so 
dma channel still armed? 
keep looping if so 

dma transfer complete normally? 

branch if not (bus error) 

wait for the final handshake to complete 

remove our stack frame 
pop the return address 
pop off the parameters 
return 
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218 

219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 

232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 

247 
248 
249 
250 

251 
252 
253 
254 

255 

256 
257 
258 
2S9 
260 
261 
262 
263 
264 
265 
266 
267 
268 



***************************************************»******»»»»,,*»»»**»,,*»»,,,,,»» 
* gpiodmain * 



OOOOOOCE 4ES6 0000 gp_gpiodmain link a6,#0 



00000002 
OOOO0OD6 

OOOOOODR 

OOOOOODC 

OOOOOOEO 

000000E6 

000000E8 
OOOOOOEA 
OOOOOOEE 

OOOOOOFO 
0000OOF2 
O0000OF4 

00O0OOF6 

OOO00OF8 
OOOOOOFC 



226E 0018 
6100 FF3C 

4E4B 

007C 2700 

336E 0016 

0004 

1280 

7000 

45E9 0007 
7203 



movea.l gpio(a6),al 
bsr waitready 



t rap 
move 
ori 



#11 

sr.-(sp) 
#$2700, sr 



move cmnd(a6) ,4(al) 
move.b d0,(al) 



0312 
660A 
0111 
67F8 

4269 0004 
1280 



d_loop 



moveq 

lea 

moveq 

btst 
bne . s 
btst 
beq 

clr 



#0,dO 

7(al),a2 

#3,dl 

dl , (a2) 

d enab 
dO". (al) 
d_loop 

4(al) 



OOOOOOFE 136E 0014 d enab 
0003 



00000104 
00000108 
0000010C 

00000112 
00000116 
00000118 
0000011A 
0000011E 



246E 0010 
24RE OOOC 
357C FFFF 
0004 

202E 0008 
5580 
6D0A 

3540 0004 
3S7C 0002 
0006 



move.b dO, (al ) 

move.b enab (a6) ,3(al ) 

movea.l chan(a6),a2 

move.l buf(a6),(a2) 

move #-l,4(a2) 

move.l Ien(a6),d0 

subq.l #2,d0 

bit. s 

move 

move 



di_reni 

d0.4fa2) 

#$0002, 



a2) 



00000124 46DF 



di_reni 



00000126 
0000012P 
0000012C 
00000130 

00000132 
00000134 
00000138 
0000013A 



47E9 0007 
7003 

49EA 0007 
7200 

0113 di loop 

6600 FECC 

0314 

66F6 



move 

lea 

moveq 
lea 

moveq 

btst 

bne 

btst 

bne 



(sp)+,sr 

7(al),a3 
#3,d6 
7(a2),a4 
#0,dl 

dO, (a3) 

ioresc catchall 

dl,(a4j 

di_ioop 
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cmpl #-l,4(a2) 

bne bus_error 

bsr waitready 



270 








271 


0000013C 


0C6A 
0004 


FFFF 


272 


00000142 


6600 


FEC8 


273 








274 


00000146 


6100 


FECC 


275 








276 


0000014P 


206E 


OOOC 


277 


0000014E 


202E 


0008 


278 


00000152 


D080 




279 


00000154 


31A9 
08FE 


0004 


280 








281 


0000015A 


4ESE 




282 


0000015C 


20SF 




283 


0000015E 


DEFC 


0014 


284 


00000162 


4E00 




285 








286 








287 








PASS 1 


ERRORS: 






PASS 2 


ERRORS: 







movea. 1 buf (a6) ,a0 
move.l len(a6 ,dO 
add.l dO.dO 
move 4(al),-2(a0,d0.1) 



unlk 



a6 



movea.l (sp)+,aO 



adda 
jmp 



(aOj 



sp 



create our own stack frame 

gpio card base address 

wait for previous handshake to complete 

move into supervisor mode (scs) 

prepare to disable interrupts 

disable interrupts ******************* 

disc command 

set pctl 

ready bit (register 0) 
register 7 address 
psts bit (register 7) 

peripheral status? 

fall out of the critical section if so 

ready? 

branch if not 

clear the output buffer 

set pctl, requesting the first word in 

enable the gpio card for dma 



dma channel base address 

set the dma address 

set count to -1 for the case of one transfer 

transfer length 

length-2 

branch if one transfer only 

set the dma count 

arm the dma channel 



re-enable interrupts ****************** 

gpio register 7 address 
psts bit (gpio register 7) 
dma status lower Byte address 
armed bit (dma status register) 

psts? 

ioresc(zcatchall) if so 
dma channel still armed? 
keep looping if so 



dma transfer complete normally? 

branch if not (bus error) 

wait for last handshake to complete 

buffer address 
transfer length in words 
transfer length in bytes 
transfer last word 



remove our stack frame 
pop the return address 
pop off the parameters 
return 
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MATCH 



Purpose 

MATCH matches symbols in an EXT table to a DEF table. 

Usage 

MATCH is used by the linking loader. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PRGE 


1 [2.0] 11/4/82 


16: 


15:24 ASSEMBLY 


DF MATCH. TEXT 






PASS 1 


COMPLETE. ERRORS 


: 












1 








* 


procedure matchdefext 






2 








X 




var resolved, matched: 
matchmask : 0, .255; 


boolean return flags 




3 








* 




to be or'd when matched 




4 








* 




var def table, ext tabl 
arraytO . . J of 


e: 




5 








* 




char; symbol tables 




6 








* 




var ext_list: array[0. 


. ] of 0.. 65535 index list 




7 








* 




N: shortint 


number of EXT records 




8 
9 
10 
11 
12 
13 
14 








* 




DEF_length: integer 


size of DEF table 




00000000 








rorg 

















def 


matchdefext 








0000 


0001 


offset 




equ 1 


offset field of a GVR 




15 
16 
17 




0000 


0002 


gvr_f la 


3 


equ 2 


bit in a GVR indicating absence 






0000 


0000 


ext_st r 




equ aO 


pointer to EXT symbol 




18 




0000 


oooo 


return 




equ aO 


storage for return address 




19 




0000 


0001 


ext base 


equ al 


address of EXT table 




20 




0000 


0002 


list 




equ a2 


address of index list 




21 




0000 


0003 


def_st r 




equ a3 


pointer to string in DEF table 




22 




0000 


0004 


gv r pt r 




equ a4 


pointer to GVR in DEF table 




23 








*qlobal 
*local 




equ a5 


reserved for PASCAL 




24 










equ a6 


base of local workspace 




25 
26 
27 








*sp 




equ a7 


stack pointer 






0000 


0000 


cond 




equ dO 


temporary save for condition codes 




28 




0000 


0001 


len 




equ dl 


length of string or GVR 




29 




0000 


0002 


ext count 


equ d2 


number of EXT symbols to process 




30 




0000 


0003 


def count 


equ d3 


bytes of DEF table left 




31 




0000 


0004 


def_add 


r 


equ d4 


address of symbol part of DEF record 




32 




0000 


oocs 


match resolve 


equ d5 


two booleans packed in a word 




33 




0000 


0006 


ext oTf 


set 


equ d6 


relative pointer to an EXT symbol 

match mask 




34 
35 
36 




0000 


0007 


ma sT 




equ d7 






0000 


0000 


matchde 


p ext e 


qu * 






37 


OOOOOOOO 


20SF 






movea . 1 


(sp)+, return 


return address 




38 


00000002 


261F 






move . 1 


(spj+,def_count 


length of OEF table 




39 


00000004 


341F 






move .w 


(sp]+,ext count 


length of index list, pointer table 




40 


00000006 


24SF 






movea . 1 


sp +,list 


address of EXT index list 




41 


00000008 


225F 






movea . ] 


( sp j +,ext_base 


address of EXT table 




42 


OOOOOOOR 


285F 






movea . 1 


j sp] + ,gv r pt r 


address of DEF symbol 




43 


oooooooc 


3E1F 






move . w 


(sp)+,masF 


flag pattern for matched GVR 
replace return address 




44 
45 
46 
47 
48 


O0OO000E 


2F08 






move . 1 


return, - (sp) 




00000010 


7A01 






moveq 


#$0001 ,match_resolve 


matched := false ; resolved := true 




00000012 


5342 






subq.w 


tl ,ext_count 


number of EXT symbols to process 
all done if no EXT table 




49 
50 
51 


00000014 


6S7E 






bcs . s 


done 




00000016 


3C1A 




LI 


move .w 


(list)*, ext offset 


get relative address of an EXT symbol 




52 


00000018 


S6CA 


FFFC 




dbne 


ext_count , LT 


scan till non-zero, meaning unresolved 




S3 

54 
55 


0000001C 


6776 






beq . s 


done 


done if none 




O000001E 


4A83 






tst .1 


def count 


length of DEF symbol table 




56 
57 
58 


00000020 


6748 






beq . s 


no_d~efs 


done if none 




00000022 


280C 




get_def 


move . 1 


gvr_pt r,def_addr 


save address of DEF record 
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16: 


15:24 ASSEMBLY 


OF MATCH. TEXT 






59 


00000024 


4281 






clr.l 


len 


find GVR of DEF record 




60 


00000026 


1214 






move .b 


(gvr pt r ) , len 
#2, len 


length of string 




61 


00000028 


5441 






addq .w 


compute length of string part 




62 


0000002A 


0881 


0000 




bclr 


#0,len 






63 


0000002E 


D8C1 






adda . w 


len,gvr_pt r 


skip over string 




64 


00000030 


9681 






sub . 1 


len, def count 






65 


00000032 


0814 


0002 




btst 


#gvr_flag, (gvr_ptr) 


check for exported symbol 




66 
67 
68 


00000036 


6626 






bne . s 


nex t_def 


ignore if not present 




00000038 


41F1 


6000 


compare 


lea 


0(ext base, ext offset.* 


),ext_str get addresses of two strings 




69 
70 

71 


0000003C 


2644 






movea . 1 


def_a3dr,def_st r 






0000003E 


4241 






clr .w 


len 


standard string compare 




72 


00000040 


1218 






move .b 


(ext_str)+, len 


get EXT symbol length 




73 


00000042 


B21B 






cmp.b 


(def_st r) + , len 


compare two lengths 




74 


00000044 


40C0 






move 


sr , cond 


save condition codes for later 




75 


00000046 


6304 






bls.s 


str comp 






76 


00000048 


122B 


FFFF 




move .b 


-1 (tfef str) ,len 


get minimum of two string lengths 
loop if at least one character 




77 


0000004C 


5301 




st r_com 


p subq.b 


#l,len 




78 


0000004E 


6508 






bcs . s 


cmp end 






79 


00000050 


B10B 




cmp_lp 


cmpm.b 


(de?_str)+, (ext_st r) + 

len , cmp_lp 

nomatch 


compare string bodies 




80 


00000052 


56C9 


FFFC 




dbne 


loop till not equal or end of string 




81 


00000056 


6604 






bne . s 


if string bodies are equal 




82 
83 
84 


00000058 


44C0 




cmp_end 


move 


cond,ccr 


then compare lengths 




0000005A 


6712 






beq .s 


match 


three way branch on comparison 




85 
86 
87 


0000005C 


632H 




nomatch 


bls.s 


ext_low 






0000005E 


4281 




next_de 


f clr.l 


len 


DEF does not match an EXT 




88 


00000060 


122C 


0001 




move.b 


offset (gvr pt r) ,len 


get length of GVR 




89 


00000064 


D8C1 






adda.w 


len,gvr_pt r 






90 


00000066 


9681 






sub . 1 


len, def count 


decrease size of DEF table to search 




91 
92 
93 


00000068 


62B8 






bhi .s 


get_def 


loop back if there is any left 




0000006R 


420S 




no_def s 


clr .b 


match_resolve 


resolved := false 




94 
95 
96 


O0OO0O6C 


6026 






bra .s 


done 


no more DEF records 




0000006E 


0045 


0100 


match 


o ri .w 


t$0 100, ma tch_re solve 


matched := true 




97 


00000072 


2384 


6000 




move . 1 


def addr,0 (ext_base,ext 


offset. w) copy address of DEF to EXT 




98 


00000076 


8F14 






or.b 


masF, (gvr pt r ) 


mark OEF record as having been matched 




99 


00000078 


426R 


FFFE 




clr .w 


-2(list) 


index := to flag it as resolved 




100 


0000007C 


6002 






bra . s 


nxtext2 


find next unresolved EXT 




101 


0000007E 


3C1A 




L2 


move .w 


(list)+,ext offset 


get relative address 




102 


00000080 


S6CR 


FFFC 


nxtext2 


dbne 


ext_count ,L2" 


scan till non zero or end of list 




103 


00000084 


66D8 






bne .s 


nex t_def 


find next OEF record 




104 
10S 
106 


00000086 


600C 






bra .s 


done 


done if none 




00000088 


4205 




ext^low 


clr.b 


match_resolve 


resolved := false 




107 


0000008R 


6002 






bra .s 


nxtext3 


find next unresolved EXT 




108 


0000008C 


3C1R 




L3 


move .w 


(list)*, ext offset 


get relative address 




109 


0000008E 


S6CA 


FFFC 


nxtext3 


dbne 


ext_count , L3~ 


scan till non zero or end of list 




110 
111 
112 


00000092 


66A4 






bne . s 


compa re 


compare to same DEF record 




00000094 


205F 




done 


movea . 1 


(sp)+, return 


return address 




113 


00000096 


225F 






movea . 1 


sp)+, al 


address of matched 




114 


00000098 


24SF 






movea . 1 


(sp)+, a2 


address of resolved 




115 


0000009A 


1485 






move .b 


match resolve, (a2) 


return boolean results 
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116 


0000009C E040 


117 


0000009E 8B11 


118 


000000A0 4E00 


119 




120 




PASS 1 


ERRORS: 


PASS 2 


ERRORS: 
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lsr.w #8,match_resolve 

or.b match_resolve, (al ) 
jmp (return) 



matched 



matched or match 
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*»* 68000 ASSEMBLER SYMBOL TABLE DUMP *»* 

EXTERNAL SYMBOLS 
*** NO EXTERNAL SYMBOLS »** 

INTERNAL SYMBOLS 



SYMBOL 


TYPE 


DEF EQU SYM VALUE 


AO 


AREG 





00000000 


Bl 


AREG 





00000001 


A2 


AREG 





00000002 


A3 


AREG 





00000003 


A4 


AREG 





00000004 


AS 


AREG 





00000005 


A6 


RREG 





00000006 


A7 


AREG 





00000007 


CCR 


STREG 





00000005 


CMP END 


REL 


82 


00000058 


CMP~LP 


REL 


79 


ooooooso 


COMPARE 


REL 


68 


00000038 


COND 


DREG 


27 


00000000 


DO 


DREG 





00000000 


01 


DREG 





00000001 


02 


DREG 





00000002 


03 


DREG 





00000003 


D4 


DREG 





00000004 


05 


DREG 





00000005 


06 


DREG 





00000006 


D7 


DREG 





00000007 


DEF BDOR 


DREG 


31 


00000004 


DEF COUNT 


DREG 


30 


00000003 


DEF~STR 


AREG 


21 


00000003 


done; 


REL 


112 


00000094 


EXT BASE 


AREG 


19 


00000001 


EXT COUNT 


DREG 


29 


00000002 


EXT LOU 


REL 


106 


00000088 


EXT OFFSET 


DREG 


33 


00000006 


EXT STR 


AREG 


17 


00000000 


GET DEF 


REL 


58 


00000022 


GVR FLAG 


ABS 


IS 


00000002 


GVR PTR 


AREG 


22 


00000004 


LI 


REL 


51 


00000018 


L2 


REL 


101 


0000007E 


L3 


REL 


108 


0000008C 


LEN 


DREG 


28 


00000001 


LIST 


AREG 


20 


00000002 


MASK 


OREG 


34 


00000007 


MATCH 


REL 


96 


0000006E 


MBTCHDEFEXT 


REL 


36 


00000000 


MATCH RESOLVE 


DREG 


32 


00000005 


NEXT BEF 


REL 


87 


0000005E 


NOMATCH 


REL 


85 


0000005C 


NO DEFS 


REL 


93 


0000006A 


NXTEXT2 


REL 


102 


00000080 


NXTEXT3 


REL 


109 


0000008E 
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00000001 
00000000 
00000007 
00000006 
0000004C 
00000007 



OFFSET 


BBS 


14 


RETURN 


AREG 


18 


SP 


fiREG 





SR 


STREG 





STR COMP 


REL 


77 


USP 


STREG 
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MATCHSTR contains low -level assembly language string functions 
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OF MATCHSTR. TEXT 




PASS 1 


COMPLETE . 


ERRORS: 








1 
2 






* match pack 

* 






3 








nosyms 






4 








sprint 






S 

6 
7 








mname 


matchst r 










src 


module matchstr; 




8 








src 


export 




9 








src 






10 








src 


type 




11 








src 


stringarg=st ring [255] ; 




12 








src 


ttable =packed array[0..0] of 0..2S5; 




13 








s re 






14 








src 


function afterstr(var sl:string; 




IS 








src 


c :integer; 




16 








src 


n :integer; 




17 








src 


s2 : st ringarg) :integer; 




18 








src 


function beforest r (var sl:string; 




19 








src 


c :integer; 




20 








src 


n rinteger; 




21 








src 


s2: st ringarg) : integer; 




22 








src 


function changest r (var 5l:string; 




23 








s re 


c :integer; 




24 








src 


n :integer; 




2S 








src 


s2:stringarg: 




26 








src 


s3:stringargj : integer; 




27 








src 


function breakstr (si : st ringarg; 




28 








src 


c :integer; 




29 








src 


s2:stringarg) :integer; 




30 








src 


function spanst r (si : st ringarg; 




31 








src 


c :integer; 




32 








src 


s2:st ringarg) : integer; 




33 








src 


end; 




34 














35 








def 


matchstr matchstr 




36 




0000 


0000 matchstr matchstr equ * 




37 


00000000 


4E75 




rts 






38 




0000 


OOlfl afunc 


equ 


26 




39 




0000 


0018 amsl 


equ 


24 




40 




0000 


0014 asl 


equ 


20 




41 




0000 


0010 ac 


equ 


16 




42 




0000 


OOOC an 


equ 


12 




43 




0000 


0008 as2 


equ 


8 




44 




0000 


0012 aargs 


equ 


18 




45 








def 


matchstr afterstr 




46 


00000002 


0000 




dc .w 







47 




oooo 


0004 matchst 


r afterstr equ » 




48 


00000004 


4E56 


0000 


link 


a6,#0 




49 


00000008 


42AE 


OOlfl 


clr.l 


afunc(a6) func:=0 




SO 


oooooooc 


206E 


0014 


movea . 1 


asl(a6),a0 a0:="sl 




51 


00000010 


7000 




moveq 


#0.d0 

(a6),d0 dO:=strlen(sl) 

an(a6) ,d2 if n>=0 

afterl then 




52 


00000012 


1010 




move .b 




53 


00000014 


242E 


OOOC 


move . 1 




54 


00000018 


6024 




bit. 5 




55 






* 








56 






* count 








57 






* 








58 


0000001A 


262E 


0010 


move . 1 


ac(a6),d3 d3:=c 
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59 


0000001E 


6F2E 




ble.s 


aret check cursor<=0 




60 


00000020 


226E 


0008 


movea . 1 


as2(a6),al al:="sl 




61 


00000024 


7200 




moveq 


#0,dl 

(ai)+,dl dl:=strlen(s2) 

afterO 




62 


00000026 


1219 




move.b 




63 


00000028 


6708 




beq .s 




64 


0000002A 


6144 




bsr .s 


scan 




65 


0000002C 


2D43 


OOlfl agood 


move. 1 


d3,afunc(a6) 




66 


00000030 


601C 




bra .5 


aret 




67 






* 








68 






« count 


but no 


string 




69 






* 








70 


00000032 


0682 


afterO 


add.l 


d2,d3 c:=c+n 




71 


00000034 


9083 




sub .1 


d3,d0 




72 


00000036 


5280 




addq.l 


#l,dO c :: len(sl)+l 




73 


00000038 


66F2 




bne 


agood 




74 


0000003A 


6000 


0012 


bra 


aret 




75 






* 




else 




76 






* no count given 




77 






* 








78 


O00OO03E 


226E 


0008 afterl 


movea. 1 


as2(a6) ,al 




79 


00000042 


7200 




moveq 


#0,dl 

(al)+,dl 

after2 




80 


00000044 


1219 




move .b 




81 


00000046 


6610 




bne . s 




82 






* 








83 






* no count no string 




84 






* 








85 


00000048 


5280 




addq.l 


#l,dO func:-d0+l 




86 


O000004A 


2D40 


OOlfl 


move . 1 


d0,afunc(a6) 




87 














88 


0000004E 


4ESE 


aret 


unlk 


a6 end 




89 


00000050 


205F 




movea . 1 


(sp)+,aO 
♦aargs, sp 




90 


00000052 


DEFC 


0012 


adda.w 




91 


00000056 


4ED0 




:mp 


(aO) 




92 






* 








93 






* no count with 


st ring 




94 






* 








95 


00000058 


7401 


after2 


moveq 


#l,d2 count 1 




96 


OOOOOOSfi 


262E 


0010 


move . 1 


ac (a6) ,d3 




97 


0000005E 


6FEE 




ble 


aret cursor out of range? 




98 


00000060 


610E 




bsr . s 


scan 




99 


00000062 


67EA 




beq 


aret must match at least once 




100 


00000064 


2D43 


OOlfl after3 


move . 1 


d3,afunc(a6) 




101 


00000068 


7401 




moveq 


#1 ,d2 reset count 




102 


0000006A 


6104 




bsr . s 


scan 




103 


0000006C 


66F6 




bne 


after3 




104 


0000006E 


600E 




bra 


aret 




105 






* 








106 




0000 


0070 scan 


equ 


X 




107 


00000070 


5382 




subq . 1 


*l,d2 pre decriment count 




108 






* 








109 


00000072 


48E7 


EOCO scanl 


movem. 1 


dO-d2/aO-al ,- (sp) save for next call 




no 


00000076 


6100 


OOOE 


bsr 


scanloop 




111 


0000007A 


4CDF 


0307 


movem. 1 


(sp)*,d0-d2/a0-al 




112 


0000007E 


6704 




beq . s 


scanx 




113 


00000080 


51CR 


FFFO 


dbra 


d2, scanl 




114 


00000084 


4E75 


scanx 


rts 






115 




0000 


0086 scanloop 


equ * 
















1-289 



PAGE 3 [2.03 11/4/82 14:26:47 ASSEMBLY OF MATCHSTR .TEXT 



116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 



00000086 
00000088 
0000008A 

0000008E 
00000090 

00000094 
00000096 

00000098 
0000009A 

0000009C 
0000009E 

OOOOOOflO 
OO00O0A2 
000000R6 

OO00O0A8 
OOOOOOAA 

OOOOOORC 
OOOOOOAE 

OOOOOOBO 
OO0OO0B2 
000000B6 
O00OO0B8 
OOOOOOBA 
OOOOOOBC 
OOOOOOBE 
OOOOOOCO 

O00OO0C2 
00OOO0C4 



000000C6 
000000C8 

oocooocc 

000000D0 
O0OOOOD4 
000000D6 
O0OOOOD8 
OOOOOODC 



OOOOOODE 
00OO00E2 
O0OOOOE6 
OOOOOOEA 
OOOOOOEC 
OOOOOOEE 



9083 
5280 
6D00 0036 

9041 
6000 0030 

4A41 
6726 

2448 

D0C3 



sub.l d3,d0 

addq.l #l,dO 

bit sfexit pos in range ? 

sub dl.dO is str2 longer than 

bit sfexit remaining strl ? 

tst.w dl 

beq.s ssexit2 str2 is null so match 

movea.l a0,a2 save strl ptr 

adda.w d3,a0 start source compare 



1C19 
5541 



BC18 



.b (al)+,d6 
#2,dl 



57C8 FFFC scl2 
661A 



2648 
2849 



move 
subq 



cmp.b (a0)+,d6 

dbeq dO.scil 

bne.s sfexit found it ? 



first character 



movea .1 aO , a3 
movea .1 al , a4 



temp strl 
temp str2 



3A01 
6D08 

B90B 

56CD FFFC 

66EA 

260B 

968A 

4E76 

2603 

4E75 

7600 
4E75 



move .w 
bit .s 



ssex 



5 remaining str2 bytes 
it str2 is I char 



scl3 cmpm.b (a3)+.(a4)+ 

dbne d5,scl3 

bne scl2 

ssexit move . 1 a3,d3 

sub.l a2,d3 

rts 

ssexit2 move . 1 d3,d3 

rts 

sfexit moveq #0,d3 

rts 



set condition code 



cursor to zero 



0000 

0000 00C8 
4E56 0000 
42AE 001A 
206E 0014 
7000 
1010 

242E OOOC 
6D2A 



262E 0010 
6FrO FF6P) 
226E 0008 
7200 
1219 
6710 



def matchsi r_beforest r 
dc .w 
hstr beforestr equ * 
link a6,#0 
clr.l afunc(a6) 
movea. 1 asl (a6) , aO 
moveq #0,d0 
move.b (aO).dO 
move.l an(a6),d2 
blt.s beforel 



func:=0 
aO:=~sl 

dO:=strlen(sl) 
if n>*0 
then 



move.l ac(a6),d3 d3:»c 

ble aret check cursor<=0 

movea.l as2(a6),al al:="sl 

moveq #0,dl 

move.b (al)+,dl dl : = st rlen (s2) 

beq.s beforeO 
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173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
20S 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 



OOOOOOFT 
0OO0OOF4 
OO00OOF6 
OO00O0F8 
0000O0FC 



00000100 
00000102 
00000106 



00000108 

0000010C 
0000010E 
00000110 



00000112 
00000114 
00000118 



0000011C 
0000011E 
00000122 
00000126 
0000012A 
0000012E 
00000132 
00000136 
00000138 
0000013C 
0000013E 



6100 
6702 
9681 

2D43 
6000 



9682 
6F00 
60F0 



226E 

7200 
1219 
660H 



001A 
FF50 



bsr scan 

beq.s bgood 

sub.l dl,d3 move to front of match 

bgood move.l d3,afunc(a6) 

bra aret 
* 

* count but no string 



FF4A 



beforeO sub.l 
ble 

bra 



d2,d3 

aret 
bgood 



else 



7001 
2D40 
6000 



7401 
262E 
6F00 
6100 
6700 
2D43 
93AE 
7401 
6100 
66F0 
6000 



* no count given 
* 

0008 beforel movea.l as2(a6),al 

moveq #0,dl 

move.b (ai)+,dl 

bne. 5 before2 
* 

* no count no string 
* 

moveq #l,d0 func:-l 

001A move.l d0,afunc(a6) 

FF34 bra aret 

* no count with string 
* 

before2 moveq #l,d2 count 1 

0010 move.l ac(a6),d3 

FF2A ble aret cursor out of range? 

FF48 bsr scan 

FF22 beq aret must match at least once 

001A before3 move.l d3,afunc(a6) 

001A sub.l dl,afunc(a6) move to front of match 

moveq #l,d2 reset count 

FF36 bsr scan 

bne before3 

FFOE bra aret 



0000 001E mf 

0000 001C mslm 

0000 0018 msl 

0000 0014 mc 

0000 0010 mk 

0000 OOOC ms2 

0000 0008 ms3 

0000 0016 mr 



00000142 0000 



equ 


30 


equ 


2y 


equ 


24 


equ 


20 


equ 


16 


equ 


12 


equ 


8 


equ 


22 


def 


ma 


dc .w 






matchst r_changest r 



0000 0144 matchstr changestr equ 
00000144 4E56 0000 link a6,#0 



00000148 42AE 001E 



0000014C 282E 0014 
00000150 6F00 0166 



clr.l mf(a6) function result 



move . 

ble 



mc (a6) ,d4 
chgret 
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230 


000001S4 


206E 


0018 


move a. 1 msl (aS) ,aO 




231 


000001S8 


7000 




moveq #0,dO 
move .b (aO) ,dO 
sub.l d4,d6 




232 


0000015A 


1010 






233 


0000015C 


9084 






234 


0000015E 


5280 




addq.l tl.dO 




23S 


00000160 


6D00 


0156 


bit chgret cursor in range ? 




236 












237 


00000164 


2R2E 


0010 


move.l mk(a6),d5 counter 




238 


00000168 


6700 


0046 


beq chgzcnt 




239 


0000016C 


6F00 


0054 


ble chgncnt 




240 












241 






* 


have count value 




242 












243 


00000170 


226E 


oooc 


rnovea.l ms2(a6),al 




244 


00000174 


4A11 




tst.b (al) 




24S 


00000176 


6700 


0082 


beq chgcnill 




246 












247 






* 


have count and s2 and maybe s3 




248 






* 


replace the next n occurences of s2 with s3 




249 












250 


0000017A 


6014 




bra.s chgl2 




251 


0000017C 


48E7 


0400 chgll 


movem.l d5,-(sp) save count 
bsr chgfids 




252 


00000180 


6100 


OOAE 




253 


00000184 


4C0F 


0020 


movem.l (sp)+,d5 get count 
move.l d4,mf(a8) set func 




254 


00000188 


2D44 


001E 




255 


0000018C 


6700 


012A 


beq chgret 




256 


00000190 


51CD 


FFEft chgl2 


dbra d5, chgll 




257 


00000194 


6000 


0122 


bra chgret 




258 












259 






* 


count but no s2 




260 






* 


replace next count chars with s3 




261 


00000198 


7000 




moveq #0,d0 

move.b (aO).dO 

move.l 00,d3 final length of si 




262 


0000019A 


1010 






263 


0000019C 


2600 






264 


0000019E 


9685 




sub.l d5,d3 




265 


000001A0 


246E 


0008 


rnovea.l ms3(a6),a2 




266 


000001A4 


7400 




moveq #0,d2 
move.b Ia2),d2 
add.l d2,d3 




267 


000001A6 


1412 






268 


000001A8 


D682 






269 


000001AA 


6000 


010C 


bit chgret count is too big 




270 












271 






* 


count is zero 




272 






« 


insert S3 at cursor 




273 












274 


OOOOOlflE 


oooo 


nilst r 


dc .w 




275 






* 


make ms2 a dummy nilst ring 




276 


000001B0 


207C 
01AE 


0000 chgzcnt 
OOOC 


move.l #nilst r,ms2(a6) 




277 


000001B8 


6176 




bsr.s chgfids 




278 


0000018A 


2D44 


001E 


move.l d4,mf(a6) 




279 


000001BE 


6000 


00F8 


bra chgret 




280 






* 






281 






* 


no count 




282 






* 






283 


000001C2 


226E 


OOOC chgncnt 


rnovea.l ms2(a6) ,al 




284 


000001C6 


4AU 




tst.b (al) 




285 


000001C8 


6716 




beq . 5 chgnill 
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286 












287 






* 


no count but has s2 might have s3 




288 






* 


replace all occurences of s2 with s3 




289 












290 


OOOOOlCfl 


6164 




bsr.s chgfids 




291 


000001CC 


2D44 


001E 


move.l d4,mf(a6) 




292 


OOOOOIDO 


6700 


00E6 


beq chgret must change at least one 




293 


000001D4 


615A 


chgncntl bsr.s chqflds 




294 


000001D6 


2D44 


001E 


move.l d4,mf(a6) set func value 




295 


0000010R 


6700 


OODC 


beq chgret 




296 


000001DE 


60 F4 




bra chgncntl 




297 












298 






* 


no count no s2 




299 












300 


000001EO 


246E 


0008 chgnill 


movea. 1 ms3(a6) , a2 




301 


000001E4 


4A12 




tst.b (a2) 




302 


000001E6 


6706 




beq.s chgnil2 




303 












304 






* 


no count only s3 




305 






* 


replace rest of si with s3 




306 












307 


000001E8 


1084 




move.b d4,(a0) chop si to cursor 




308 


000001EA 


5310 




subq.b #l,(aOi 




309 


000001EC 


60C2 




bra chgzcnt add s3 




310 






* 






311 






* no count no strings 




312 






* 


delete remainder of si 




313 












314 


000001EE 


1084 


chgnil2 


move.b d4,(a0) set si length 




31S 


000001FO 


5310 




subq.b #1,(50) 




316 


000001F2 


2D44 


001E 


move.l d4,mf(a6) set func value 




317 


000001F6 


6000 


OOCO 


bra chgret 




318 












319 






* 


have count no s2 




320 






* 


replace count bytes with s3 




321 












322 


000001FA 


9085 


chgcnill sub.l d5.d0 dO is tbvtes after delete 




323 


000001FC 


6DO0 


OOBA 


bit chgret 




324 












325 


00000200 


246E 


0008 


rnovea.l ms3(a6),a2 addr and size of s3 




326 


00000204 


7400 




moveq #0,d2 
move.b (az)+,d2 




327 


00000206 


141A 






328 












329 


00000208 


7600 




moveq #0,d3 

move.b (a0),d3 will it fit 

sub d5,d3 




330 


0000020A 


1610 






331 


0000020C 


9645 






332 


0000020E 


D642 




add d2.d3 final size of si 




333 


00000210 


B62E 


001C 


cmp.b msim(a6),d3 




334 


00000214 


6200 


00A2 


bhi chgret 




335 












336 


00000218 


2E05 




move.l d5,d7 apparent size of s2 




337 












338 


0000021A 


D0C4 




adda d4,a0 cursor addr 




339 


0000021C 


47F0 


5000 


lea O(aO.dS.w) ,a3 after delete 




340 


00000220 


6100 


0064 


bsr chgfl do it 




341 


00000224 


2D44 


001E 


move.l d4,mf(a6) 




342 


00000228 


6000 


008E 


bra chgret 
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343 














344 


0000022C 


7800 




chgbad 


moveq 


#0,d4 cursor 


345 


0000022E 


4E7S 






rts 




346 








* 






347 








* 


do one 


zhange 


348 








* 






349 


00000230 


206E 


0018 


chgflds 


move a. 1 


msl (a6) ,a0 
#0,d0 
(a6),d0 
d0,d3 final 


350 


00000234 


7000 






moveq 


351 


00000236 


1010 






move.b 


352 


00000238 


2600 






move . 1 


353 


0000023A 


9084 






sub.l 


d4,d0 


354 


0000023C 


5280 






addq . 1 


#l,dO 


355 


0000023E 


60EC 






bit 


chgbad pos in 


356 














357 


00000240 


226E 


OOOC 




movea . 1 


ms2(a6) ,al 
#0,dl 


358 


00000244 


7200 






moveq 


359 


00000246 


1219 






move .b 


(al)+,dl 
dl,d7 save i 


360 


00000248 


2E01 






move . 1 


361 














362 


0000024ft 


246E 


0008 




movea . 1 


ms3(a6) ,a2 


363 


0000024E 


7400 






moveq 


#0,d2 
(a2)+,d2 


364 


00000250 


141R 






move.b 


365 














366 


00000252 


9641 






sub 


dl,d3 


367 


00000254 


D642 






add 


d2,d3 


368 


00000256 


B62E 


001C 




cmp.b 


mslm(a6) ,03 


369 


000002SA 


62D0 






bhi 


chgbad 


370 














371 


0000025C 


D0C4 






adda.w 


d4,a0 start 


372 














373 


0000025E 


4B01 






tst ,b 


dl 


374 


00000260 


6700 


006E 




beq 


chgins 


375 














376 


00000264 


9041 






sub 


dl ,d0 is old 


377 


00000266 


6DC4 






bit 


chgbad remain 


378 














379 


00000268 


1C19 






move .b 


(al)*,d6 
#2,dl 


380 


0000026A 


5541 






subq 


381 














382 


0000026C 


BC18 




chgl 


cmp . b 


(a0)+,d6 
dO, chgl 


383 


0000026E 


S7C8 


FFFC 


chg2 


dbeq 


384 


00000272 


6644 






bne .s 


chgret found 


385 














386 


00000274 


2648 






movea . 1 


a0,a3 temp s 


387 


00000276 


2849 






movea. 1 


al , a4 temp o 


388 














389 


00000278 


3B01 






move .w 


dl,d5 remain 


390 


0000027R 


6D08 






bit. s 


chgfO old is 


391 














392 


0000027C 


B90B 




chg3 


cmpm.b 


(a3)+,(a4)+ 


393 


0000027E 


S6CD 


FFFC 




dbne 


d5,chg3 


394 


00000282 


66EPI 






bne 


chg2 


395 














396 


00000284 


5388 




chgfO 


subq.l 


#l,aO 


397 














398 


00000286 


286E 


0018 


chgfl 


movea . 1 


msl (a6) ,a4 


399 


0000028A 


1883 






move .b 


d3, (a4) 



source string 

s length 
length of s 



range ? 

old string 

old lenght 
t for later 

new string 

new length 

will it all fit ? 
source compare 

length so match 

longer than 
ing source ? 

first character 



it ? 

ource 
Id 

ing old bytes 
1 char 



string s 
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400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
44 8 
449 
450 
451 
452 
453 
454 
455 
456 



0000028C 4A40 

0000028E 6700 001C 

00000292 9E42 

00000294 6716 

00000296 6E2A 

00000298 49F4 3001 

0000029C 47F4 7000 

000002HO 5340 



tst .w 
beq 
sub .w 
beq . 5 
bgt . s 
new st ring is 
lea 
lea 
subq .w 



000002S2 1923 chgirsl move.b 

000002B4 51C8 FFFC dbra 
000002B8 6002 bra. 5 

000002AA 10DPI chgcpy move.b 

000002SC 51CB FFFC chgcpyl dbra 



dO 

chgcpyl 

d2,d7 

chgcpyl 

chgsml 

?reater than old 
(a4,d3.w),a4 end s 
(a4,d7 .w) , a3 source 
#l,dO count 

-(a3),-(a4) 

d0,chginsl 

chgcpyl 

(a2)+, (a0)+ 

d2, chgcpy 



000002BO 91EE 0018 
000002B4 2808 
000002B6 4E75 '■ 

000002B8 4E5E 

000002BA 20SF 

000002BC DEFC 0016 

000002C0 4ED0 



suba.l msl(a6),aO 
move . 1 a0,d4 
rts 



new cursor value 



chgret 



unlk 
movea . 1 
adda .w 
jmp 



a6 

(sp)+,aO 
#mr , sp 
(aO) 



* new string is smaller than old 
0000 02C2 chgsml equ * 
000002C2 284B movea. 1 a3,a4 

000002C4 98C7 suba.w 

000002C6 5340 subq.w 



d7,a4 
#l,dO 



000002C8 18DB chgdell move.b (a3)*,(a4)+ 
000002CA 51C8 FFFC dbra dO, chgdell 
000002CE 60DC bra chgcpyl 



equ * 
movea .1 aO , a3 
bra chgfl 



0000 02D0 chgins 
000002D0 2648 
000002D2 60B2 

0000 0014 bf 

0000 0010 bsl 

0000 OOOC be 

0000 0008 bs2 

0000 OOOC bargs 

def matchst r_breakst r 
000002D4 0000 dew 

0000 02D6 matchstr breakstr equ » 

00000206 4E56 0000 Tink a6,#0 

000002DH 42RE 0014 clr.l bf(a6) set func to 



equ 
equ 
equ 


20 
16 
12 


equ 
equ 


8 
12 



000002DE 282E OOOC 
0000O2E2 6F39 



000002E4 206E 0010 
000002E8 2848 



move.l bc(a6),d4 cursor pos 
ble.s bsret 

movea. 1 bsl (a6) , aO 

movea. 1 a0,a4 save addr of si 
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#0.dO 

length si 



457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 



000002EA 
000002EC 
000002EE 



7000 
1010 
672E 



moveq 
move . b 
beq.s 



000002FO 9084 sub.l 

000002F2 602A blt.s 

000002F4 226E 0008 movea.l 

000002F8 7200 moveq 

000002FA 1219 move.b 

000002FC 6720 beq.s 

000002FE D1C4 adda.l 

00000300 5341 subq.w 

00000302 1418 bloopO move.b 

00000304 2449 movea.l 

00000306 3601 move.w 

00000308 B41A bloopl cmp.b 

0000030A 57CB FFFC dbeq 

0000030E 6706 beq.s 

00000310 51C8 FFFO dbra 

00000314 6008 bra.s 

00000316 91CC bsxit suba.l 

00000318 5388 subq.l 

0000031A 2D48 0014 move. I 

0000031E 4ESE bsret unlk 

00000320 20SF movea.l 

00000322 DEFC OOOC adda.w 

00000326 4E00 jmp 

def 

00000328 0000 dew 

0000 032P matchstr spansti 

00000320 4ES6 0000 link 

0000032E 42AE 0014 clr.l 

00000332 282E OOOC move.l 

00000336 6FE6 ble.s 



#0,d0 

(a6),d0 

bsret 

d4,d0 
bsret 



bs2(a6),al 
#0,dl 
(al)+,dl 
bsret 



list addr 
list length 



d4,a0 start scan 
#l,dl 

(a0)+,d2 char to test 
al,a2 copy list addr 
dl,d3 copy list length 

(a2)+,d2 
d3, bloopl 
bsxit 

dO.bloopO 
bsret 

a4,a0 calc func value 

#l,aO 

aO,bf (a6) 

a6 

(sp)+,aO 

♦bargs.sp 

(aO) 

matchstr_spanst r 


equ * 
a6,#0 
bf(a6) zero function value 



00000338 
0000033C 
0000033E 
00000340 
00000342 
00000344 
00000346 

00000348 
0000034C 
0000034E 
00000350 



206E 0010 
2848 

7000 
1010 
67DR 
9084 
6DD6 

226E 0008 
7200 
1219 
67CC 



movea.l 
movea. 1 
moveq 
move .b 
beq .s 
sub.l 
bit .s 

movea.l 
moveq 
move .b 
beq.s 



bc(a6),d4 
bsret 

bsl(a6),a0 

a0,a4 

#0,d0 

(a6),d0 

bsret 

d4,d0 

bsret 

bs2(a6),al 
tO.dl 
(ai)+,dl 
bsret 



cursor position 
string addr 
string length 

list addr 
list length 



00000352 D1C4 



adda.l d4,a0 start scan 
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subq.w #l,dl 

sloopO move.b (a0)+,d2 

movea.l al,a2 copy list addr 
move.l dl,d3 copy list length 



514 


00000354 


S341 




515 








516 


00000356 


1418 




517 


00000358 


2449 




518 


0000035P 


2601 




519 








520 


000003SC 


B41A 




521 


000003SE 


S7CB 


FFFC 


522 


00000362 


66B2 




523 








524 


00000364 


51C8 


FFFO 


525 


00000368 


60AC 




526 








527 








PASS 1 


ERRORS: 






PASS 2 


ERRORS: 







sloopl 



cmp.b (a2)*,d2 
dbeq d3,sloopl 
bne bsxit 



dbra 
bra 



end 



dO, sloopO 
bsxit 
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MODIV 



Purpose 

MODIV provides the 32-bit integer MOD and DIV functions which conform to the Pascal 
definition. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PASS 1 

1 

2 
3 

4 
S 
6 
7 
8 
9 
10 


COMPLETE. 


ERRORS: 






11 






12 






13 






14 






IS 


00000000 


4E44 


16 


00000002 


4E47 


17 


00000004 


7E01 


18 


00000006 


4CDF 0007 


19 


OOOOOOOfi 


4A81 


20 


OOOOOOOC 


6A0A 


21 


OOOOOOOE 


60F2 


22 


00000010 


7E00 


23 


00000012 


4CDF 0007 


24 


00000016 


4A81 


2S 


00000018 


6720 


26 


OOOOOOlfl 


3041 


27 


0000001C 


B288 


28 


0000001E 


661C 


29 


00000020 


2602 


30 


00000022 


87C1 


31 


00000024 


6916 


32 


00000026 


4A47 


33 


00000028 


6708 


34 


0000002A 


4843 


35 


0000002C 


4A43 


36 


0000002E 


6A02 


37 


00000030 


D641 


38 


00000032 


48C3 


39 


00000034 


2F03 


40 


00000036 


2040 


41 


00000038 


4E00 


42 


0000003A 


4E45 


43 






44 






45 






46 


0000003C 


780F 


47 


0000003E 


7C00 


48 


00000040 


7R00 


49 


00000042 


4R81 


50 


00000044 


6R06 


51 


00000046 


4481 


52 


00000048 


6954 


53 


0000004P 


4646 


54 


0000004C 


4R82 


55 


0000004E 


6R14 


56 


00000050 


4482 


S7 


00000052 


680C 



DEF ASM OIV 
DEF ASM MOD 



ovflow 
valrange 
asm mod 



asm_div 
d start 



div_l 
dm out 



do_full 



register usage 

dO - return address 

dl - divisor 

d2 - dividend and quotient 

d3 - remainder 

d4 - loop counter 

d5 - sign of remainder 



d6 - sign of quotent 
mod/div flag 



d7 



trap 
trap 
moveq 
movem. 1 
tst .1 
bpl.s 
bra. s 
moveq 
movem. 1 
tst.l 
beq.s 
movea .w 
cmp. 1 
bne. s 
move .1 
divs 
bvs. s 
tst .w 
beq. s 
swap 
tst .w 
bpl.s 
add.w 
ext .1 
move . 1 
movea . 1 
jmp 
trap 



#4 

#7 

♦ l,d7 

(sp)+,d0/dl/d2 

dl 

d_start 

valrange 

#0,d7 

(sp)+,d0/dl/d2 

zerodiv 

dl,aO 

aO.dl 

do full 

d2,d3 

dl,d3 

do full 

d7 

div 1 

d3 

d3 

div 1 

dl,d"3 

d3 

d1:ao sp) 

.§ 6) 



set mod flag 

read return addr and operands 

divide by zero? 

for mod? 

clear mod flag 

read return addr and operands 

divide by zero? 

is divisor a 
16 bit integer? 

try signed divide 

did it work? 
mod or div? 



if mod is negative 

teen 

add back divisor 

push result 

fake return 



convert divisor and dividend to sign magnitude 



moveq 
moveq 
moveq 
tst.l 
bpl.s 
neg. 1 
bvs . 5 
not . w 
tst.l 
bpl.s 
neg.l 
bvc. s 



#15, d4 

#0,d6 

#0,d5 

dl 

divend 

dl 

max_neg dvsr 

d6 

d2 

rmndr 

d2 

not_special 



loop count - 1 
sign of quotient 
sign of remainder 
divisor negative? 



set sign flag 
dividend negative 

complement quotient sign 
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58 

59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
9S 
96 
97 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 



00000054 

0000005A 
0000005C 
0000005E 
00000060 
00000062 
00000064 
00000066 
00000068 
0000006A 
0000006C 
O000006E 
00000070 
00000072 
00000074 
00000076 
00000078 
0000007R 
0000007C 
0000007E 
00000080 

00000082 
00000084 
00000086 
00000088 
0000008R 
0000008C 
0000008E 
00000090 
00000092 
00000094 
00000096 
00000098 
0000009A 
0000009C 



0000009E 
O00OOOA0 
O00O0OA2 
OOOOO0A4 
OOOOO0A6 
OO00OOA8 
OO0OO0AA 
OOOOOORC 
O000O0RE 



B2BC 0000 

0001 

6604 

4A46 

66A0 

4646 

4645 

7600 

4841 

4A41 

6644 

4842 

4841 

3602 

86C1 

3403 

4842 

3602 

86C1 

3403 

4243 

4843 

4R46 
6R02 
4482 
4R4S 
6R02 
4483 
4R47 
6604 
2602 
609E 
4R83 
6A9R 
D681 
6096 



4482 
6908 

2602 
4483 
7400 
60E4 
7401 
7600 
60DE 



00O00OB0 
000000B2 
OOO0OOB4 
O0OO0OB6 
000000B8 



4841 
4842 

3602 
4242 
9681 



not_special 



dm_fixup 



chk_rem 



max_neg_dvsr 



big_div 



cmp. 1 

bne . s 

tst .w 

bne . s 

not 

not 

moveq 

swap 

tst .w 

bne. s 

swap 

swap 

move .w 

divu 

move.w 

swap 

move .w 

divu 

move .w 

cl r .w 

swap 

put in correct 

tst.w 

bpl.s 

neg. 1 

tst .w 

bpl.s 

neg. 1 

tst .w 

bne.s 

move . 1 

bra . s 

tst.l 

bpl.s 

add.l 

bra . s 



#l,dl 

not special 

d6 

ovflow 

d6 

d5 

#0,d3 

dl 

dl 

big div 

d2 

dl 

d2,d3 

dl,d3 

d3,d2 

d2 

d2,d3 

dl,d3 

d3,d2 

d3 



test for minint div -1 



flag 

negative remainder 

clear remainder 

is divisor <= 16 bits 



get high order dividend 
nigh part of divide 
high quotient to d2 

divide low order 
dividend by divisor 
quotient in d2 



d3 



51 



n for 
d6 
chk rem 
d2 
dS 

dm store 
d3 
d7 

mod out 
d2,d"3 
dm out 
d3 

dm out 
dl,d3 
dm out 



remainder in d3 
quotient and remainder 



div or mod? 



if negative mod 

then 

then add back divisor 



handle maximum negative divisor 



neg. 1 
bvs . s 
move . 1 
neg. 1 
moveq 
bra. s 
moveq 
moveq 
bra. s 

32 bit divisor 

swap 
swap 
move .w 
clr .w 
sub.l 



d2 

max max 

d2,3"3 

d3 

#0,d2 

dm store 

#l,d2 

#0,d3 

dm_store 



dl 

d2 

d2,d3 

d2 

dl,d3 



test for max neg dividend 



restore divisor 
move high order 
dividend to remainder 
shift dividend 16 bits left 
subtract divisor from rem. 
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m_top 



114 


OOOOOOBA 


2041 


115 


OOOOOOBC 


4481 


116 


OOOOOOBE 


C388 


117 






118 






119 






120 


OOOOOOCO 


D482 


121 


OOO0OOC2 


0783 


122 


000000C4 


D681 


123 


0000O0C6 


6A12 


124 


000000C8 


51CC 


12S 


oooooocc 


0681 


126 


OOOOOOCE 


0482 


127 


OOOOOODO 


60B0 


128 






129 






130 






131 


0000O0D2 


DS82 


132 


0OO0O0D4 


0783 


133 


00O0OOD6 


D688 


134 


000000D8 


6BEE 


13S 


OOOOOODfi 


51CC 


136 


OOOOOODE 


0582 


137 


OOOOOOEO 


60AO 


138 






PASS 1 


ERRORS: 




PASS 2 


ERRORS: 





FFF6 m bottom 



p_top 



FFF6 p_bottom 



movea . 1 


dl,a0 


neg . 1 


dl 


exg 


dl,aO 


co-routine for 


negative 


add.l 


d2,d2 


addx.l 


d3,d3 


add.l 


dl,d3 


bpl.s 
dor a 


p bottom 


d4~,m top 


add.l 


dl,d3" 


add.l 


d2,d2 


bra. 5 


dm_fixup 


co-routine for 


positive 


addx .1 


d2,d2 


addx.l 


d3,d3 


add.l 


a0,d3 


bmi .5 


m bottom 


dbra 


d4~,p top 


addx . 1 


d2,d2~ 


bra . s 


dm_f ixup 



divisor in dl 
minus divisor in aO 



shift dividend and quotient 

shift remainder 

add divisor 

remainder positive? 

loop 16 times 

restore remainder 

shift in last bit of quotient 



shift dividend and quotient 

shift remainder 

subtract divisor 

remainder negative? 

loop 16 times 

shift in last bit of quotient 
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»»* 68000 ASSEMBLER SYMBOL TABLE OUMP ««» 

EXTERNAL SYMBOLS 
*** NO EXTERNAL SYMBOLS **« 

INTERNAL SYMBOLS 



SYMBOL 


TYPE 


DEF ECU SYM VALUE 


AO 


AREG 





00000000 


Al 


AREG 





00000001 


A2 


AREG 





00000002 


A3 


AREG 





00000003 


A4 


AREG 





00000004 


A5 


AREG 





00000005 


A6 


AREG 





00000006 


A7 


AREG 





00000007 


ASM DIV 


REL 


22 


00000010 


ASM MOD 


REL 


17 


00000004 


BIG~DIV 


REL 


109 


000000B0 


CCR~ 


STREG 





00000005 


CHK REM 


REL 


83 


00000088 


DO ~ 


DREG 





00000000 


Dl 


DREG 





00000001 


D2 


DREG 





00000002 


03 


DREG 





00000003 


D4 


DREG 





00000004 


D5 


DREG 





00000005 


06 


DREG 





00000006 


07 


DREG 





00000007 


DIVENO 


REL 


54 


0000004C 


DIV 1 


REL 


38 


00000032 


DM FlXUP 


REL 


80 


00000082 


DM~OUT 


REL 


39 


00000034 


DM~STORE 


REL 


86 


0000008E 


DO - FULL 


REL 


46 


0000003C 


START 


REL 


25 


00000018 


MffX MAX 


REL 


103 


OOOOOOAA 


MAX~NEG DVSR 


REL 


97 


0000009E 


MOD~OUT~ 


REL 


90 


00000096 


M BOTTOM 


REL 


124 


0OO0O0C8 


M~TOP 


REL 


120 


OOOOOOCO 


N5T SPECIAL 


REL 


62 


00000060 


OVFfOU 


REL 


IS 


00000000 


P BOTTOM 


REL 


13S 


000000DA 


P TOP 


REL 


131 


00O00OD2 


RfiNDR 


REL 


64 


00000064 


SP 


RREG 





00000007 


SR 


STREG 





00000006 


LISP 


STREG 





00000007 


VALRANGE 


REL 


16 


00000002 


ZERODIV 


REL 


42 


0000003A 
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NEWWORDS 



Purpose 

NEWWORDS provides the procedure which implements NEW (if SHEAPDISPOSE OFF$) called 
NEWBYTES, as well as procedure NEWWORDS and the function MEMAVAIL. 



Usage 

NEWWORDS calls are emitted by the compiler to these routines. 

Notes 

MEMAVAIL returns the amount of free memory in BYTES. (A WORD is 2-bytes or 1 6 -bits.) 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PAGE 

PASS 1 
1 
2 
3 

4 
S 

e 

7 
8 
9 
10 
11 
12 
13 
14 
15 
16 

17 
18 
19 
20 
21 
22 
23 
24 
25 
28 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
PASS 1 
PASS 2 



1 [2.0] 11/4/82 13:13:56 ASSEMBLY OF NEUWOROS.TEXT 



COMPLETE. ERRORS: 



00000000 



function memavail: integer; {return number of free bytes) 
procedure newwords(var p: anyptr; size: integer); 

{implement the Pascal NEU( ) procedure) 



rorg 
def 
refa 
nosyms 



asm_memavail,asm_newwords,asm_newbytes 
stackfudge,sysglobals 



FFFF FFF2 heapptr equ sysglobals-14 



0000 0000 asm_memavail equ * 



00000000 205F 
00000002 200F 
00000004 90AD FFF2 
00000008 90BC 0000 

0000 
0000000E 6C02 
00000010 4280 
00000012 2E80 
00000014 4ED0 



0000 0016 
205F 
201F 
E380 
4EFA 000C 



00000016 
00000018 
0000001A 
0000001C 



00000020 
00000022 
00000024 
00000026 
OO00002A 
OO00O02C 
00000030 
00000032 
00000034 
00000038 
0000003A 
0000003C 
00000040 



00000042 4E42 



movea. 1 
move.l 
sub. 1 
sub.l 

bge .5 
clr.l 
ge move.l 
imp 

asm_newwords equ 
movea. 1 
move . 1 
asl.l 
jmp 



(SP)+,aO 

SP.dO 

heapptr (a5) ,d0 

#stackfudge,dO 

ge 

dO 

dO (SP) 

(«6) 



location of heap pointer 



return address 

compute result ■= (SP)-(heap pointer) 



(SP)*,aO 
SP +,d0 

*l,d0 
lioc 



0000 0020 

20SF 

201F 

5280 

0880 0000 

225F 

246D FFF2 

228A 

D5C0 

47EF 0000 

SSCB 

6E06 

2B4A FFF2 

4ED0 



alloc 



ERRORS: 
ERRORS: 



asm_newbytes equ * 

movea. 1 (SP)+,aO 

move.l (SP)+,dO 

addq.l #l,dO 

bclr #0,d0 

movea. 1 (SP)+,al 

movea. 1 

move . 1 

adda.l 

lea 

cmpa . 1 

bgt .5 

move . 1 

jmp 

heapover trap #2 

end 



heapptr (a5) , a2 

a2,(al) 

d0,a2 

-stackfudge(sp) 

a3,a2 

heapover 

a2 . heappt r (a5) 

(a6) 



return address 

size of requested allocation in words 

convert to bytes 

same as newbytes from here on 



return address 

size of requested allocation in bytes 

round up to an even number of bytes 

address of pointer return variable 



address of pointer 
pointer :- heapptr 



bump heap by size of new object 
, a3 
check for heap overflow 

restore heap pointer 
rts 

same trap as stack overflow 
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POWERUP 



Purpose 

POWERUP provides INTERRUPT, TRAP and EXCEPTION handling (error recovery) as well as 
non-local GOTO and other miscellaneous utilities. 



Usage 

POWERUP is part of INITLIB. 

Notes 

Most TRAP and INTERRUPT vectors are initialized in POWERUP. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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OF POUERUP.TEXT 






PASS 1 


COMPLETE. 


ERRORS: 












1 
2 
3 








* INTERRUPT, TRAP, AND EXCEPTION HANDLER 










DEF 


flsn 


SETINTLEVEL.ASM 


INTLEVEL 




4 








DEF 


ASM" 


"INITVECTS, RESETS 


,ASM CLOSEFILES 
P LINE 




5 








DEF 


DCRTINFO, EXCP'PC.EXC 




6 








DEF 


GRAPHICSBASE,G"RAPHICSF"LAG,ALPHAFLAG 




7 
8 
9 








DEF 


ASM. 


_IAND,ASM_IOR 












REFft 


SYSGLOBflLS . LOADER .STACKFUDGE 




10 








REFR 


FS 


r CLOSE,INITUNITS 


NOISR,INITL0AD INITLOAD 




11 








LMOOE 


FS 


=CLOSE.INITUNITS 


NOISR,INITL0BD_INITL0A0 




12 

13 
14 
IS 
16 








SMODE 


ESCAPE 












*THE FOLLOWING 


OFFSETS fiRE RELATIVE 


TO SYSGL0BALS(A5) 






FFFF 


FFFE 


ESCBPECODE 


EQU 


SYSGLOBALS-2 


(AS) 




17 




FFFF 


FFFH 


FILELISTPTR 


EQU 


SYSGLOBALS-6 


B5 




18 




FFFF 


FFF6 


RECOVERBLOCK 


EQU 


SYSGLOBALS-10 


B5 




19 




FFFF 


FFF2 


HEAPPOINTER 


EQU 


SYSGL0BALS-14 


BS 




20 




FFFF 


FFEE 


HEAPBflSE 


EQU 


SYSGLOBALS-18 


BS 




21 




FFFF 


FFEft 


IORESULT 


EQU 


SYSGLOBALS-22 


B5 




22 




FFFF 


FFC2 


INTERRUPTTfiBLE 


EQU 


SYSGLOBALS-62 


85 ADDRESS OF INTERRUPTTABLE [1 . .7] 




23 




FFFF 


FFBE 


ENDISRHOOK 


EQU 


SYSGLOBALS-66 


AS ADDRESS OF END OF ISR ROUTINE 




24 




FFFF 


FEEC 


DEBUGGER 


EQU 


SYSGLOBALS-276 


B5 DEBUGGER HOOK 




2S 




FFFF 


FEE4 


CLEBRIOHOOK 


EQU 


SYSGLOBALS-284 


AS CLEAR I/O HOOK 
(A5) LINKED LIST OF PERMANT PROGRAMS 




26 




FFFF 


FFBfl 


SYSOEFS 


EQU 


LOADER-70 




27 
28 
29 




0000 


0000 


NIL 


EQU 











FFFF 


FBOO 


HIGHMEM 


EQU 


SFFFFFBOO LEAVES ROOM FOR VECTORS. MONITOR STUFF, ETC. 
SFFFFFF94 LOCATION OF EXCEPTION VECTOR FOR TRAP #0 




30 

31 
32 




FFFF 


FF94 


TRAPOVECTOR 

* 

LEVEL7V 


EQU 






FFFF 


FF9fl 


EQU 


SFFFFFF9B NMI 






33 
34 
35 




FFFF 


FF34 


KBDRESETV 

LOUMEM 


EQU 


SFFFFFF34 KEY 


BOARD <SHIFT PAUSE VECTOR> 






FFFF 


FDCE 


EQU 


SFFFFFDCE LOCATION IN BOOT ROM OF LOUEST RAM 




36 




0000 


OlfiO 


RTN TO MONITOR 


EQU 


$1A0 ENTRY POINT IN BOOT ROM 




37 




0053 


8000 


G OFF MEM 


EQU 


$538000 GRAPHICS OFF 




38 
39 
40 




0051 


2000 


ArPHAlMEM 


EQU 


$512000 ALPHA MEMORY 






FFFF 


FBOO 


BUS ERR INFO 


EQU 


HIGHMEM 






41 




FFFF 


FB02 


BUS ERR FlDDR 


EQU 


BUS ERR INFO+2 






42 




FFFF 


FB06 


BUS ERR INSTR 


EQU 


BUS ERR ADDR+4 






43 




FFFF 


FB08 


EXCP STRTUS 


EQU 


BUS ERR INSTR+2 






44 




FFFF 


FBOA 


EXCP PC 


EQU 


EXCP STHTUS+2 






45 




FFFF 


FBOE 


EXCP LINE 


EQU 


EXCP PC+4 






46 




FFFF 


FB12 


LASTUINE 


EQU 


EXCP~LINE+4 






47 




FFFF 


FBI 6 


ESCftPE 


EQU 


LASTUINE +4 






48 




FFFF 


FB1C 


PCTEMP 


EQU 


ESCAPE+6 






49 




FFFF 


FB20 


SRTEMP 


EQU 


PCTEMP+4 






SO 




FFFF 


FB22 


INITSTF1CK 


EQU 


SRTEMP+2 






51 




FFFF 


FB26 


INITPC 


EQU 


INITSTACK+4 






52 




FFFF 


FB2A 


INITRECOVER 


EQU 


INITPC+4 






S3 




FFFF 


FB2E 


G DOLLAR 


EQU 


INITRECOVER+4 






54 




FFFF 


FB32 


CTL resetv 


EQU 


G DOLLAR+4 


KEY BOARD <C0NTROL><SHIFT><PAUSE> VECTOR 




55 




FFFF 


FB38 


DEBUGESCflPE 


EQU 


CTL RESETV+6 






56 




FFFF 


FB3E 


DCRTINFO 


EQU 


DEBUGESCAPE+6 






57 




FFFF 


FB4 2 


BLPHflFLflG 


EQU 


DCRTINFO+4 






58 




FFFF 


FB43 


GRRPHICSFLfiG 


EQU 


ALPHAFLAG+1 
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59 




FFFF 


FB44 


GRflPHICSBfiSE 


EQU 


GRAPHICSFLBG+1 






60 
61 
62 
63 




FFFF 


FB48 


INITSR 


EQU 


GRBPHICSBASE+4 








0000 


4EF9 


JMP EQU S4EF9 




LONG ABSOLUTE JMP INSTRUCTION 




64 
65 
66 
67 
68 
69 


00000000 






RORG 












0000 


0000 


ASM_INITVECTS 


EQU 


* 


MAIN PROGRAM POWER UP LOCATION 




00000000 


70FF 




MOVEQ 


#$FFFFFFFF,DO 
D0,FILELISTPTR(A5) 
#$4E7S. DEBUGESCAPE 


HIGHEST POSSIBLE ADDRESS 




70 


00000002 


2840 


FFFfl 


MOVE.L 






71 


00000006 


31FC 


4E75 


MOVE.U 










FB38 














72 


OOOOOOOC 


42B8 


FB12 


CLR.L 


LBSTLINE 






73 


00000010 


2B7C 


0000 


MOVE.L 


*ENDISR,ENDISRH00K(B5) SET UP ORDINARY RETURN FROM ISR'S 




74 
75 




027ft 


FFBE 


















* 




TURN 


OFF GRAPHICS 




76 


00000018 


207C 


00S3 


MOVEA.L 


#G_OFF MEM.fiO GET 


MEM ADDRESS 








8000 














77 


0000001E 


21C8 


FB44 


MOVE.L 


AO.GRAPHICSBASE SAVE 
GRBPHICSFLBG MARK 


IT IN GLOBAL AREA 




78 
79 
80 


00000022 


4238 


FB43 


CLR.B 


IT TURNED OFF 




00000026 


43FA 


013fl 


LEA 


IGN0REBUS.B1 SET 


BUS ERROR VECTOR 




81 


0000002ft 


21C9 


FFFC 


MOVE.L 


01,- 


4 






82 


0000002E 


31FC 


4EF9 


MOVE.U 


#JMP.-8 










FFFA 














83 
84 

85 


00000034 


3010 




MOVE 


(AO 


,00 TURN 


OFF GRAPHICS 




00000036 


11FC 


0001 


MOVE.B 


#1,BLPHAFLBG MARK 


ALPHA TURNED ON 








FB42 














86 


0000003C 


207C 


0051 


MOVEA.L 


♦ALPHA MEM. HO BLflNK ALPHA CRT 








2000 














87 


00000042 


303C 


07CF 


MOVE.U 


#2000-1.00 






88 


00000046 


7220 




MOVEQ 


#' 


z D1 
00) + 

LEAR L 






89 


00000048 


30C1 




CLEAR L MOVE.U 


01,1 
DO,C 






90 
91 
92 


0000004ft 


S1C8 


FFFC 


" DBRA 






0000004E 


41F8 


FFC4 


LEA 


$FFFFFFC4,A0 


ADDRESS PAST INTERRUPT VECTOR LEVEL 1 




93 


00000052 


43Ffi 


01B8 


LEA 


INTERRUPT, Al 






94 


00000056 


7006 




MOVEQ 


#6, DO 


HANDLE LEVELS 1 THRU 6 




95 


00000058 


2109 




I LOOP MOVE.L 


Al,- 


(AO) 


MOVE JMP TO INTERRUPT VECTOR 




96 


0000005ft 


313C 


4EF9 


MOVE.U 


#JMP,-(AO) 
#1 .00 

IJ.OOP 






97 


0000005E 


5340 




SUBQ 






98 

99 

100 


00000060 


66F6 




BNE 












» INIT VECTORS 


FOR HANDLING <SHIFT PAUSE> AND <CONTR0L><SHI FT><PBUSE> 




101 


00000062 


31FC 


4EF9 


MOVE.U 


#JMP,LEVEL7V 










FF9fl 














102 


00000068 


21F8 

FF9C 


01B0 


MOVE.L 


S1BC 


,LEVEL7V+2 






103 


0000006E 


31FC 


4EF9 


MOVE.U 


»JMP, KBDRESETV 










FF34 














104 


00000074 


21FC 


0000 


MOVE.L 


♦RESET ISR. KBDRESETV 


+ 2 








037fl 


FF36 
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105 


0000007C 


31FC 

FB32 


4EF9 


106 


00000082 


21FC 


0000 






0398 


FB34 


107 








108 








109 


0000008B 


41FB 


026C 


110 


0000008E 


31FC 

FB16 


4EF9 


111 


00000094 


21C8 


FB18 


112 








113 


00000098 


2038 


FF96 


114 


0000009C 


COBC 
FFFF 


OOFF 


US 


000OO0B2 


BOBC 
0000 


0088 


116 


O0OOO0A8 


6C0E 




117 


O000O0AA 


31FC 

FF94 


4EF9 


118 


OOOOOOBO 


41FA 


02BE 


119 


O000O0B4 


21C8 


FF96 


120 








121 








122 








123 


O0O0OOB8 


4CBR 
028A 


0006 


124 


OO00O0BE 


41F8 


0000 


125 


0OO0O0C2 


303C 


4EF9 


126 








127 


OO00O0C6 


43FA 


0218 


128 


OOOOOOCA 


2109 




129 


OOOOOOCC 


3100 




130 








131 


OOOOOOCE 


43FA 


0204 


132 


OOO0OOD2 


2109 




133 


00000004 


3100 




134 








13S 


00000006 


76F3 




136 


00000008 


48B0 


7000 


137 








138 


OOOOOODC 


76FB 




139 


OOOOOODE 


48A0 


7000 


140 








141 


OOO0OOE2 


76F8 




142 


0000O0E4 


48B0 


7000 


143 








144 


OOO0OOE8 


76FC 




145 


OOOOOOEA 


48A0 


7000 


146 








147 


OOOOOOEE 


76F2 




148 


OOOOOOFO 


48A0 


7000 


149 








150 


O0OOOOF4 


5D88 




1S1 








152 


O0OO00F6 


76F3 




153 


O0O0OOF8 


48A0 


7000 


154 


OOOOOOFC 


48A0 


7000 



ASSEMBLY OF POUERUP.TEXT 
MOVE.U #JMP,CTL_RESETV 
MOVE.L #TRYM0NIT0R,CTL RESETV<-2 



LEA ESC.PO 

MOVE.U #JMP, ESCAPE 

MOVE.L AO.ESCAPE+2 



MOVE . L 
AND.L 



TRAP0VECT0R+2.D0 
#JOOFFFFFF,00 



CMP.L #$00880000, DO 



BGE.S 
MOVE.U 



LEA 
MOVE. 



LO 

#jmp,trbpovector 

p break, ao 

ao",trap6vector*2 



MOVEM.U ESCAPE PR0T0,D1-D2 



LEA 
MOVE.U 

LEA 

MOVE.L 

MOVE.U 

LEA 

MOVE.L 

MOVE.U 

MOVEQ 
MOVEM.U 

MOVEQ 
MOVEM.U 

MOVEQ 
MOVEM.U 

MOVEQ 
MOVEM.U 

MOVEQ 
MOVEM.U 



SUBQ.L #6, BO 



O.AO 
#JMP,DO 

BUS ERR.A1 
Al.-tBO 
DO, -(BO) 

BDD_ERR,A1 
B1,-(B0 
DO, -(BO) 

#-13, D3 
D1-D3,-(B0) 

#-S.D3 
D1-D3,-(B0) 

#-8.03 
01-03, -(AO) 



#-4,D3 
Dl-03,- 

#-14, D3 
D1-D3,- 



MOVEQ 

MOVEM.U 

MOVEM.U 



#-13, D3 
D1-D3 , - i 
D1-D3, - l 



;ao) 
;bo) 



MOVE ESCAPE LINKAGE TO HIGH MEMORY 



GET DEFAULT ENTRY POINT FOR TRAP #0 
TEST FOR MONITOR 



SET UP EXCEPTION VECTOR FOR 
PBSCBL LINE HEADERS 

GET 6 BYTE MOVEQ #ESCCODE, JMP ESCAPE 

START FROM TOP OF RAM 
$4EF9 (LONG BBS JUMP) 

SET UP BUS ERROR TRAP 
ADDRESS IN LAST 4 BYTES 
LONG JUMP IN FIRST 2 BYTES 

SET UP ADDRESS ERROR TRAP 
ADDRESS IN LAST 4 BYTES 
LONG JUMP IN FIRST 2 BYTES 

ILLEGAL INSTRUCTION, ESCAPEj-13) 
MOVE 'moveq, short jump esc' 

SIMILAR FOR DIVIDE BY ZERO 

SIMILAR FOR CHK EXCEPTION 

SIMILAR FOR TRAPV 

SIMILAR FOR PRIVILEGE VIOLATION 

SKIP TRACE 

ILLEGAL INSTRUCTION (OPS B,F), ESCAPE(-13) 
MOVE 'moveq, short jump esc' 
MOVE 'moveq, short jump esc' 
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155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 

207 
208 
209 
210 



00000100 41F8 



00000104 
00000108 
0000010A 

0000010C 
0000010E 

00000112 
00000114 

00000118 
0000011A 

0000011E 
00000120 

00000124 
00000126 

0000012B 
0000012C 

00000130 
00000132 

00000136 
0000013B 
0000013C 

0000013E 
00000142 
00000144 

00000146 
0000014B 
0000014C 

0000014E 
00000150 

00000154 
00000156 

0000015B 
0000015C 

00000160 

00000162 

00000168 



43FB 
2109 
3100 

76FE 

48B0 

76F6 

48A0 

76 FC 
48A0 

76FB 
43B0 

76F7 
48A0 

76F8 
48A0 

76 FD 

48A0 

43FA 
2109 
3100 

43FB 
2109 
3100 

43FB 
2109 
3100 

76EB 
48B0 

76EB 
48A0 

76EB 
48B0 

4E75 

DFFC 
0008 
4E73 



FF94 

OODE 

7000 

7000 

7000 

7000 

7000 

7000 

7000 
006C 



02C0 

7000 
7000 
7000 



LEA 

MOVE.L 

MOVE.U 



SFFFFFF94.B0 
LINKA6,A1 



Al, 
DO, 



iSSl 



MOVEQ #-2,D3 
MOVEM.U D1-D3,-(B0) 

MOVEQ #-10.03 
MOVEM.U Dl-03,-(A0) 

MOVEQ #-4.D3 
MOVEM.U 01-03, -(AO) 

MOVEQ #-5,D3 
MOVEM.U D1-D3,-(A0) 

MOVEQ #-9,D3 
MOVEM.U D1-D3,-(A0) 

MOVEQ #-8,D3 
MOVEM.U 01-03, -(AO) 

MOVEQ #-3.03 
MOVEM.U D1-D3,-(A0) 



LEB 

MOVE.L 

MOVE.U 

LEB 

MOVE.L 

MOVE.U 

LEB 

MOVE.L 

MOVE.U 



NLG0T0,B1 
A1,-(A0) 
DO, -(BO) 

ESCN.A1 

B1,-(B0) 

D0,-(B0j 

SUPERCBLL.Bl 
B1,-(B0) 
DO,- BO 



MOVEQ #-21, D3 
MOVEM.U D1-D3,-(B0) 

MOVEQ #-21, D3 
MOVEM.U 01-03, -(fiO) 

MOVEQ #-21. D3 
MOVEM.U D1-D3,-(B0) 



RTS 
0000 IGNOREBUS BDDB.L #8,SP 

RTE 



CONTINUE UITH TRAP VECTORS 
TRAP 1, LINK A6 EMULATOR 

TRAP 2, STACK OVERFLOU 

TRAP 3, I/O RESULT NOT ZERO 

TRAP 4, INTEGER OVERFLOU 

TRAP S, INTEGER DIVIDE BY ZERO 

TRAP 6, CASE STATEMENT ERROR 

TRAP 7, VALUE RANGE ERROR 

TRAP 8, NIL POINTER REFERENCE 

TRAP 9, NON LOCAL GOTO 

TRAP 10, ESCAPE N 

TRAP 11, SUPERVISOR CALL 

TRAP 12, UNASSIGNED 

TRAP 13, UNBSSIGNED 

TRAP 14, UNBSSIGNED 

END OF VECTOR SET UP, POUER UP 
THROU BUAY STACK INFO FROM BUS ERROR 
RETURN TO POINT OF ERROR 



0000 016A AiM CLOsiFILii Equ * 
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211 


0000016A 


206F 0004 


MOVEA. L 


4(SP).A0 EVENTUAL SP 
FILELISTPTR(AS),A1 




212 


0000016E 


226D FFFfl 


MOVEA . L 




213 


00000172 


B3C8 


CMPfi.L 


A0.A1 




214 


00000174 


642ft 


BCC.S 


AILDONE 




21S 


00000176 


B3CF 


CI1PA.L 


SP.A1 




216 


00000178 


6526 


BCS.S 


ALLDONE 




217 


0000017A 


2B69 0004 
FFFfi 
4209 0004 


MOVE . L 


4(A1),FILELISTPTR(AS) 




218 


00000180 


CLR.L 


4{A1) FLAG UNINITIALIZED 
IORESULT(AS) .-(SP) 
ESCAPECODE(AS),-(SP) 




219 


00000184 


2F2D FFEA 


MOVE . L 




220 


00000188 


3F2D FFFE 


MOVE.U 




221 


0000018C 


4851 


PER 


(Al) 

-(SP) NORMAL CLOSE 

FS_FCLOSE 




222 


0000018E 


4267 


CLR.U 




223 


00000190 


4EB9 OOOO 


JSR 








0000 








224 


00000196 


3B5F FFFE 


MOVE.U 


(SP)+,ESCfiPECODE(AS) 

SP)+,IORESULT(RS) 




22S 


0000019A 


2B5F FFEfl 


MOVE.L 




226 


0000019E 


60CR 


BRfl.S 


ASM CLOSEFILES 




227 


OOOOOlflO 


2E9F flLLDONE 


MOVE.L 


(SP7+, (SP) 




228 


000001R2 


4E75 


RTS 






229 












230 


000001A4 


301 F NLGOTO 


MOVE.U 


(SP)+,DO SAVE STATUS REG 




231 


000001R6 


205F 


MOVER. L 


SPj+.AO 




232 


000001A8 


46C0 


MOVE 


DO.SR RESTORE USER MODE 




233 


000001AR 


3218 


MOVE.U 


(A0U.D1 STATIC DELTA 

NLGOT01 




234 


000001AC 


6C04 


BGE.S 




235 


000001AE 


2C78 FB22 


MOVEA. L 


INITSTACK,A6 DEST IS MAIN PROG 




236 


000001B2 


6F08 NLG0T01 


BLE.S 


NLG0T03 




237 


000001B4 


2C6E 0008 NLG0T02 


MOVEA. L 


8(A6),A6 




238 


000001B8 


5341 


SUBO.U 


#1,01 




239 


000001BR 


6EF8 


BGT.S 


NLG0T02 




240 


000001BC 


2210 NLG0T03 


MOVE.L 


(AO) ,01 DESTINATION DELTA 
0(A0,D1.L) COMPUTE RETURN ADDRESS 




241 


000001BE 


4870 1800 


PER 




242 


000001C2 


3430 1802 


MOVE.U 


2 A0.D1.L ,D2 SP DELTA FROM R6 




243 


000001C6 


43F6 2000 


LEfi 


0]A6,D2.U ,fil EVENTUAL SP 




244 


000001CR 


B3E0 FFF6 NLG0T04 


CMPfi.L 


RECOVERBLOCK(A5),A1 POP OFF TRY RECOVER BLOCKS 




245 


000001CE 


630C 


BLS.S 


NLG0T05 ABOVE THE EVENTUAL SP 




246 


000001DO 


2460 FFF6 


MOVER. L 


RECOVERBLOCK(AS) ,A2 
8 (A2) ,REC0VERBLOCK (A5) 




247 


000001D4 


2B6A 0008 

FFF6 

60EE 


MOVE.L 




248 


000001DR 


BRfi.S 


NLG0T04 




249 


000001DC 


2F09 NLG0T05 


MOVE.L 


A1,-(SP) 

ASM_CLOSEFILES CLOSE FILES BEING POPPED OFF 




250 


000001DE 


4EBA FF8ft 


JSR 




251 


000001E2 


4E7S 


RTS 






252 












253 


000001E4 


301 F LINKA6 


MOVE 


(SP)+,DO STATUS 




254 


000001E6 


205F 


MOVEA. L 


]SPW,AO PC 




255 


000001E8 


46C0 


MOVE 


DO,SR RETURN TO ORIGINAL MODE 




256 


000001ER 


2F0E 


MOVE.L 


A6,-(SP) EMULATE LINK A6 

SP,R6 

(RO)*,SP 




257 


000001EC 


2C4F 


MOVER. L 




258 


000001EE 


0ED8 


RODA.U 




259 












260 


000001F0 


0800 OOOO 


BTST 


#13.00 WHICH MODE? 




261 


000001 F4 


6706 


BEQ.S 


UMODE 




262 












263 


000001F6 


45ED 7FFE SHODE 


LEA 


32766(A5),A2 




264 


000001FA 


6004 


BRA.S 


SCHECK 




PAGE 
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265 
266 
267 
268 
269 


000001FC 


2460 FFF2 UMODE 


MOVER. L 


HEAPP0INTER(R5),A2 




00000200 


43EF OOOO SCHECK 


LER 


-STACK FUDGE(SP),A1 




00000204 


B3CA 


CMPA.L 


B2.A1 CHECK STRCK OVERFLOW 




270 


00000206 


6302 


BLS.S 


STACKOV 




271 


00000208 


4ED0 


JMP 


(AO) 




272 












273 


0000020ft 


4E42 STACKOV 


TRAP 


#2 SIGNAL STACK OVERFLOU 




274 










1-307 



* INTERRUPT POLLING ROUTINE: LEVELS 1-6 * 



* ISRIB STRUCTURE 



(LONG) 
BYTE 
BYTE 
WORD 
LONG 
LONG 

(LONG) 



* INTERRUPT POLLING ROUTINE: LEVELS 1- 
* 
OOOO 020C INTERRUPT EQU * 



0000 


0000 


INTREGADDR 


EQU 





0000 


0004 


INTREGMASK 


EQU 


4 


0000 


0005 


INTREGVALUE 


EQU 


5 


0000 


0C06 


CHAINFLAG 


EQU 


6 


0000 


oooe 


PROC.flDDR 


EQU 


8 


0000 


oooc 


PROC.LINK 


EQU 


12 


0000 


0010 


LINK 


EQU 


16 
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276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 



CHRRPTR 

BYTE 

BYTE 

BOOLEAN IN MSB: OTHER BITS RESERVED 

PROCEDURE ADDRESS 

PROCEDURE STATIC LINK 

LINK TO NEXT ISRIB 



0000020C 
00000210 
00000214 
00000218 

0000021C 
00000220 
00000224 

00000228 
0000022A 
0000022C 
00000230 
00000234 

00000238 
0000023A 
0000023C 
0000023E 
00000240 
00000242 
00000244 
00000246 



48E7 FFFE 

2A78 FB2E 

2F20 FFEA 

3F2D FFFE 

2F2D FFF6 
487A 0088 
2B4F FFF6 

40C0 
EC48 

C07C 001C 
41ED FFC2 
2070 OOFC 

2008 
6722 
2248 
2459 
1012 
C019 
B019 
6610 



MOVEM.L O0-D7/A0-A6,-(SP) 

MOVER. L G DOLLAR, AS 

MOVE.L I0"RESULT(A5),-(SP) 

MOVE.W ESCAPEC0DE(A5),-(SP) 

MOVE.L RECOVERBLOCK(RS),-(SP) SET UP A TRY/RECOVER BLOCK 

PEA RECOVER 

MOVE.L SP,REC0VERBL0CK(R5) 



SAVE CONTEXT, 64 BYTES 

SET UP THE PASCAL GLOBAL ENVIRONMENT 

IORESULT IS PART OF THE CONTEXT 

THE ESCAPE CODE IS PART OF THE CONTEXT 



MOVE SR.OO 

LSR #8-2, DO 

AND.W #$1C,D0 

LEA INTERRUPTTABLE(AS) 

MOVEA.L -4(A0,DO),AO 



PLOOP 



MOVE.L 

BEQ.S 

MOVEA.L 

MOVEA.L 

MOVE.B 

AND.B 

CMP.B 

BNE.S 



AO,DO 

NOISR 

A0,A1 

(R1)*,A2 
A2 ,D0 
fil +,D0 
fll]+,DO 

NEXT 



00000248 4259 
0000024A 2F08 
0000024C 2F08 

0000024E 6130 

00000250 20SF 
00000252 4A68 0006 
00000256 670E 

00000258 2068 0010 NEXT 
0000025C 60DR 



CLR (fll)+ 
MOVE.L AO,-(SP) 
MOVE.L AO,- SP 



MOVEA.L (SP1+.A0 

TST CHAINFLAG(AO) 

BEQ.S RESTORE 

MOVEA.L LINK(AO),AO 

BRA PLOOP 



FETCH THE CURRENT INTERRUPT LEVEL 

POSITION IN THE LOWER BYTE, MULTIPLIED BY 4 

MASK OUT THE OTHER BITS 

POINT TO THE FIRST ISRIB FOR THIS LEVEL 

SET THE CONDITION CODES 
BRANCH IF THE POINTER IS NILL 
USE Al FOR SCANNING THE ISRIB 
INTERRUPT REGISTER ADDRESS 
INTERRUPT REGISTER CONTENTS 
INTERRUPT REGISTER MASK 
THIS SOURCE REQUESTING AN INTERRUPT? 
BRANCH IF NOT 

CLEAR THE CHAIN FLAG 

SAVE THE POINTER TO THIS ISRIB 

ALSO, THE ISR GETS IT AS A PARAMETER 

CALL THE ISR 

RESTORE THE POINTER TO THIS ISRIB 

DID THIS ISR CHOOSE TO SERVICE THE INTERRUPT? 

BRANCH IF SO; OTHERWISE... 

POINT TO THE NEXT ISRIB IN THE LINKED LIST 
AND POLL IT'S associated interrupt bit 



333 
334 

335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
3S1 
352 
353 
354 
355 
356 
357 
358 
359 
360 

361 

362 
363 

364 
365 
366 
367 

368 
369 

370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
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0000025E 2F08 NOISR 
00000260 4EB9 0000 
0000 



ASSEMBLY OF POWERUP. TEXT 

L 



MOVE. 
JSR 



00000266 588F 



RESTORE ADDQ 



00000268 2B5F FFF6 RECOV_ 
0000026C 385F FFFE 
00000270 2BSF FFEfl 
00000274 206D FFBE 
00000278 4ED0 

0000027A 4CDF 7FFF ENDISR 
0000027E 4E73 



0000 0280 CALLPROC EQU * 




HO.-(SP) 
INITUNITS NOISR 



#4 SP 
SP)+,REC0VERBL0CK(A5) 
SP)+,ESCAPECODE(AS) 
SP)+.I0RESULT(R5) 
NDISRHOOK(AS) ,R0 

(AO) 

(SP)*,D0-D7/A0-A6 



00000280 2059 
00000282 2019 
00000284 6706 
00000286 22SF 
00000288 2F00 
0000028A 2F09 
0000028C 4ED0 



.L (A1)*,A 
L JA1)*,0 
CALLIT 



CALLIT 



MOVEA. 

MOVE.L 

BEQ.S 

MOVEA.L (SP)+.A1 
MOVE.L DO,-(SP) 
MOVE.L A1,-(SP) 

JMP (AO) 



0000028E 
00000294 



0000029A 
0000029E 



000002R4 
000002R8 



000002AA 



000002BO 
000002B2 



31EF 0046 
FB20 

3F7C 2100 
0046 

2038 FB1C 
21EF 0048 
FB1C 

2F40 0048 
60BE 

0C6D FFEfl 
FFFE 
67DC 
0C6D FFEC 



* RECOVER BLOCK ROUTINES 
REC0V_2 MOVE.W 70 (SP) , SRTEMP 
MOVE.W #$2100,70(SP) 



MOVE.L 
MOVE.L 



MOVE.L 
BRA.S 



PCTEMP,DO 
72(SP),PCTEMP 

D0,72(SP) 
RECOV 1 



FFFE 
66AE 



000002BR 
000002BE 
000002C0 
000002C4 
000002C8 
000002CC 
000002DO 



000002D2 4E4A 
000002D4 2A78 FB2E 



2B5F FFF6 
548F 

2B5F FFEA 
41FA OOOC 
2F48 003E 
206D FFBE 



RECOVER CMPI.W #-22 , ESCAPECODE (A5 ) 

BEQ RECOV 2 

CMPI.W #-20,FSCAPECODE(A5) 

BNE REC0V_1 

STOP KEY PRESSED 

MOVE.L (SP)+,REC0VER8L0CK(A5) 

ADPQ L #2 SP 

MOVEA (SP) + ,IORESULT(AS) 

LEA STOP,AO 

MOVE.L A0.62(SP) 

MOVEA.L ENDISRH00K(A5) ,R0 

JMP (RO) 

STOP TRAP #10 

ADO_ERR MOVEA.L G_DOLLAR,AS 



NILL POINTER 



POP OFF THE RECOVER BLOCK ADDRESS 
RESTORE THE ORIGINAL RECOVER BLOCK 
RESTORE THE ORIGINAL ESCAPE CODE 
RESTORE IORESULT 
CALL ISR HOOK TO ALLOW MULTI -TASKING 



RESTORE THE ORIGINAL CONTEXT 
END OF INTERRUPT SERVICE 

PROCEDURE CfiLL 

PROC ADDRESS 

STATIC LINK 

SKIP IF THERE IS NO STATIC LIN 

SHUFFLE RETURN ADDRESS 

PUSH STATIC LINK ON THE STACK 

CALL THE PROCEDURE 



SAVE THE STATUS REGISTER 
DUMMY STATUS 



SAVE THE TARGET ADDRESS 
SWITCH PCTEMP 



TEST FOR DEBUGGER CALL 
TEST FOR STOP KEY 



SIMULATE AN ESCAPE(-20) 
RESTORE THE ORIGINAL RECOVER BLOCK 
GET RID OF SAVED ESCAPECODE 
RESTORE IORESULT 

REDIRECT INTERRUPTED PROGRAM TO STOP 
CALL ISR HOOK TO ALLOW MULTI -TASKING 



FIX AS 



1-308 
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384 

385 
388 
387 

388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 

399 

400 
401 
402 
403 
404 
405 



407 
408 
409 
410 
411 
412 
413 
414 
41S 
416 
417 
418 
419 
420 
421 
422 

423 
424 
425 
426 

427 
428 
429 
430 
431 
432 
433 
434 



00000208 3B7C FFFS 

FFFE 

000002DE 60OA BRA.S 

000002EO 2A78 FB2E BUS ERR MOVER. L 
000002E4 3B7C FFF4 MOVE. LI 

FFFE 
000002EA 31DF FBOO BE INFO MOVE.UI 



ASSEMBLY OF POUERUP.TEXT 

MOVE.UI #-ll,ESCAPECODE(AS) 



000002EE 21DF FB02 
000002F2 31DF FB06 
000002F6 6018 



000002F8 2F0D ESC 
000002FA 2A6F 0004 
000002FE 3F55 0006 
00000302 2A78 FB2E 
00000306 3B6F 0006 

FFFE 
OOt-SOaOC 2A5F 
OOUY'OE 588F 



MOVE.L 
MOVE.UI 
BRR.S 



MOVE . L 
MOVES 



BE INFO 

GJJOLLBR.AS 

#-12,ESCRPEC0DE(A5) 

(SP)*,BUS ERR INFO 
SP)*,BUSlERR_RDDR 
SP)+,BUS ERR_INSTR 

ESCN 



A5 , 
4(SP) 



(S R P s 



MOVE.UI (fl5),6fSP) 

MOVER. L 6 DOLLAR, AS 

MOVE.UI 6TSP),ESCflPEC00E(R5) 



MOVER. L (SP]+,AS 
RDDQ.L #4,SP 



00000310 
00000314 
00000318 
0000031R 

00000322 
00000326 
0000032A 
0000032C 
00000330 
00000334 
00000336 
0000033A 
0000033C 
0000033E 



31DF FB08 ESCN 

21DF FBOR 

2F08 

21FC FFFF 

FFFF FBOE 

2078 FB12 

0C58 4E40 

6608 

4278 FBOE 

31D0 FB10 

205F 

4EB8 FB38 

4E4B 

S44F 

2A78 FB2E 



MOVE.UI 
MOVE . L 
MOVE .1 
MOVE.L 



MOVER. L 
CMPI .W 
BNE.S 
CLR.UI 
MOVE.UI 
LINE MOVER. L 
JSR 
TRRP 
RDDQ 
MOVER. L 



SP)+,EXCP_STRTUS 
SP)+.EXCP_PC 
0,-fSP> 
»-l,EXCP_LINE 

LASTLINE.AO 
#$4E40. (RO)t 
NO LINE 
EXC"P_LINE 

RO) ,EXCP LINE+2 

SP +.A0 

EBUGESCAPE 
#11 
#2 SP 
G_DOLLAR,AS 



SET ESCAPE CODE 



FIX RS 

SET ESCAPE CODE 



SAVE RELEVANT DIAGNOSTIC INFO 



THE REST IS LIKE OTHER EXCEPTIONS 

SRVE AS 

GET COOE POINTER 

SRVE CODE 

SET ERROR CODE 

RESTORE AS 

POP SCRATCH SPACE 



SRVE EXCEPTION DIAGNOSTIC INFO 



SAVE PO 

TRY TO GET LINE # 



TRAP ? 



FOUND LINE # 
RESTORE RO 
DEBUGGER HOOK 



FIX PS 



00000342 206D FFF6 
00000346 B1CF 
00000348 6C08 
0000034A 08B8 0005 

FB08 
00000350 600C 
00000352 B1F8 FB2R TEST 2 
00000356 6606 
00000358 31F8 FB48 

FB08 



0000 035E NORMAL_RECOVER 
0000035E 46F8 FB08 MOVE 
00000362 2F2D FFF6 MOVE.L 
00000366 6100 FE02 BSR 
0000036A 2E6D FFF6 MOVEA.L 
O0O0036E 4E75 RTS 



* TRY TO DETECT CASES OF INTERRUPTED SUPERVISOR CALLS DURING USER PROGRAM 



MOVER. L RECOVERBL0CK(AS),A0 



CMPA.L 

BGE.S 

BCLR 

BRR.S 

CMPP.L 

BNE.S 

MOVE 



SP.RO 

TEST 2 

»5,EXCP_STATUS 

NORMAL RECOVER 
INITREC"OVER,RO 
NORMAL RECOVER 
INITSR,EXCP STATUS 



EQU « 

EXCP STATUS, SR 

RECO?ERBL0CK(AS) , -(SP) 

ASM CLOSEFILES 

REC0"VERBL0CK(A5),SP 



MOVE BACK TO USER MODE BECAUSE USER 
STACK IS BELOLI SUPERVISOR STACK 

INITSR URS SAVED UIHEN INITRECOVER UIRS 



RETURN TO USER MODE 

GO CLOSE ALL FILES ABOVE NEU (SP) 

CUT BACK USER'S stack 
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435 
436 
437 
438 00000376 4EB8 FB16 ESCRPE PROTO 



00000370 54AF 0002 P BREAK ADDQ.L #2,2(SP) 
00000374 4E73 RTE 

JSR 



BUMP RETURN ADDRESS TO SKIP LINE NUMBER 
RETURN FROM TRAP #0 



1-309 
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440 
441 
442 
443 



445 
446 
447 
448 
449 

450 
451 
452 
453 
454 
45S 
456 
457 

458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
47S 
476 
477 
478 
479 
480 

481 
482 
463 
484 

485 
486 
487 
488 
489 

490 

491 



* HANDLING LEVEL 7 INTS 



FF88 
0042 
0042 
0042 

0000037A 48E7 
0000037E 13FC 
0042 
00000386 614E 
00000388 614C 
0000038A 0801 
0000038E 6616 
00000390 4CDF 
00000394 4EF8 

00000398 4879 

0024 

0000039E 4EB8 

000003A2 48E7 



0024 
8003 
8001 



MONITOR 

KBOSTRTUS 

KBDDRTA 



8003 KBDCOMMRND 



FFFE RESET 

00B2 

8003 



7FFF 
FB32 



ISR 



OlflO 
FFFE 



0000 03A6 RESETX 

000003P6 4878 0007 
000003AR 42A7 
000003PC 42A7 

000003RE 2R78 FB2E 

000003B2 43E0 FEEC 

000003B6 6100 FEC8 

000003BR 4CDF 7FFF 

000003BE 4EB8 FB38 

000003C2 4E70 
000003C4 7008 

000003C6 51C9 FFFE LP1 

000003CR 51C8 FFFR 

000003CE 4278 FDC2 

000003D2 4EF8 01C0 



000003D6 6122 GETCTRL 
000003D8 13FC 0005 

0042 8003 
OO00O3EO 6118 Gfl 
000003E2 0800 0000 
000003E6 67F8 
000003E8 1239 0042 

8001 
000003EE C07C OOFO 
000003F2 B07C 0040 
000003F6 66E8 
000003F8 4E75 
000003FR 1039 0042 STALL 

8003 
00000400 0800 OOOl 
00000404 66F4 



EQU 
EQU 
EQU 



SFF880024 
$00428003 
$00428001 
EQU $00428003 



MOVEM. L D0-D7/A0-A6,-(SP) 
HOVE.B #$B2,KBDSTATUS 

BSR.S GETCTRL 

BSR.S GETCTRL 

BTST #1,D1 

BNE.S RESETX 

MOVEM.L (SP)+,D0-D7/R0-A6 

JMP '-■ ■ 



SRVE REGISTERS 



FF88 TRYMONITOR PER 



JSR 
MOVEM. 

EQU * 

PER 

CLR.L 

CLR.L 

MOVER. 

LEA 

BSR 

MOVEM. 

JSR 

RESET 

MOVEQ 

DBRR 

DBRR 

CLR 

JMP 



CTL_RESETV 

MONITOR 

RTN_TO MONITOR 
L D0-D77fl0-R6,-(SP) 



RESTORE REGISTERS 
URTCH IF OUT OF RANGE 



SRVE REGISTERS 



G DOLLAR, R5 
DEBUGGER (R5),fil 
CRLLPROC 

(SPJ+.D0-D7/R0-A6 
DEBUGESCAPE 



#8, DO 

D1.LP1 

D0.LP1 

-574 

448 



DEBUGGER(7,0,0) 



RESTORE REGISTERS 

GIVE DEBUGGER ANOTHER SHOT 

NO DEBUGGER, GIVE UP, CLEAR I/O 
WRIT 1 SECOND 



THEN REBOOT FROM SCRATCH 



BSR S STALL 

MOVE.B #S,KBDCOMMAND 

BSR.S STRLL 
BTST #0,D0 
BEQ GA 
MOVE.B KBDDATA,D1 

AND #$F0,DO 

CMP #$40, DO 

BNE GA 

RTS 

MOVE.B KBDSTATUS.DO 



BTST 
BNE 



#1 .DO 

STALL 



PAGE 

492 
493 
494 
495 
496 
497 

498 
499 
500 

501 
502 
503 
504 
505 

506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
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00000406 4E75 RTS 



0000 0408 SUPERCALL EQU * 
00000408 2F2F 0002 MOVE.L 
0000040C 3F6F 0004 MOVE 

0008 
00000412 2E9F MOVE.L 

00000414 4E7S RTS 



0000 0416 ASM INTLEVEL 

00000416 40CO MOVE 

00000418 COBC 0000 AND.L 

0700 

0000041E E048 LSR 

00000420 2F40 0004 MOVE.L 

00000424 4E75 RTS 

0000 0426 ASM SETINTLEVEL 
00000426 205F " MOV|R 



2(sp; 

4(SP! 



,-(SPj 
,8 SP 



(SP)MSP) 



EQU » 
SR.DO 
#$00000700,00 

#8, DO 
D0,4(SP) 



00000428 201F 

0000042A C07C 0007 

0000042E E148 

00000430 4E4B 

00000432 321F 

00000434 C27C F8FF 

00000438 8041 

0000043A 46C0 

0000043C 4ED0 

0000043E 205F 

00000440 201F 

00000442 C09F 

00000444 2E80 

00000446 4ED0 

00000448 205F 

0000044A 201F 

0000044C 809F 

0000044E 2E80 

00000450 4ED0 



MOVE. 

AND 

LSL 

TRAP 

MOVE 

AND 

OR 

MOVE 

JMP 

ASM IRND MOVER. 
MOVE.L 
AND.L 
MOVE.L 

JMP 



EQU » 
"-■ ,A0 
DO 



u m 

#8,00 
#11 
[SP1+.D 

#$F8FF, 
D1,D0 
DO.SR 
(P6) 



(SPJ+.fiO 
5P)+,D0 
SP +.D0 
,0,(SP) 

(fl6) 



ASM IOR MOVEA.L (SP)+,AO 

MOVE.L SP +,D0 

OR.L ]SP)+,DO 

MOVE.L DO.(SP) 

jmp (AO) 



TRAPS: 



TRAP #11, GETS INTO SUPERVISOR MODE, SAVES SR 
COPY RETURN ADDRESS 
MOVE STATUS REGISTER UP 

MOVE RETURN ADDRESS UP 

RETURN TO CALLER IN SUPERVISOR MODE 



FUNCTION TO RETURN INTERRUPT LEVEL 
GET STATUS REGISTER 
EXTRACT LEVEL 

MOVE IT OVER 

RETURN INTEGER RESULT 



PROCEDURE TO SET INTERRUPT LEVEL 

RETURN ADDRESS 

INTEGER PARAMETER 

TAKE MOD 8 FOR SAFETY 

MOVE IT OVER 

MOVE INTO SUPERVISOR MODE 

GET CURRENT STATUS REGISTER 

CLEAR CURRENT LEVEL 

COMBINE WITH NEW LEVEL 

RESTORE STATUS 



ADDRESS 


TRAP 


ESCAPECODE 


JFFFFFF3A 


IS 


(NONE) 


$FFFFFF40 


14 


-21 


$FFFFFF46 


13 


-21 


$FFFFFF4C 


12 


-21 


$FFFFFF52 


11 


-21 


$FFFFFFS8 


10 


"N" 


$FFFFFF5E 


9 


(NONE) 


$FFFFFF64 


9 


-3 



USUAL MEANING 

DEBUGGER 

UNRSSIGNED 

UNASSIGNED 

UNASSIGNED 

UNASSIGNED 

ESCAPE N 

NON LOCAL GOTO 

DEREFERENCE NIL POINTER 



1-310 
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547 * 

548 * 

549 * 

550 * 

551 * 

552 * 

553 * 

554 « 
555 
556 

557 * 
558 

559 * 
560 

561 * 

562 * 

563 * 

564 * 

565 * 

566 * 

567 * 

568 * 

569 * 

570 * 
571 
572 
573 

PASS 1 ERRORS: 



PASS 2 ERRORS: 



SFFFFFF6A 


7 


-8 


$FFFFFF70 


6 


-9 


SFFFFFF76 


5 


-5 


SFFFFFF7C 


4 


-4 


SFFFFFF82 


3 


-3 


SFFFFFF88 


2 


-2 


SFFFFFF8E 


1 


(-2 IF PINY 


SFFFFFF94 





(NONE) 


SYSTEM EXCEPTIONS: 




ADDRESS 




ESCAPECODE 


SFFFFFFC4 




-13 


SFFFFFFCA 




-13 


SFFFFFFDO 




(NONE) 


SFFFFFFD6 




-14 


SFFFFFFDC 




-4 


SFFFFFFE2 




-8 


SFFFFFFE8 




-5 


SFFFFFFEE 




-13 


$FFFFFFF4 




-11 


SFFFFFFFA 




-12 


NOSYhS 






END . 







VALUE RANGE ERROR 

CASE STATEMENT ERROR 

DIVIDE BY ZERO 

INTEGER OVERFLOW 

IORESULT <> 

STACK OVERFLOW 

LINK A6 EMULATOR UITH STACK CHECK 

PASCAL LINE BREAKPOINT 



USUAL MEANING 

1111 OPCODE 

1010 OPCODE 

TRACE 

PRIVILEGE VIOLATION 

INTEGER OVERFLOW (TRAPV) 

CHK INSTRUCTION 

DIVIDE BY ZERO (HARDWARE) 

ILLEGAL INSTRUCTION 

ADDRESS ERROR 

BUS ERROR 
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RANDOM 



Purpose 

RANDOM provides pseudo-random number sequences. 

Usage 

RANDOM is part of LIBRARY and is accessible by IMPORTing RND. 

Requirements 

The user must declare and initialize his own seed, which should be a positive 32-bit integer. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PASS 1 


COMPLETE . 


ERRORS: 








1 
2 
3 










mname rnd 












src module rnd; 




4 










src import sysglobals; 




5 










src export 




6 










src procedure random'var seed : integer); 




7 










src function rand( var seed : integer; 




8 










src range : shortint) : shortint; 




9 










src end; 




10 














11 










def rnd_rnd 




12 










def rnd_random 




13 










def rnd rand 




14 










def rand*om 




IS 










def rand 




16 














17 








*******************»**x**x*******x**x*******************xx**************x****** 




18 








X 






19 








* 


Procedure RANDOM(VAR SEED: INTEGER) 




20 








* 






21 








* 


Descript ion : 




22 








* 


Generate a pseudo-random number with the formula 

Xn <- (16807 * Xn-1) MOD (2~31 - 1), where Xn-1 is the 




23 








* 




24 








* 


previous random number. A shortcut computation is: 




25 








* 


C <- 16807 * Xn-1. 




26 








* 


Xn <- C HOD 2~31 + C DIV 2"31 . 




27 








» 


If Xn > 2"31 - 1, then Xn <- Xn - (2~31 - 1) 




28 








* 






29 








* 


Parameters: 




30 








* 


rndseed - the previous random number 




31 








* 






32 








x 


Error conditions: 




33 








* 


There are none. 




34 








X******X*XX*XXXX*XX*XXXXX*X*XX**X*XX ************* 




35 


00000000 


4E7S 




rnd_ 


rnd rts 




36 




0000 


0002 


rnd 


random equ * 




37 


00000002 


205F 




random movea.l (sp)+,aO return address 




38 


00000004 


225F 






movea.l (sp]+,al address of seed 




39 


00000006 


2011 






move . 1 (al),dO get previous random seed Xn 
move.l dO,dl leave bottom 16 bits in dO 




40 


00000008 


2200 








41 


OOOOOOOA 


4841 






swap dl get top 16 bits into dl 




42 


OOOOOOOC 


COFC 


41A7 




mulu #16807, dO get one partial product in dO 
mulu #16807, dl nigh order partial product in dl 




43 


00000010 


C2FC 


41A7 






44 


00000014 


4841 






swap dl align middle 16 bits of product in high dl 




45 


00000016 


0241 






add.w dl,dl most of (product div 2"31 ) is in low dl 




46 


00000018 


0081 






add.l dl,dO compute (product mod 2 ''31 J + (product div 2~31) 




47 


0000001A 


6402 






bcc.s rndl any carries out of 32nd bit are part of the div 




48 


0000001C 


5480 






addq.l #2,d0 (so propagate into appropriate position) 
bpl.s rnd2 bit 31 is also part of the div 




49 


0000001E 


6A0S 




rndl 




50 


00000020 


90BC 
FFFF 


7FFF 




sub.l *$7FFFFFFF,dO so remove it and add it back to bit 




51 


00000025 


2280 




rnd2 


move.l dO.(al) 
imp (aO) 




52 


00000028 


4ED0 








53 














54 








*x************x*xxx*x***xx*x**x**x**x*******x***x 




55 








* 






56 








* 


Function RflND(VAR SEED: INTEGER; 

RANGE: SHORTINT): SHORTINT 




57 








* 
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ASSEMBLY OF RANDOM. TEXT 




58 








* 






59 








* 


Returns a 16 bit integer which is scaled 




60 








X 


to the range 0. .RANGE-1 




61 








* 


(RANGE is treated as unsigned!) 




62 








*x**********xx*xxxxxxx*xx*******xxx**x**x******** 




63 














64 




0000 


002A 


rnd 


■and equ » 




65 


0000002A 


245F 




rand* 


movea.l (sp]+,a2 return address 




66 


0000002C 


341F 






move.w (sp)+,d2 range parameter 




67 


0000002E 


61D2 






bsr.s rnd random compute into dO 




68 


00000030 


E380 






asl.l #1,30 normalize 




69 


00000032 


4840 






swap dO to 16 bits 




70 


00000034 


C0C2 






mulu d2,d0 scale to range 




71 


00000036 


4840 






swap dO 




72 


00000038 


3E80 






move.w dO.(sp) return result 
imp (a2) 




73 


0000003A 


4ED2 








74 














75 










end 




PASS 1 


ERRORS: 












PASS 2 


ERRORS: 
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»** 68000 ASSEMBLER SYMBOL TABLE DUMP *** 

EXTERNAL SYMBOLS 
»** NO EXTERNAL SYMBOLS *** 

INTERNAL SYMBOLS 



SYMBOL 


TYPE 


OEF EQU SYM VALUE 


no 


AREG 





00000000 


Al 


AREG 





00000001 


A2 


flREG 





00000002 


A3 


AREG 





00000003 


A* 


AREG 





00000004 


B5 


AREG 





00000005 


A6 


AREG 





00000006 


A7 


AREG 





00000007 


CCR 


STREG 





00000005 


00 


DREG 





00000000 


Dl 


DREG 





00000001 


02 


OREG 





00000002 


D3 


DREG 





00000003 


04 


DREG 





00000004 


D5 


DREG 





00000005 


D6 


DREG 





00000006 


D7 


DREG 





00000007 


RAND 


REL 


65 


0000002A 


RANDOM 


REL 


37 


00000002 


RND1 


REL 


49 


0000001E 


RND2 


REL 


SI 


00000026 


RNO RAND 


REL 


64 


0000002A 


RND RANDOM 


REL 


36 


00000002 


RND RND 


REL 


35 


oooooooo 


SP ~ 


AREG 





00000007 


SR 


STREG 





00000006 


USP 


STREG 





00000007 
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ROMCALL 

Purpose 

ROMCALL provides an interface to several Boot ROM routines, swapping environments 
appropriately. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 

Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PRSS 1 
1 
2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
3S 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 
55 
56 
57 
58 



COMPLETE. ERRORS: 



mname ROMcall 



def 
def 
def 
def 
refa 
FFFF FFFE escapecode 
FFFF FFF6 recoverblock 
FFFF FFB8 intvec2 



asm_f pwr_on, asm_f lpyread ? asm_f lpy_wrt , asm_flpyinit 

asm_fTpymread, asm_f lpymwrite 

boot_lifhead,boot findfile 

boot minit ,boot_m7open,boot_mfclose,boot_mread 

sysglobals - . -. _ 

equ sysglobals-2 

equ sysglobals-10 

equ -72 



vector for interrupt level 2 



0000 0120 flpyread 

0000 0124 flpy_wrt 

0000 0128 fintrupt 

0000 012C flpyinit 

0000 0130 flpymread 

0000 0134 flpymwrite 

0000 0144 f pwr_on 

0000 018C llfhead 

•findfile 

0000 4004 minit 

0000 4008 mfopen 

0000 4010 mfclose 

0000 400C mread 



hard coded addresses: 



equ $120 
equ $124 
equ $128 
equ $12C 
equ $130 
equ $134 
equ $144 
equ 
equ 



288 
292 
296 
300 
304 
308 
324 



0000 0000 A 
0000 0004 R 
0000 0000 F 



equ 
equ 
equ 



equ 
equ 
equ 
equ 

aO 



$18C 
$190 

$4004 
$4008 
$4010 
$400C 

address of boot 
return address 
function result 



ROM routine 



0000 0000 boot mfopen 



00000000 41F8 4008 

00000004 285F 
00000006 4CDF 001E 
OO00O0OA 2F0C 
0000000C 613C 
OOOOOOOE 4267 
00000010 48E7 7800 
00000014 6010 



lea 

movea . 1 
movem 
move 
bsr . s 
clr .w 
movem. 1 
bra . s 



equ » 
mfopen, A 



sp)+,R 
sp)+,dl-d4 

., ;=p) 

flxlt 
-<sp) 

dl-d4,-(sp) 
rom fun 



H 



0000 0016 boot minit 



00000016 41F8 4004 

0000001A 285F 

0000001C 221F 

0000001E 2F0C 

00000020 6128 

00000022 4267 

00000024 2F01 

00000026 4E90 

00000028 301F 



lea 

movea. 1 
move . 1 
move . 1 
bsr .s 
clr .w 
move. 1 



rom_fun jsr 



equ * 
minit ,A 

sp]+,R 
sp)+,dl 

( -! s P) 
fixit 
"(sp) 
dl,-(sp) 

(A) 

Up) + ,f 



get return address 

get parameters 

put return address back 

?et into b 
unction result 
push parameters 



get return address 

get parameters 

put return address back 

?et into boot ROM environment 
unction result 
push parameters 

call boot ROM 

get function result 
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59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 

86 
87 
88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



0O00002A 6140 
0000002C 3F40 0004 
00000030 4E75 



bsr .s 
move .w 
rts 



unfix 
F,4(sp) 



0000 0032 asm_flpyinit equ * 



00000032 41F8 012C 

00000036 28SF byte 6 
00000038 4C9F 000E 
0000003C 2F0C 
0000003E 610A 
00000040 48A7 7000 



lea 



flpyinit , A 



movea. 1 (sp)+,R 
movem. w jsp)+,dl-d3 
move.l R,-(sp) 
bsr. s fixit 
movem. w dl-d3,-(sp) 



00000044 4E90 
00000046 6124 
00000048 4E75 



rom_jsr jsr 

bsr . 
rts 



unfix 



0000004A 285F fixit 
0000004C 4E4B 
0000004E 47F8 FFB8 
000000S2 3F1B 
00000054 2F1B 
00000056 273C 0000 

0128 
0000005C 373C 4EF9 
00000060 4ES5 FFFE 
00000064 487A 0076 
00000068 4857 
0000006A 4ED4 

0000006C 285F unfix 
0000006E 4E5D 
00000070 47F8 FFBE 
00000074 271F 
00000076 371F 
00000078 46DF 
0000007A 4ED4 



movea.. 
t rap 
lea 

move .w 
move . 1 
move . 1 

move . w 

link 

pea 

pea 

jmp 

movea . 1 

unlk 

lea 

move . 1 

move .w 

move 

jmp 



- [ ltt 



(sp)+,R 
#11 
intvec2, a3 

♦fintrupt 

#20217, -(a3) 

a5,#-2 

rom recover 



(sp)*,R 
aS 

intvec2*6,a3 
(sp)+,-(a3) 

sp)+,-(a3) 

sp)+,sr 



(a3) 



0000 007C boot mread 



0000007C 41F8 400C 

00000080 285F 

00000082 4C9F OOFE 

00000086 2F0C 

00000088 61C0 

0000008A 48A7 7F00 

0000008E 60B4 



lea 



equ * 
mread, A 



byte_14 movea . 1 
movem. w 



5p)+,R 
sp)*,dl-d7 

move . 1 ft.-fsp) 

bsr.s fixit 

movem. w dl-d7,-(sp) 

bra.s rom_jsr 



return to user environment 
put back function result 

return 



get return address 

get parameters 

put return address back 

get into boot ROM environment 

push parameters 

call boot ROM 

restore user envirnoment 

return to user 



fetch return address 

get into supervisor mode 

save floppy vector 

save jmp 

save address 

set up boot ROM floppy vector 

(jmp) 

primitive try/recover 



return to call 

fetch return address 

pop recover stuff 

restore floppy vector 

address 

jmp 

restore user mode 

return to call 



get return address 

get parameters 

put return address back 

get into boot ROM environment 

push parameters 



0000 0090 boot mfclose 



1-319 



PAGE 


3 [2.0] 11/4/82 13: 


13:45 ASSEMBLY OF ROMCALL.TEXT 






US 


00000090 


41F8 


4010 


lea mfclose,A 






116 


00000094 


6004 




bra.s no_parm 






117 














118 




0000 


0096 


asm_f_pwr_on equ * 






119 


00000096 


41F8 


0144 


lea f_pwr_on,A 


boot ROM mini reset 




120 














121 


0000009A 


61AE 




no_parm bsr.s fixit 


get into boot ROM environment 




122 


0000009C 


60A6 




bra.s rom_jsr 






123 














124 














12S 














126 




0000 


009E 


boot lifhead equ * 






127 


0000009E 


41F8 


018C 


lea lifhead, fl 






128 


O0OOOOA2 


600R 




bra.s byte_8 






129 














130 




0000 


00R4 


asm flpy wrt equ * 






131 


O0OOO0A4 


41F8 


0124 


Tea flpy wrt ,R 


boot ROM single-sector write 




132 


O0OOO0A8 


6004 




bra.s byte_8 






133 














134 




0000 


OOflfl 


asm_flpyread equ * 






135 
136 
137 


OOOOOOPA 


41F8 


0120 


lea flpyread,A 


boot ROM single-sector read 




OOOOOORE 


285F 




byte_8 movea.l (sp)+,R 


get return address 




138 


OO0OO0BO 


4CDF 


0006 


movem.l jsp)+,dl-d2 


get parameters 




139 


O00000B4 


2F0C 




move .1 R, - [ sp) 


put return address back 




140 


000000B6 


6192 




bsr.s fixit 


get into boot ROM environment 




141 


O000O0B8 


48E7 


6000 


movem.l dl-d2,-(sp) 


push parameters 




142 


OOOOOOBC 


6086 




bra.s rom_jsr 






143 














144 














14S 














146 




0000 


OOBE 


asm_f lpymwrite equ * 

lea flpymwrite,A 






147 


OOOOOOBE 


41F8 


0134 


boot ROM multisector write 




148 


OOO0OOC2 


6004 




bra.s byte_12 






149 














ISO 




OOOO 


00C4 


asm_f lpymread equ * 






1S1 


O0OOOOC4 


41F8 


0130 


lea flpymreadjA 


boot ROM multisector read 




1S2 














1S3 


O0000OC8 


28SF 




byte_12 movea.l (sp)+,R 


get return address 




1S4 


OOOOOOCR 


4CDF 


OOOE 


movem.l [sp) + ,dl-d3 


get parameters 




155 


OOOOOOCE 


2F0C 




move.l R,-(sp) 


put return address back 




156 


00000000 


6100 


FF78 


bsr fixit 


get into boot ROM environment 




157 


00000004 


48E7 


7000 


movem.l dl-d3,-(sp) 


push parameters 




158 


O0O00OD8 


6000 


FF6A 


bra rom_Jsr 






159 














160 














161 














162 




0000 


OODC 


rom_recover equ * 


escape from boot ROM 




163 


OOOOOODC 


301F 




move.w (sp]+,dO 


get escapecode 




164 


OOOOOODE 


618C 




bsr.s unfix 


return to user environment 




165 


OOOOOOEO 


3B40 


FFFE 


move.w dO .escapecode ( a5 ) 
trap #10 


restore escapecode 




166 


O0OOOOE4 


4E4A 




esc ape (escape code) 




167 














168 














169 














170 




FFFF 


FDD2 


FUBUFFER EQU SFFFFFDD2 FLOPPY UNIVERSAL BUFFER (RQ> 




171 














PAGE 


4 [2.0] 11/4/82 


13:13:45 ASSEMBLY OF ROMCALL.TEXT 






172 




0000 


0OE6 


BOOT FINDFILE EQU * 






173 


OOO0O0E6 


225F 




MOVEA.L (SP)+,A1 


RETURN ADDRESS 




174 


000000E8 


241F 




MOVE.L SP +,02 


GET DIR STRRT 




175 


OOOOOOEA 


261F 




MOVE.L (SP)+,D3 


GET DIR LEN 




176 


OOOOOOEC 


20SF 




MOVER. L SP)+,RO 


GET FILE NAME RDDR 




177 


OOOOOOEE 


285F 




MOVEA.L (SPJ+.A4 
MOVE.L fll.-(SP) 
NXTDSECTOR LEfl FUBUFFER, R2 


GET ADDR OF CRT ENTRY 




178 


OOOOOOFO 


2F09 




RESTORE RETURN ADDRESS 




179 


000000F2 


45F8 


FD02 






180 


OO00O0F6 


48E7 


30R8 


MOVEM.L D2/D3/flO/fl2/A4,-(SP) 
MOVE.L 02, -(SP) 


SAVE REGS 




181 


OOOOOOFH 


2F02 








182 


OOOOOOFC 


2 FOR 




MOVE.L R2,-(SP) 
BSR.S ASM FLPYRERD 


READ THE NEXT 




183 


OOOOOOFE 


61RA 




DIRECTORY SECTOR 




184 


00000100 


4C0F 


150C 


MOVEM.L (SPT+,D2/D3/A0/R2/fl4 
MOVEQ #8,D1 


RESTORE REGS 




185 


00000104 


7208 




(8 ENTRIES/SECTOR) 
CHECK LOGICAL EOD 




186 


00000106 


0C6R 


FFFF 


CHECKTYPE CMPI .U #-l,10(R2) 








OOOR 










187 


0000010C 


6726 




BEQ.S NOTFOUND 






188 


0000010E 


4R6R 


OOOR 


TST.U 10(R2) 
BEQ.S NXTDENTRY 


IGNORE PURGED FILES 




189 


00000112 


6712 








190 


00000114 


2248 




MOVER. L R0.R1 
MOVEA.L R2,R3 


SAVE NRME POINTER 




191 


00000116 


264R 




COPY ENTRY POINTER 




192 


00000118 


78C4 




MOVEQ #4,D4 
CHKNRME CMPM.U (01 j+, (R3J* 

DBNE D4, CHKNRME 
BNE.S NXTDENTRY 


SET CHARACTER COUNTER 




193 


OOOOOllfi 


B749 




MATCH CHARACTERS 




194 


0000011C 


56CC 


FFFC 






195 


00000120 


6604 








196 


00000122 


288R 




MOVE.L R2,(R4) 


STORE THE CAT ENTRY ADDR. 




197 


00000124 


4E7S 




RTS 






198 














199 


00000126 


D4FC 


0020 


NXTDENTRY ADDA #32. R2 
SUBQ.L #1,D1 
BGT.S CHECKTYPE 


INCREMENT 




200 


0000012R 


5381 




TO NEXT ENTRY 




201 


0000012C 


6ED8 








202 


0000012E 


5282 




RODQ.L #1,D2 


INCREMENT 




203 


00000130 


5383 




SUBQ.L #1.D3 
BGT.S NXTDSECTOR 


TO NEXT DIRECTORY 




204 


00000132 


6EBE 




SECTOR 




205 


00000134 


387C 
FFFE 


FFFF 


NOTFOUND MOVE.W #-1 , ESCRPECODE (RS ) 


ESCAPECODE := -1 




206 


0000013R 


4E4R 




TRAP #10 






207 














208 








NOSYMS 






209 








END 






PASS 1 


ERRORS: 












PASS 2 


ERRORS: 
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Purpose 

RS contains assembly language low-level I/O drivers. 

Usage 

RS is used for the 98626 interface and the 9816 computer's built-in RS-232 interface. 

Requirements 

RS DRV and COMASM 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PASS 1 COMPLETE. ERRORS: 

2 ****************************************************************************** 

3 * 

4 * COPYRIGHT (C) 1982 BY HEWLETT-PACKARD COMPANY 

5 * 

6 ****************************************************************************** 

7 * 

8 * 

9 * IOLIB RS 

10 * 

11 » 

12 ****************************************************************************** 

13 * 

14 * 

15 « 

16 * Library - IOLIB 

17 » 

18 * Purpose - This set of assembly language code is intended to be used as 

19 * a PASCAL module for I/O drivers for use by the external I/O 

20 « procedures library. 

21 * 

22 * 

23 * Date - 8-6-82 

24 * Update - 9-30-82 

25 * Release - 2.0 (QA6) 
26 
27 
28 * Source 



RS: RS.TEXT, RS HEAD. TEXT, RS RU.TEXT, RS_CS.TEXT, 
RS UTIL.TEXT (S.2S r ' floppy) 



29 » RSJJTIL.TEXT (5.25'' floppy) 

30 * Object - RS: RS.CODE (5. 25" floppy) 

31 * 

32 * 

33 * Backup - BACK2 : $ (5.25" floppy) 

34 * 

35 * 

36 ****************************************************************************** 

37 » 

38 * 

39 * RELEASED 

40 * VERSION 

41 * 

42 * 

43 ****************************************************************************** 
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45 ****************************************************************************** 

46 * 

47 * 

48 * The following lines are used to tell the LINKER/LOADER what this 

49 * module looks like in PASCAL terms. 

50 * 

51 * Note that it is possible to create assembly modules that are functions. 

52 * These routines are called through an indirect pointer using the CALL 

53 * facility which does NOT permit functions. 

54 * 

55 * This module is called 'RS' ( upper or lower case - doesn't matter ) 

56 * independent of the file name ( by use of the MNAME pseudo-op ). 

57 * 

58 * All the externally used procedures are called ' RS _&@@&@@@Q ' in 

59 * this module. If you are using assembly to access them use the 

60 * 'RS_@@&&@@@' name. If you are using Pascal use the '@@@&&i>Q' 

61 * name. 

62 * 

63 ******************************************************************************* 
64 

65 MNAME RS 

66 

67 

68 

69 

70 

71 

72 

73 SRC PROCEDURE rs rdb ( temp : ANYPTR j'VAR x : CHAR 

74 SRC PROCEDURE rs wtb temp : ANYPTR ; val : CHAR 

75 SRC PROCEDURE rs_rdw temp : ANYPTR ; VAR x : io word) 

76 SRC PROCEDURE rs_wtw temp : ANYPTR ; val : io_word) 

77 SRC PROCEDURE rs_rds ( temp : ANYPTR ; reg : io_word: 

78 SRC ~ VAR x : io_word) 

79 SRC PROCEDURE rs_wtc ( temp : ANYPTR ; reg : io_word; 

80 SRC val : io word ) ; 

81 SRC PROCEDURE rs tfr ( temp : ANYPTR ; bcb : AN7PTR); 

82 • ■ ' 



SRC 


MODULE 


RS; 










SRC 


IMPORT 


iodeclarat ions: 








SRC 


EXPORT 












SRC 














SRC 




PROCEDURE 


rs_init 


temp 


ANYPTR 


; 


SRC 




PROCEDURE 


rs_isr 


temp 


PISRIB 




SRC 




PROCEDURE 


rs_rdb 


temp 


ANYPTR 


'VAR 


SRC 




PROCEDURE 


rs_wtb 


temp 


ANYPTR 


val 


SRC 




PROCEDURE 


rs_rdw 


temp 


ANYPTR 


VAR 


SRC 




PROCEDURE 


rs wtw 


temp 


ANYPTR 


val 


SRC 




PROCEDURE 


rs_rds 


temp 


ANYPTR 


reg 


SRC 












VAR 


SRC 




PROCEDURE 


rs_wtc 


temp 


ANYPTR 


reg 
val 


SRC 












SRC 




PROCEDURE 


rs_tfr 


temp 


ANYPTR 


bcb 


SRC 


END; { 


of extdc , 
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84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 
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****************************************************************************** 

* 

» SYMBOLS FOR EXPORT fiS PROCEDURE NAMES 

* 

****************************************************************************** 

DEF RS_RS 

DEF RSJ5S INIT 
DEF RS_RS_ISR 
DEF RS_RS_RDB 
DEF RS_RS_WT8 
DEF RS„RS_RDU 
DEF RS RS WTU 
DEF RS RS RDS 
DEF RS - RS - UTC 
DEF RS_RS_TFR 

****************************************************************************** 

« SYMBOLS FOR IMPORT 
* 

****************************************************************************** 

LMODE ABORT IO,LOGEOT 
REFA ABORT_IO,LOGEOT 

INCLUDE IOLIB:COMDCL 
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136 
137 
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4 [2.0] 11/4/82 16:25:44 IOLIB COMDCL - COMMON EQUPTES AND DEFINITIONS 

******************************************************************************** 
* 

* modified: 02/22/82 JPC added parm to user EOT & ISR proc's 
* 

******************************************************************************** 
* 

* HPL CONVENTIONS 
* 

* 

* Much of this code is taken intact from the 9826 HPL 

* language system EIO ROM ( extended I/O ROM ). 
* 

» The Pascal that wall be calling this code uses 

* the stack for parameter passage. The HPL code 

* uses the Ax and Dx registers for all parameters. 

* The Pascal driver entry points on the previous pages 

* take care of getting the parameters into the correct 

* registers. 
* 

* 

* GENERAL HPL ENTRY/EXIT CONDITIONS: 
* 

* Al .L = CARD ADDRESS 

* A2 L = DRIVER TEMP ADDRESS 

* UNLESS OTHERWISE INDICATED, THESE REGISTERS ARE UNALTERED. 
* 

* NEU ENTRY/EXIT CONDITIONS FOR PASCAL USE : 
* 

* A3.L = BUFFER CONTROL BLOCK ADDRESS 

* In addition to the R1/A2 convention, Pascal will use 

* A3 for a pointer to the buffer control block. 

* The HPL system kept much of the transfer 

* information in the s.c. temps. 
* 

* TIME0UT(A2) = contains timeout information 

* Timeout was a global temp in HPL and a timeout 

* generated an error. 

* In PASCAL each card has a timeout value stored in 

* its temporary area. A timeout error 

* generates an ESCAPE ( which can be trapped ). 
* 

* 
******************************************************************************** 
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xxxxxxxxxxxxxxx*xxxxx*xxxxxx*xxxx*x**xxxxxxxxxxx*x*xxxxxxxxxxxxxxxxx*xxxxxxxxxx* 
* 

X 

x DRIVER TEMPS TEMPLATE 

x 

x OFFSET FROM A2 

x 

* HPL DECLARATIONS ( MODIFIED ) 

x 
x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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160 
161 
162 
163 
161 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 



0000 


0000 


ISR ENTRY 


EQU 





.19 


0000 


0014 


USER" ISR 


EQU 


20 




0000 


0014 


H IS* PR 


EQU 


20 


.23 


0000 


0018 


H ISR SL 


EQU 


24 


.27 


0000 


001C 


H ISR PM 


EQU 


28 


.31 


0000 


0020 


C~ADR~ 


EQU 


32 


.35 


0000 


0024 


BtJFI OFF 


EQU 


36 


.39 


0000 


0028 


BUFO OFF 


EQU 


40 


.43 


0000 


002C 


EIRB OFF 


EQU 


44 




0000 


002D 


10 SC 


EQU 


45 




0000 


002E 


TIRE OUT 

X 


EQU 


46 


.49 


0000 


0032 


X 

MA Ul 


EQU 


SO 


.51 


0000 


0033 


MA 


EQU 


51 




0000 


0034 


AVAIL OFF 


EQU 


52 


•?-? 






X 




S2 


.83 






X 




S2 


.179 



PASCAL ISR LINK & UNLINK area 

user ISR: do NOT change the proc/stat link/parm ordering!!! 

procedure pt r 

static link 

parameter 
card address 
buffer pointer offset 
buffer pointer offset 
eir byte 

select code ( i.e. 7, 22, etc. ) 
timeout value 

=0 : no timeout 
#0 : value of timeout 
word access to my address 
byte access to my address 
standard space taken from temps 
normal cards ( 32 bytes ) 
98628 card ( 128 bytes ) 



* 

* TRANSFER OFFSETS I 
* 

* OFFSET FROM A3 

* PASCAL DECLARATION 

* 



0000 


0000 


TTMP 


OFF 


EQU 





0000 


0005 


T SC 


OFF 


EQU 


R 


0000 


0007 


TACT 


OFF 


EQU 


7 


0000 


0009 


TUSR 


OFF 


EQU 


9 



0000 


OOOA 


T BU OFF 

X 

TEND OFF 

X 

TDIR OFF 

X 

TCHR OFF 

X 

TCNT OFF 
TBUF~0FF 
TBSZ OFF 
TEMP OFF 
TFIL OFF 
T PR OFF 

X 

T SL OFF 
T PM OFF 
T_DMHPRI 


EQU 


10 




0000 


OOOB 


EQU 


11 




0000 


00OD 


EQU 


13 




0000 


OOOE 


EQU 


14 


..IS 


0000 
0000 
0000 
0000 
0000 
0000 


0010 
0014 
0018 
O01C 
0020 
0024 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


16 
20 
24 
28 
32 
36 


..19 
. .23 
..27 
..31 
..35 
..39 


0000 

0000 
0000 


0028 

002C 
0030 


EQU 
EQU 
EQU 


40 
44 
48 


. .43 
. .47 






X TRANSFER EQUATES 


0000 
0000 
0000 
0000 


0001 
0002 

0003 
0004 


TT INT 
TT DMA 
TT'BURST 
TT FHS 


EQU 
EQU 
EQU 
EQU 


1 
2 
3 
4 
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190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 

235 0000 0001 TT INT EQU 1 interrupt 

236 0000 0002 TT DMA EQU 2 DMA 

237 0000 0003 UNBURST EQU 3 burst 

238 0000 0004 TT_FHS EQU 4 fast handshake 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
N BUFFER CONTROL BLOCK 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
pointer to driver temp offset 
transfer select code 
actual transfer mode 
transfer mode 

00 - not used 

serial DMA 
serial FHS 
serial FASTEST 



01 
02 
03 
04 



05 
06 
07 
08 
09 
t ransfer 


t r a n s f e r 


t ransfer 


t ransfer 
-1 = 
t ransfer 
t ransfer 
t ransfer 
t ransfer 
t ransfer 
transfer 
NIL no 
transfer 
t ransfer 
dma prio 



( DMA or FHS ) 
not used 



BURST ) 

DMA or BURST ) 

DMA or INTR ) 



overlp INTR 

overlp DMA 

overlp FHS 

overlp FASTEST 

overlp OVERLAP v 

byte/word indicator 
byte / 1 - word 

EOI/END indicator 

io eoi / 1 = eoi sent or searched for 

direction 
input / 1 - output 

terminate character 

no termination character 

count 

buffer pointer 

buffer maximum size 

empty pointer pointer 

fill pointer 

pointer to eot procedure 
procedure 

eot proc static link 

eot proc parameter 
rity request 
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24 3 
244 
245 
246 
247 
24 8 
24 8 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
277 
277 
278 
279 
279 
279 
280 
281 
282 
282 
282 
283 
284 
285 
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J******************************************************************************* 
* 

* EXTERNAL REFERRNCES for escape 
* 
******************************************************************************** 

REFA iodeclarations reference the io lib var. area 

REFA sysglobals 

******************************************************************************** 

* Escape code values 
* 

*********************************************************************** 

no interface 
not an hpib interface 
no active controller 
sc ( not device ) specified 
not enough space in the buffer 
not enough data left in the buffer 
tfr error 

sc is currently busy 
the buffer is busy 
bad count 
bad timeout value 
no driver 
no dma installed 
no word transfers allowed 
not addressed as talker 
not addressed as listener 
t imeout 

not system controller 
bad read status / write control 
bad set/clear/test 
interface is dead 
end of data has happened 
misc. error 







********* 


****** 


**** 


0000 


0001 


NO CARD 


EQU 


1 


0000 


0002 


NOT HPIB 


EQU 


V 


0000 


0003 


NO ffCTL 


EQU 


3 


0000 


0004 


NO DVC 


EQU 


4 


0000 


0005 


NO SPACE 


EQU 


b 


0000 


0006 


NO DATA 


EQU 


6 


cooo 


0007 


TFR" ERR 


EQU 


7 


0000 


0008 


sc Busy 


EQU 


8 


0000 


0009 


BUF BUSY 


EQU 


9 


0000 


OOOfi 


TCNTERR 


EQU 


10 


0000 


000B 


BADTMO 


EQU 


1 1 


0000 


oooc 


NO DRV 


EQU 


12 


0000 


000D 


NO DMA 


EQU 


13 


0000 


000E 


NO WORD 


EQU 


14 


cooo 


000F 


NOT TALK 


EQU 


lb 


0000 


0010 


NOT LSTN 


EQU 


16 


0000 


0011 


TrlO ERR 


EQU 


17 


0000 


0012 


NO SCTL 


EQU 


18 


0000 


0013 


BAD" RDS 


EQU 


19 


0000 


0014 


BAD SCT 


EQU 


20 


0000 


0015 


CRD DUN 


EQU 


21 


0000 


0016 


EOD SEEN 


EQU 


22 


0000 


0017 


10 RISC 


EQU 


23 



FFFF FFE6 IOE ERROR EQU 



io sub system error escape code 



FFFF FFBE I0E_RSLT 
FFFF FFBA IOE SC 



EQU 
EQU 



FFFF FFFE ESC CODE EQU 
FFFF FFF6 RCVR" BLK EQU 



IOOECLARATIONS-66 
I0DECLARATI0NS-70 



SYSGLOBALS-2 
SYSGLOBALS-10 
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287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 



REGISTER USAGE SUMMARY (of utility routines) 

Global Usage 

a5 -- Pascal Global Base 

a6 -- Pascal Stack Frame 

a7 -- Stack Pointer 

al -- Card Address 

a2 -- Driver Attributes ('temp' 

ROUTINE aO a3 a4 dO dl 



space) 
d2 d3 



d4 dS d6 d7 



queue_space 

queue_empt y 

queue_f ull 

inqueue 

out queue 

init queue 

check"_queue 

check_dsr_cts 

wait 

send 

get_char 

wait_send 

wait get 

check"_er ror 

soft_reset* 

connect* 

disconnec t 

rdivu 

check_xfer_in 

check_xfer_out 

clear xfer + 

set_x7er 

dump_buf fer 



NOTATION (in order of importance) 



output parameter 

input parameter 

used by routine (register has consistent meaning throughout routine 

used to pass parameter to called routines 

used by routine (temporary) 

possible usage by called routines 

not used by routine 



NOTE: the registers used by routines to do an ioescape have been 
left out since they do not effect other routines. 

*This routine calls ABORT 10 which uses other registers not listed 
+This routine calls LOGEOT which uses other registers not listed 
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PAGE 9 [2.0] 11/4/82 16:25:44 IOLIB IOCOMASM - ESCAPE SUPPORT 

339 * 

340 * ROUTINE USAGE SUMMARY 

341 * 

342 * ROUTINE CALLS 

343 * 

344 * queue_space <none> 

345 * queue_empty <none> 

346 * gueue_full <none> 

347 * inqueue <none> 

348 * outqueue <none> 

349 * init queue <none> 

350 * chec^_queue <none> 

351 * check_dsr_ct s <none> 

352 * wait check_queue, check_dsr_ct 5 (both indirectly) 

353 * send wait, check_dsr_ct s 

354 * get_char outqueue, queue_space, send 

355 * wait_send send, check_error 

356 * wait get wait, check_er ror, get_char, check_queue 

357 * check_error ioescape 

358 * soft_reset init_queue, AB0RT_I0 

359 * connect soft_reset 

360 * disconnect <none> 

361 * rdivu <none> 

362 * check_xfer_in ioescape 

363 * check_xfer_out ioescape 

364 * clear xfer <none> 

365 * set_x?er <none> 

366 * dump_buffer queue_empty, get_char, clear_xfer, L0GE0T 

367 * ioescape <none> 

368 » init init_queue, AB0RT_I0 

369 * rdb connect, check_error, check_xfer_in, wait_get 

370 » wtb connect, check error, check_xfer_out , wait_send 

371 * rdw connect, check_error, check_xfer_in, wait_get 

372 * wtw connect, check_error, check xfer_out, wait_send 

373 * rds queue_empty, get_char, check~_error , rdivu, ioescape, 

374 * connect 

37,5 * w,c check_error, soft_reset, connect, disconnect, rdivu, 

376 * ioescape 

377 * isr queue_space, queue_full, inqueue, check_dsr_cts, 

378 * send, dump buffer, L0GE0T 

379 * tfr connect, cFeck error, dump buffer, set xfer 

380 - 
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382 * 

383 * 

384 » ROUTINE CALLED BY 

385 * 

386 * queue_space get_char, isr 

387 * queue empty dump buffer, rds (6, 10) 

388 * queue_full isr ~ 

389 * inqueue isr 

390 * outqueue get_char 

391 * init queue init, soft_reset 

392 * check_queue wait_get (with wait) 

393 * check_dsr_cts isr, send (with and without wait) 

394 * wait wait_get, wait send, send 

395 * send isr, wait_send7 get_char 

396 * get_char rds(6), dump_buffer, wait_get 

397 * wait_send wtb, wtw 

398 * wait get rdb, rdw, 
? 9 ? * checF_error rdb, wtb, rdw, wtw, rds(6), wtc(6), tfr, 



400 



wait send, wait_get 



401 * soft_reset wtc(T4), connect 

40' * connect rdb, wtb, rdw, wtw, wtc(12), tfr 

403 * disconnect wtc(12) 

404 * rdivu rds(3), wtc(3) 

405 * check_xfer_in rdb, rdw, 

406 * check_xfer_out wtb, wtw 

407 * clear xfer isr, dump buffer 

408 * set_xTer tfr 

409 * dump_buffer tfr, isr 

J 10 * ioescape rds, wtc, tfr, check_error, check_xfer_in, 

411 * check xfer out 

412 * ABORT 10 init, soft~reset 

413 * LOGEOT isr, dump 6"uffer 
414 

415 
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421 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

* 

* module initialization -- none required. 

x 
xxxxxxxxx*xxxxxxxxxxxxxxxxxxx*xxxxx*xxxxxxxxxxxx**xxxxxxxxxxxxxx*xxx*xxxxxxxx 



0000 0000 RS_RS 
00000000 4E7S 



EQU * 
RTS 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 

* 98626 card register mnemonics 

x 
xxxxxxxxxx*xxxxxxxxxxxxxx»xx*x»xxxxxxxxx*xxxxxxxxxxxxxxx»xxxxx»xxxxxxxxxxxxxx 



0000 0001 RESET REG 
0000 0001 ID REG" 
0000 0003 INTR SU) 
0000 0005 BflUD_SU) 
0000 0007 LINE SU 



0000 0011 DATA 

0000 0013 INTR_EN 

0000 0011 DIVO 

0000 0013 DIV1 

0000 0015 INTR_ID 

0000 0017 LINE CONT 

0000 0019 MODER CONT 

0000 001B LINE STAT 

0000 001D MODEM STAT 



EQU 


1 


EQU 


1 


EQU 


M 


EQU 


b 


EQU 


■1 


registers 




EQU 


17 


EQU 


19 


EQU 


17 


EQU 


19 


EQU 


21 


EQU 


23 


EQU 


2b 


EQU 


27 


EQU 


29 



write only 

read only 

interrupt switches 

baud rate switch bank 

line characteristic switches 



receive/transmit buffer (dlab=0) 
interrupt enable register (dlab=0) 
divisor latch (LSB (DLAB=1) 
divisor latch (MSB) (DLAB=1) 
interrupt identification 
line control register 
modem control register 
line status register 
modem status register 
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454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



TTRIBUTE space 
(do not mix 
the word addr 
starting at A 







xxxxxxxxxxxx 


KXXXXXXXXXXXXXXXXXXXXXXXX 


xxxxxx 






X 






size 






X 









0000 


0034 


S ERROR 


EQU 


AVAIL OFF 


4 


0000 


0038 


IN ISR 


EQU 


S ERRCR+4 


1 


0000 


0039 


Xlfl ACT 


EQU 


IN ISR+1 


1 


0000 


003A 


CONNECTED 


EQU 


XIN ACT+1 


1 


0000 


003B 


MODEM ON 


EQU 


CONRECTED+1 


1 


0000 


003C 


RECEIVING 


EQU 


MODEM ON+1 


1 


0000 


003D 


XM1TTING 


EQU 


RECEIVING+I 


1 


0000 


003E 


S MODEM 


EQU 


XMITTING+1 


1 


0000 


003F 


S LINE 


EQU 


S MODEM+1 


1 


0000 


0040 


S HANDSH 


EQU 


S LINE+1 


1 


0000 


0041 


X0"N CHAR 


EQU 


S~HANDSH+1 


1 


0000 


0042 


XOFF CHAR 


EQU 


X0"N CHAR+1 


1 


0000 


0043 


enq Char 


EQU 


XOFF CHAR+1 


1 


0000 


0044 


ACK CHAR 


EQU 


ENQ CHAR+1 


1 


0000 


0045 


CONV CHAR 


EQU 


ACK CHAR+1 


1 


0000 


0046 


Q DESCRIPT 


EQU 


CON? CHAR+1 




0000 


0046 


Q SIZE 


EQU 


Q DESCRIPT 


2 


0000 


0048 


Q IN 


EQU 


Q~DESCRIPT+2 


2 


0000 


004fl 


Q OUT 


EQU 


Q DESCRIPT+4 


2 


0000 


004C 


Q BUFFER 


EQU 


Q DESCRIPT+6 


136 



offset mnemonics 
- word boundary problems) 
ess is assumed to be EVEN 
VAIL_0FF 

»xx»xxxxxxxx*xxxxxxx*xxxxx»xx**»xxxxxxxxxxxx»xxxxxxxxxx 



pending error number 



modem status copy 

line status copy 

contains current handshake 



160 



the rest is internal buffer 
total space used 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 

* constants (mnemonics) 
x 

XXXXXXXXXXXXXXXXXXX¥X»XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX»XX»XXXXXX**XXXXXXX* xxxxxx 

160 Pascal declaration of size of misc. spa 

TEMP SIZE-Q BUFFER+AVAIL OFF 

17 ~ ~ ASCII CHARACTER 17 

19 ASCII CHARACTER 19 

5 ASCII CHARACTER S 

6 ASCII CHARACTER 6 
95 ASCII CHARACTER 95 
314 receive buffer overflow error 
80 hysteresis for ENQ/ACK handshake 
40 when to send XOFF 
BUFFER_SIZE-XOFF_SIZE 
19 maximum control/status register number 



0000 


OOAO 


TEMP SIZE 


EQU 


0000 


0088 


BUFFFR SIZE 


EQU 


0000 


0011 


DCl 


EQU 


0000 


0013 


DC3 


EQU 


0000 


0005 


ENQ 


EQU 


0000 


0006 


ACK 


EQU 


0000 


005F 


UNDERSCORE 


EQU 


0000 


013A 


OVERRUN ERROR 


EQU 


0000 


0050 


ack sizr 


EQU 


0000 


0028 


XOFF SIZE 


E Q J 


0000 


0060 


XON SIZE 


EQU 


0000 


0013 


REG MAX 


EQU 
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508 








a**************************************************************************** 




509 








* 








510 








* 


driver 


initialization 




Sll 








* 








512 








***»********************#**************************************************** 




513 
















514 




0000 


0002 


RS_ 


.RS_INIT 


EQU * 




SIS 
















516 








* 








517 








* 


Pascal inte 


rface overhead 




518 








* 








519 


00000002 


205F 






MOVEA.L 


(SP)+,AO * get return address 




520 


00000004 


24SF 






MOVER. L 


(SPi+,A2 » get temp address 
C ADR(A2),A1 * get card address 




521 


00000006 


226P 


0020 




MOVER. L 




522 


O0OO000A 


4850 






PER 


(A"0) * restore return address 




523 








X 








S24 








* 


Assembler initialize entry point 

ON ENTRY: Al and A2 are set to card address and 




525 








* 




526 








* 




temp space address (respectively) 




527 








* 








528 
















529 




0000 


OOOC 


ASM_IN2T 


EQU * 




530 
















531 








* 








532 








* 


Stop transfers and Reset the card 




533 








* 








534 
















535 


OOOOOOOC 


4EB9 
0000 


0000 




JSR 


ABORT_IO * stop transfers 




536 








* 




-- RESET CARD -- 




537 


00000012 


S0E9 


0001 




ST 


RESET REG(Al) * write to reg 1 




538 


00000016 


7020 






MOVEQ 


#32, D6" * wait 25 us 




539 


00000018 


51C8 


FFFE 




DBRA 


DO,* * ( not yet timed -- #32 was initial est.) 




540 
















541 








* 








542 








* 


global 


attribute initialization 




543 








* 








544 








* 




-- init queue descriptors -- 




545 


0000001C 


6100 


09B2 




BSR 


INIT_QUEUE 




546 








* 




-- init pseudo registers -- 




547 


00000020 


422A 


0039 




CLR.B 


XIN ACT(A2) 
IN TSR(R2) 
S FRR0R(R2) 




548 


00000024 


422A 


0038 




CLR.B 




549 


00000028 


42RA 


0034 




CLR.L 




550 


0000002C 


422A 


003E 




CLR.B 


S M0DEM(R2) 




551 


00000030 


422A 


003F 




CLR.B 


S LINEIR2) 
CONNECTED (A2) 
M0DEM_0N(A2) 




552 


00000034 


422A 


003R 




CLR.B 




S53 


00000038 


422A 


003B 




CLR.B 




554 








* 




-- set flags -- 




555 


0000003C 


157C 
003C 
157C 
003D 


0001 




MOVE . B 


#1,RECEIVING(A2) 




556 


00000042 


0001 




MOVE.B 


#1,XMITTING(R2) 




557 






X 




-- default characters -- 




558 


00000048 


1S7C 

0041 


0011 




MOVE.B 


#DC1,X0N_CHAR(R2) 




559 


0000004E 


157C 
0042 


0013 




MOVE.B 


#DC3,X0FF_CHRR(A2) 
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560 


00000054 


157C 
0043 


0005 




MOVE.B 


#ENQ,ENQ_CHAR(A2) 




561 


0000005A 


157C 
0044 


0006 




MOVE.B 


#ACK,RCK_CHAR(A2) 




562 


00000060 


157C 
0045 


005F 




MOVE.B 


#UNDERSC0RE,C0NV_CHRR(A2) 




563 
















564 








* 








565 








* 


Set default 


s from the switches (done after attribute initialization 




566 








* 




just in case the card is not completely reset already) 




567 








* 








568 








* 




-- set baud rate from switches -- 




569 


00000066 


1029 


0005 




MOVE.B 


BAUD SU(fll),D0 * read switches 




570 


0000006R 


E308 






LSL.B 


#1,D0~ * multiply by two to get to words 
#$1E,00 * mask 




571 


0000006C 


0200 


001E 




ANDI.B 




572 


00000070 


4880 






EXT 


DO * 




573 








* 








574 


00000072 


41 FA 


002C 




LEA 


BRUD.AO * aO := pointer to baud table 
DO,AO * entry 




57S 


00000076 


DOCO 






RDDA 




576 








* 








577 


00000078 


08E9 
0017 


0007 




BSET 


#7,LINE_C0NT(A1) * set DLAB to get to divisor latches 




578 


0000007E 


1358 


0013 




MOVE.B 


(A0J+.DIV1 (Rl) * 
(AO) ,DIV0(A1) » 




579 


00000082 


1350 


0011 




MOVE.B 




580 
















S81 
















582 








* 




-- SET LINE CHARACTERISTICS -- 




583 


00000086 


1029 


0007 




MOVE.B 


LINE SU(A1),D0 * get handshake and line status defaults 




584 


0000008R 


1200 






MOVE.B 


DO.DT » 

#$3F.D0 * mask and set default line status 

DO, LINE CONT(Al) * (also restores dlab) 




585 


0000008C 


0200 


003F 




RNDI .B 




586 


00000090 


1340 


0017 




MOVE.B 




587 








* 




-- SAVE HANDSHAKE -- 




588 


00000094 


0201 


OOCO 




ANDI.B 


#$C0,D1 * handshake is top two bits 
#S,D1 * adjust it (for jump tables) 




589 


00000098 


EA09 






LSR.B 




590 


0000009A 


1541 


0040 




MOVE.B 


D1,S_HANDSH(R2) * save it 




591 
















S92 


0000009E 


4E75 






RTS 






593 








* 








594 








* 


baud rate table (for switches) 




595 








* 








596 


OOOOOOflO 


OCOO 




BAUD DC.U 


3072 * 50 Baud 




597 


O0OO0OA2 


0800 






DC.U) 


2048 * 75 




598 


O0OO0OR4 


0574 






OC.UI 


1396 * 110 




599 


O0000OR6 


0476 






DC.U 


1142 * 134.5 




600 


O0OOOOR8 


0400 






DC.U 


1024 » 150 




601 


OOOOOOfifl 


0300 






DC.U 


768 * 200 




602 


OOOOOOAC 


0200 






DC.U 


512 * 300 




603 


OOOOOORE 


0100 






DC.U 


256 * 600 




604 


OOOOOOBO 


0080 






DC.U 


128 * 1200 




605 


OOOOO0B2 


0055 






DC.U 


85 * 1800 




606 


000000B4 


0040 






DC.U 


64 * 2400 




607 


000000B6 


002B 






DC.U 


43 * 3600 




608 


OOOOO0B8 


0020 






DC.U 


32 * 4800 




609 


OOOOOOBfi 


0015 






DC.U 


21 * 7200 




610 


OOOOOOBC 


0010 






DC.U 


16 * 9600 




611 


OOOOOOBE 


0008 






DC.U 


8 * 19200 
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614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 



***************************************************************************** 

* 

* read byte 

* 

***************************************************************************** 

0000 0OCO RS_RS_RDB EQU * 



OOOOOOCO 205F 

O0OO0OC2 265F 

000000C4 24SF 

OO0O0OC6 226R 0020 

OOOOOOCfl 4850 



OOOOOOCC 6100 0728 
OOOOOODO 6100 07R2 
OOOO00D4 6100 06DE 

00000008 6100 07C8 
OOOOOODC 1682 
OOOOOODE 4E75 



Pascal interface overhead 



MOVER. L 
MOVER. L 
MOVER. L 
MOVER. L 
PER 



SP)<-,RO 

SP +,R3 

SP]+,R2 
. RDR(R2),R1 
(SO) 



get return address 
get VRR address 
get temp address 
get card address 
restore return address 



Card overhead (any of the three can do an ioescape) 



BSR 
BSR 
BSR 



CONNECT 
CHECK_ERROR 
CHECK XFER IN 



BSR UflIT GET 
MOVE.B D2,(B3) 
RTS 



make sure the card is active 
check for errors saved by ISRs 
make sure no input transfers active 

get character with wait 
return the character 



PRGE 

64 3 
644 
645 
64 6 
647 
64 8 
64 9 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
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***************************************************************************** 

* 

* write byte 

* 

***************************************************************************** 

0000 OOEO RS_RS_UTB EQ.U * 



Pascal interface overhead 



OOOOOOEO 
OO0O00E2 
OO0OO0E4 
OO0OOOE6 
OOOOOOEfi 


20SF 
161F 
245F 

226A 
4850 


0020 




MOVER. L 
MOVE.B 
MOVER. L 
MOVER. L 
PER 


(SP)*,RO 
(SP +,D3 
SP}*,A2 
C RDR(R2),fll 
(SO) 








* 
* 


Card overhe 


ad 


OOOOOOEC 
OOOOOOFO 
OO0000F4 


6100 
6100 
6100 


0708 

0782 
06C6 


BSR 
BSR 
BSR 




CONNECT 
CHECK ERROR 
CHECK_XFER_OUT 


000000F8 
OOOOOOFC 


6100 
4E75 


079R 




BSR 
RTS 




UAIT_SEND 



get ret u rn add ress 
get char to be written 
get temp address 
get card address 
restore return add ress 



autoconnect 

check for errors found by ISRs 

make sure no output transfers are active 

send the character 
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671 
672 
673 
674 
675 
676 
677 
678 
678 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
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***************************************************************************** 

* 

* read word 

» 

0000 OOFE RS RS RDU EQU * 



OOOOOOFE 205F 
00000100 265F 
00000102 24SF 
00000104 226A 0020 
00000108 4850 



0000010A 6100 06ER 

0000010E 8100 0764 

00000112 6100 06A0 

00000116 6100 078A 

0000011A E14A 

0000011C 6100 0784 

00000120 3682 

00000122 4E7S 



MOVEA.L (SP)+,AO 
MOVER. L SP +,A3 
MOVER. L (SPJ+,A2 
MOVER. L C ADR(A2),A1 
PEA (A~0) 



get return address 
get VRR address 
get temp address 
get card address 
restore return address 



Card overhead (any of the three can do an ioescape) 



BSR 
BSR 
BSR 

BSR 

LSL.U 

BSR 

MOVE.UI 

RTS 



CONNECT 
CHECK ERROR 
CHECK_XFER_IN 

UAIT GET 
#8,02" 
WAIT GET 
D2, (A"3) 



make sure the card is active 

check for errors saved by ISRs 

make sure no input transfers are active 

get character with wait 
shift first character 
get second character 
return the word 
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***************************************************************************** 

* 

* write word 

************* **************************************************************** 

0000 0124 RS RS UTU EQU * 



699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 



00000124 205F 

00000126 361F 

00000128 245F 

0000012A 226A 0020 

0000012E 48S0 



00000130 6100 06C4 
00000134 6100 073E 
00000138 6100 0682 

0000013C E05B 
0000013E 6100 0754 
00000142 EOSB 
00000144 6100 074E 

00000148 4E7S 



MOVEA.L 

MOVE.W 

MOVEA.L 

MOVEA.L 

PEA 



SP)+,R0 

SP +,03 

SP)+,A2 
. ADR(A2),A1 
(HO) 



get return address 
get word to be written 
get temp address 
get card address 
restore return address 



Card overhead (any of the three can do an ioescape) 



BSR 
BSR 
BSR 

ROR.U 
BSR 

ROR.W 
BSR 

RTS 



CONNECT 

CHECK_ERROR 

CHECK_XFER_OUT 

#8,D3 
UAlT SENO 
#8,D3" 
UAIT SEND 



make sure the card is active 

check for errors saved by ISRs 

make sure no output transfers are active 

position the first character 
send it 

position the second character 
send it 
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726 








***************X**********X**X**X***********XX*X*********X******************* 




727 








* 












728 
729 








* 




read status 
























730 








* 




CONVENTION: A3 -- place to 


put the result (word sized) 




731 








* 












732 








***************************************************************************** 




733 




















734 




oooo 


014A 


RS 


*S_RDS 


EQU * 






735 








* 












736 








* 


Pascal Interface Overhead 






737 








* 












738 




















739 


0000014A 


205F 








MOVER. L 


(SP)+,A0 


get return address 




740 


0000014C 


26SF 








nOVER.L 


SP +,A3 


get VAR address 




741 


OO0OO14E 


321F 








hove.ui 


SP *,D1 


get register number 




742 


00000150 


245F 








rtOVER.l 


(SP)* ,02 


get temp address 




743 


00000152 


226A 


0020 






MOVER. L 


C PDR(R2) ,fll 


get card address 




744 
745 
746 


00000156 


4850 








PEA 


(SO) 


restore return address 










X 












747 








* 


Check for 1 


egal registers and jump to correct register handler 




748 








* 












749 




















7S0 


00000158 


4A41 








TST.U 


Dl 


check for negative register number 




751 


0000015A 


6D3C 








BLT.S 


STS ERROR 


if so goto common ioescape routine 
check for too large register number 




752 


0000015C 


B27C 


0013 






CMP.U 


#RE5 MRX.D1 
STS_ERROR 




753 
754 
7SS 


00000160 


6E36 








BGT.S 






00000162 


4253 








CLR.U 


#1,A3 


clear the top half of the return word 
point a3 to lower half byte of return word 




756 


00000164 


528B 








ADDQ.L 




757 




















758 


00000166 


E349 








LSL.U 


tl.Dl 

STS TRBLE(D1),D1 


get ready for (word) table jump 




759 


00000168 


323B 


1006 






MOVE.U) 


get offset from status table 




760 


0000016C 


4EFB 


1002 






JMP 


STS_TRBLE(D1 ) 


do the indexed jump 




761 




















762 




0000 


0170 


STS. 


.TABLE 


EQU » 






763 


00000170 


002E 








DC.U 


STS O-STS TABLE 


ID register 




764 


00000172 


0034 








DC.U 


STS 1-STS TABLE 


Interrupt status register 




765 


00000174 


003A 








DC.U 


STS 2-STS~TABLE 


Busy bits register 




766 


00000176 


006C 








DC.U 


STS~3-STS~TABLE 


Baud rate 




767 


00000178 


00D4 








DC.U 


STS~4-STS"TABLE 


Character control register 




768 


0000017A 


00E8 








DC.U 


STS 5-STS TABLE 


Modem control register 




769 


0000017C 


OOEE 








DC.U 


STS 6-STS TABLE 


Data in register 




770 


0000017E 


0112 








DC.U 


STS 7-STS TABLE 


Optional circuits register 
Interrupt Enable Mask register 




771 


00000180 


one 








DC.U 


STS 8-STS TABLE 




772 


00000182 


0122 








DC.U 


STS 9-STS~TABLE 


Interrupt Cause register 




773 


00000184 


0128 








DC.U 


STS~10-STS TABLE 


UART Status register 




774 


00000186 


0152 








DC.U 


STS 11-STS TABLE 


Modem Status register 




775 


00000188 


0172 








DC.U 


STS~12-STS TABLE 


Connect/Disconnect register 




776 


0000018A 


0178 








DC.U 


STS 13-STS~TABLE 


Hardware handshake register 




777 


0000018C 


017E 








OC.U 


STS~14-STS~TABLE 


Error status register 




778 


0000018E 


0196 








DC.U 


STS"1S-STS TABLE 


Current Xon Character 




779 


00000190 


019C 








DC.U 


STS 16-STS TABLE 


Current Xoff Character 




780 


00000192 


01A2 








DC.U 


STS 17-STS TABLE 


Current ENQ Character 




781 


00000194 


01A8 








DC.U 


STS~18-STS TABLE 


Current ACK Character 




782 


00000196 


01AE 








DC.U 


STS 19-STS TABLE 


Current FE/PE convert Character 
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783 




















784 




0000 


0198 


STS 


.ERROR 


EQU « 






78S 


00000198 


7013 








MOVEQ 


#BAD RDS.DO 






786 


0000019A 


6000 


062E 






BRA 


IOESC"APE 


error number is passed in dO 




787 




















788 




0000 


019E 


STS 


.0 




EQU * 


-- ID register -- 




789 


0000019E 


16P9 


0001 






flOVE.B 


ID_REG(A1),(A3) 


get id from card 




790 
791 


000001R2 


4E75 








RTS 


























792 




0000 


01A4 


STS 


.1 




EQU * 


-- Interrupt Status -- 




793 


000001R4 


16A9 


0003 






MOVE.B 


INTR_SU(A1), (A3) 


get result from card 




794 


000001A8 


4E75 








RTS 








795 




















796 




0000 


01AA 


STS 


.2 




EQU * 


-- "Busy Bits" -- 




797 


000001HA 


1E29 


0003 






MOVE.B 


INTR SU(A1) ,D7 


--> interrupt enabled bit (1) 




798 


000001RE 


CE3C 


0080 






RND.B 


#S80,D7 
t6,D7 






799 


000001B2 


ECOF 








LSR.B 


move it to correct position 




800 




















801 


000001B4 


4APR 


0024 






TST.L 


8UFI 0FF(A2) 


--> transfer active bit (0) 




802 


000001B8 


6606 








BNE.S 


SET B"IT 






803 


OOOOOIBA 


4ARR 


0028 






TST.L 


BUFO" 0FF(A2) 






804 
805 

806 


000001BE 


6704 








BEQ.S 


D0_BTT_4 


neither transfer is active 






0000 


01C0 


SET 


.BIT 





EQU * 


set transfer active bit 




807 
808 
809 


000001CO 


08C7 


0000 






BSET 


#0,D7 








0000 


01C4 


D0_ 


3IT_ 


4 


EQU * 


— > not transmitting bit (4) 




810 


000001C4 


4A2H 


003D 






TST.B 


XMITTING(A2) 






811 


000001C8 


6604 








BNE.S 


DO BIT S 






812 
813 
814 


000001CA 


08C7 


0004 






BSET 


#4,D7 








0000 


01CE 


DO- 


3IT_ 


5 


EQU » 


--> not receiving bit (5) 




815 


000001CE 


4A2R 


003C 






TST.B 


RECEIVINGS) 






816 


000O01D2 


6604 








BNE.S 


END STS 2 






817 
818 
819 


000001D4 


08C7 


0005 






BSET 


#5,D~7 








0000 


01D8 


END 


.STS 


2 


EQU * 


store away result 




820 


000001D8 


1687 








MOVE .8 


07, (A3) 






821 
822 


000001DA 


4E7S 








RTS 


















823 




0000 


01DC 


STS 


.3 




EQU * 


-- Baud rate -- 




824 


0000010C 


S38B 








SUBQ.L 


#1,A3 


this routine returns a word 




825 








* 












826 








* 


Get 


divisor 


(a critical section 


since it uses DLRB) 




827 








* 












828 


000001DE 


1E29 


0003 






MOVE.B 


INTR SU(A1),D7 


save card interrupt status 




829 

830 
831 


000001E2 


4229 


0003 






CLR.B 


INTR_SU(A1) 


disable interrupts 




000001E6 


08E9 


0007 






BSET 


*7,LINE_C0NT(A1) 


get access to divisor latches 








0017 
















832 


000001EC 


1029 


0013 






MOVE ,B 


DIVl(Al) ,00 


get upper half of divisor 




833 


000001FO 


E148 








LSL.U 


#8,00 






834 


000O01F2 


1029 


0011 






MOVE.B 


DIVO(Al) ,D0 
#7,LINE_C0NT(A1) 


get lower half of divisor 




835 


000001F6 


08A9 


0007 






BCLR 


reset DLA8 so normal operation can resume 








0017 
















83$ 




















837 


000001FC 


1347 


0003 






MOVE.B 


D7,INTR_SU(A1) 


restore inter rupt s 
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838 

839 
840 
841 
842 
84 3 
844 
84S 
846 
847 
84 8 
849 
8S0 
8S1 
8S2 
853 
8S4 
855 
856 
857 
858 
859 
860 
861 
862 
863 



865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 



889 
890 
891 
892 
893 



00000200 
00000202 
00000204 
00000206 

0000020a 

0000020C 
00000210 
00000212 
00000216 
00000218 
0000021C 
0000021E 
00000222 
00000224 
00000228 
0000022A 
0000022E 
00000230 
00000234 



4A40 
6602 
4E75 
B07C 
6606 
36BC 
4E75 
B07C 
6606 
36BC 
4E75 
B07C 
6606 
36BC 
4E75 
B07C 
6606 
36BC 
4E75 
0000 



223C 
5800 
6100 
3681 
4E75 

0000 
1E29 
CE3C 



00SS 
0708 
004D 
07D0 
002B 
0E10 
0015 
1C20 
0236 

0002 
0SA2 



Check for special divisors which 

TST.U DO 
BNE.S IS8S 
RTS 
S CMP.U #85, DO 
BNE.S IS77 
MOVE.U #1800, (A3) 
RTS 
CMP.U #77, DO 
BNE.S IS43 
MOVE.U #2000, (A3) 
RTS 
CMP.U #43,00 
BNE.S IS21 
MOVE.U #3600, (A3) 
RTS 
IS21 CMP.U #21, DO 

BNE.S REGULAR 
MOVE.U #7200, (A3) 
RTS 
REGULAR EQU » 
* 

* Compute baud rate by: baud_rate 
* 

MOVE.L #153600, Dl 



division is inexact 

- infinite baud rate ? 



return zero baud rate 
- 1800 baud ? - 



IS77 



IS43 



0244 

0017 
003F 



0000023C 
00000240 
00000242 



00000244 
00000248 



0000024C 1C2A 0040 
000002SO EBOE 

00000252 8E06 
00000254 1687 
00000256 4E75 



0000 0258 STS_5 
00000258 16A9 0019 
0000025C 4E75 



BSR 

MOVE.U 
RTS 



RDIVU 
Dl, (A3) 



- 2000 baud 



3600 baud ? - 



7200 baud ? - 



(freq/16) / divisor 



do the division 

store away the answer (dl) 



STS 4 EQU * 

MOVE.B LINE C0NT(A1),D7 

AND.B #$3F,D7 

MOVE.B S HPNDSH(A2) ,06 

LSL.B #S",D6 



OR.B 

MOVE.B 

RTS 



D6.D7 
D7, (A3) 



-- Character control -- 
get line control 
remove top two bits 

get handshake 

move it to top two bits 

combine to form register result 



MOVE.B 
RTS 



EQU * 
M0DEM_C0NT(A1), (A3) 



-- Modem control -- 

read directly from the UART 



0000 02SE STS_6 
0000025E 8100 0614 BSR 



00000262 6100 077C BSR 
00000266 6714 BEQ.S 



00000268 1A29 0003 MOVE.B 
0000026C 4229 0003 CLR.B 



EQU * 
CHECK_ERROR 

QUEUE EMPTY 
READJJART 

INTR_SU(A1),D5 
INTR_SU(A1) 



00000270 6100 0642 



-- Data in -- 

check for errors trapped by ISRs 

read from buffer if not empty 
else read directly from UART 

save interrupt state 

disable card interrupts for critical section 

(get character with handshake) 



894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
94 2 
943 
944 
945 
94 6 
94 7 
94 8 
94 9 
M5U 
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00000274 



1/4/82 16:25:44 
1682 



027C READ 
0011 



0282 STS 
0005 



00000276 
0000027A 



0000027C 
00000280 



00000282 
00000286 
00000288 
0000028A 



0000028C 
00000290 



00000292 
00000296 



00000298 
0000029C 



000002A0 
000002A4 



000002A8 1347 0003 



1345 
4E75 
0000 
16A9 
4E75 

0000 
1E29 
E80F 
1687 
4E75 

0000 
16A9 
4E7S 

0000 
16A9 
4E7S 

0000 
1E29 
4229 



RS232 DRIVERS -- STATUS 

MOVE.B D2,(A3) 

MOVE.B D5,INTR SU(A1) 
RTS 

UART EQU * 

MOVE.B OATA(Al), (A3) 
RTS 



restore interrupt state 



MOVE.B 
LSR.B 
MOVE.B 
RTS 



EQU * 

BAUD SU)(A1),D7 

#4,D7 

D7, (A3) 



-- Optional circuits -- 

read from the card hardware 

right justify (and get rid of baud info) 



028C 
0013 


STS_8 


MOVE.B 
RTS 


EQU * 

INTR_EN(A1) 


(A3) 


-- interrupt enable mask -- 
read directly from the UART 


0292 
0015 


STS_9 


MOVE.B 
RTS 


EQU * 
INTR_ID(A1) 


(A3) 


-- interrupt cause -- 

read directly from the UART 



0298 STS_ 

0003 

0003 



1C2A 003F 
422A 003F 



EQU * 
MOVE.B INTR SU(A1) , D7 
CLR.B INTR_SU(A1) 

MOVE.B S_LINE(A2) ,D6 
CLR.B S_LINE(A2) 

MOVE.B D7,INTR_SU(A1) 



000002AC 
000002B0 

000002B4 
000002B8 
000002BA 

000002BE 
000002CO 



000002C2 
000002C6 



000002CA 
0000O2CE 



CC3C 001E 
8C29 001B 

6100 072A 

6704 

08C6 0000 

0000 02BE DONT 

1686 

4E75 



0000 02C2 STS_ 
1E29 0003 
4229 0003 

1C2A 003E 
422A 003E 



AND.B 
OR.B 

BSR 
BEQ.S 
BSET 
T 
MOVE.B 
RTS 



#S1E,D6 
LINE_STAT(A1),D6 

QUEUE EMPTY 
DONT SET 
#0,D6" 
EQU » 
D6, (A3) 



-- UART status -- 

save card interrupt condition 

disable interrupts for critical section 

get accumulated line status 

reset it since it is read destructive 

restore interrupts (end critical section) 

only use the read destructive bits 
combine it with the current status 

use internal buffer to determine bit 

set receive buffer full bit 



MOVE.B 
CLR.B 



MOVE.B 
CLR.B 



,D7 



EQU * 

INTR SU(A1) 

INTR SU Al 



S_MODEM(A2),D6 
S_M0DEM(A2) 



000002D2 1347 0003 



MOVE.B D7,INTR_SU(A1) 



000002D6 
000002DA 
000002DE 

000002EO 



CC3C OOOF 
8C29 O01D 
1686 
4E75 



AND.B 
OR.B 
MOVE.B 
RTS 



tiS0F,D6 

MODEM STAT (Al) ,D6 

D6,(A3") 



-- modem status -- 

save card interrupt condition 

disable interrupts for critical section 

get accumulated copy of modem status 
clear it since it is read destructive 

restore interrupts (end critical section) 

only use the read destructive bits 
combine it with the current status 



0000 02E2 STS 
J002E2 16AA 003A 



MOVE.B 



EQU * 
C0NNECTED(A2), (A3) 



-- connect/disconnect -- 
get the pseudo-register 
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951 


000002E6 


4E75 








RTS 








952 
953 






















0000 


02E8 


STS. 


.13 




EQU * 


-- hardware handshake register -- 




954 


000002E8 


16PA 


003B 






MOVE .B 


M0DEM_0N(A2) , (A3) 






955 


000002EC 


4E75 








RTS 








956 

957 






















0000 


02EE 


STS. 


.14 




EQU * 


-- current error status -- 




958 


000002EE 


1E29 


0003 






MOVE.B 


INTR SUI(A1 1,07 


save interrupt state 




959 
960 
961 


000002F2 


4229 


0003 






CLR.B 


INTR_SU(A1 ) 


disable interrupts 




000002F6 


376R 


0036 






MOVE.U 


S_ERR0R+2(A2) ,-1 (A3) 


get (lower word of) the error 








FFFF 
















962 








* 








this is a word register! 




963 


000002FC 


42ftfl 


0034 






CLR.L 


S_ERR0R(A2) 


the read is destructive 




964 




















965 


00000300 


1347 


0003 






MOVE.B 


D7,INTR_SU(A1) 


restore interrupt state 




966 


00000304 


4E75 








RTS 








967 






























968 




0000 


0306 


STS. 


.15 




EQU * 


-- Current Xon character -- 




969 


00000306 


16AA 


0041 






MOVE.B 


X0N_CHAR(A2) , (A3) 






970 


0000030A 


4E75 








RTS 








971 






























■ 972 




0000 


030C 


STS_ 


.16 




EQU * 


-- Current Xoff character -- 




973 


0000030C 


16AH 


0042 






MOVE.B 


X0FF._CHAR(A2) , (A3) 






974 


00000310 


4E7S 








RTS 








975 






























976 




0000 


0312 


STS. 


.17 




EQU * 


-- Current ENQ character -- 




977 


00000312 


16AA 


0043 






MOVE.B 


ENQ_CHAR(A2) , (A3) 






978 


00000316 


4E75 








RTS 








979 






























980 




0000 


0318 


STS. 


.18 




EQU * 


-- Current ACK character -- 




981 


00000318 


16AH 


0044 






MOVE.B 


ACK_CHAR(A2) , (A3) 






982 


0000031C 


4E75 








RTS 








983 






























984 




0000 


031E 


STS_ 


19 




EQU * 


-- Current FE/PE convert character -- 




985 


0000031E 


16AA 


0045 






MOVE.B 


C0NV_CHAR(A2), (A3) 






986 


00000322 


4E75 








RTS 
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989 








******************************************************x**x***X*************** 




990 








* 












991 
992 








* 




wite control 
























993 








* 




CONVENTION: DO. LI -- value of 


the control 




994 








* 












995 








***************************************************************************** 




996 




















997 




0000 


0324 


RS_RS UTC 


EQU « 






998 




















999 








* 












1000 








* 


Pascal Inte 


rface Overhead 






1001 








* 












1002 




















1003 


00000324 


205F 








MOVER. L 


(SP)+,A0 


get return address 




1004 


00000326 


301F 








MOVE.U 


SP *,D0 


get value 




1005 


00000328 


321F 








MOVE.U 


SP +.D1 


get register number 




1006 


0O00O32A 


24SF 








MOVEA.L 


SPJ>,A2 


get temp address 




1007 


0O00032C 


22CP 


0020 






MOVEA.L 


C A0R(A2) ,A1 


get card address 




1008 


00000330 


4850 








PEA 


(PfO) 


restore return address 




1009 




















1010 








* 












1011 








* 


Check for 1 


egal registers and jump 


to correct register handler 




1012 








* 












1013 




















1014 


00000332 


4A41 








TST.U 


Dl 


check for negative register number 




1015 


00000334 


6B38 








BMI .S 


CONT ERROR 


if so goto common ioescape routine 
check for too large register number 




1016 


00000336 


B27C 


0013 






CMP. Id 


#REG MAX.D1 
CONT_ERROR 




1017 


0000033A 


6E32 








BGT.S 






1018 




















1019 


0000033C 


E349 








LSL.U 


#1 ,D1 


get ready for (word) table jump 




1020 


0000033E 


323B 


1006 






MOVE.U 


CONT TABLE(Dl) ,D1 


get offset from status table 




1021 


00000342 


4EFB 


1002 






JMP 


C0NT_TABLE(D1) 


do the indexed jump 




1022 




















1023 




0000 


0346 


CONT 


_TABLE 


EQU * 






1024 


00000346 


002E 








DCIJ 


CONT 0-CONT TABLE 


Reset 




1025 


00000348 


0036 








DC. Id 


CONT l-CONT TABLE 


Break 




1026 


0000034A 


0028 








DC. Id 


CONT ERROR-CONT TABLE 


Register 2 Undefined 




1027 


0OOOO34C 


005C 








DC. Id 


CONT 3-CONT TABUE 


Baud rate 




1028 


0000034E 


0098 








DC. LI 


CONT 4-CONT TABLE 


Character control register 




1029 


00000350 


OOCC 








DC.U 


CONT S-CONT TABLE 


Modem control register 




1030 


00000352 


002 








DC.U 


CONT 6-CONT TABLE 


Data out register 




1031 


00000354 


OODC 








DC.U 


CONT 7-CONT TABLE 


Optional circuits register 




1032 


00000356 


0028 








DC.U 


CONT ERROR-tONT TABLE 


Register 8 Undefined 




1033 


00000358 


0028 








DC.U 


CONT ERROR-CONT TABLE 


Register 9 Undefined 




1034 


000003SA 


0028 








DC.U 


CONT ERROR-CONT TABLE 


Register 10 Undefined 




103S 


000003SC 


0028 








DC.U 


CONT ERROR-CONT TABLE 


Register 11 Undefined 




1036 


000003SE 


C0E4 








DC.U 


CONT 12-CONT TAffLE 


Connect/Disconnect register 




1037 


00000360 


00F8 








DC.U 


CONT 13-CONT TABLE 


Hardware handshake register 




1038 


00000362 


0108 








DC.U 


CONT 14-CONT TABLE 


Soft reset register 
Redefine Xon Character 




1039 


00000364 


0112 








DC.U 


CONT 1S-C0NT TABLE 




1040 


00000366 


0118 








DC.U 


CONT 16-CONT TABLE 


Redefine Xoff Character 




1041 


00000368 


01 IE 








DC.U 


CONT 17-CONT TABLE 


Redefine ENQ Character 




1042 


C00O036A 


0124 








DC.U 


CONT 18-CONT TABLE 


Redefine ACK Character 




1043 


0000036C 


012A 








DC.U 


C0NT_19-C0NT_TABLE 


Redefine FE/PE convert Character 




1044 




















1045 




0000 


036E 


CONT 


_ERROR 


EQU * 
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1046 


0000036E 


7013 






tlOVEQ 


tBAD RDS,DO 






1047 


00000370 


6000 


0458 




BRP 


IOESCflPE 


error number is passed in dO 




1048 


















1049 




0000 


0374 


CONT_0 




EQU * 


— reset -- 




1050 


00000374 


4R40 






TST.U 


DO 






1051 


00000376 


6600 


FC94 




BNE 


ASM_INIT 


initialize if any bit is set 




1052 


0000037R 


4E7S 






RTS 








1053 


















1054 




0000 


037C 


C0NT_1 




EQU * 


-- send break -- 




1055 


0000037C 


4R40 






TST.U 


DO 






1056 


0000037E 


6720 






BEQ.S 


EXIT CI 


no-op if control value is zero 




1057 








* 










1058 








* set 


and hold break for 400ms 






1059 








* 










1060 


00000380 


08E9 
0017 


0006 




BSET 


#6,LINE_C0NT(H1) 


set the break bit in UART 




1061 


00000386 


203C 
38C0 


0002 




flOVE.L 


#145600,00 


set 400 ms loop counter 




1062 




0000 


038C 


WRIT_BREfiK 


EQU * 






1063 


0000038C 


5380 






SUBQ.L 


#1,D0 






1064 


0000038E 


6RFC 






BPL.S 


UAlT BREAK 


hold the break until 400ms passed 




1065 








* 










1066 








* rel 


sase break and wait 60ms for break to clear 




1067 








* 










1068 


00000390 


08A9 
0017 


0006 




BCLR 


#6,LINE_C0NT(A1) 


clear the break bit in URRT 




1069 


00000396 


203C 
5550 


0000 




MOVE.L 


#21840, DO 






1070 




0000 


039C 


UAIT_BREAK2 


EQU * 






1071 


0000039C 


S380 






SUBQ.L 


#1,D0 
UAIT_BREBK2 






1072 


0000039E 


6RFC 






BPL.S 


wait until counter is negative 




1073 
1074 


000003A0 


4E75 




EXITJ31 


RTS 
























1075 




0000 


03A2 


CONT 3 




EQU * 


-- Baud rate — 




1076 








* 










1077 








* check for overflow -- a baud 


rate with a resulting divisor more than 




1078 








* 




sixteen 


bits long. 




1079 








* (underflow 


is not checked because it cannot be generated with a word 




1080 








* length baud rate) 






1081 








* 










1082 


000003R2 


B07C 


0005 




CMP.W 


#S,DO 


5 is the lowest baud rate possible 




1083 


000003P6 


6C00 


0008 




BGE 


CALC_DIV 






1084 


















1085 


000003AA 


7017 






MOVEQ 


#10 MISC,DO 


value out of range -- io misc error 




1086 


000003RC 


6000 


041C 




BRA 


I0E5CAPE 






1087 








* 










1088 








* cal 


culate c 


ivisor : div = (freq/16) / baud_rate 




1089 








X 










1090 




0000 


03B0 


CALC_DIV 


EQU * 






1091 


00000380 


223C 
5800 


00O2 




HOVE . L 


#153600,01 


dl := freq/16 




1092 


000003B6 


6100 


0428 




BSR 


RDIVU 


dl.w := dl.l / dO.w ( freq/16 / baud ) 




1093 








* 










1094 








* move the di 


visor to hardware 


(critical section: uses DLAB) 




1095 








* 










1096 


000003BR 


1E29 


0003 




MOVE.B 


INTR SU(A1),D7 


save card interrupt state 




1097 


000003BE 


4229 


0003 




CLR.B 


INTRlSUI(Al) 


disable card interrupts 
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1098 


















1099 


000003C2 


08E9 
0017 


0007 




BSET 


#7,LINE_C0IMT(A1) 


set DLAB to get access to divisor latches 




1100 


000003C8 


1341 


0011 




MOVE.B 


D1,DIV0(A1) 


set lower half of divisor latch 




1101 


000003CC 


E049 






LSR.U 


#8,D1 






1102 


000003CE 


1341 


0013 




MOVE.B 


D1,DIV1(B1) 


set upper half of divisor latch 
clear DLAB for normal use 




1103 


000003D2 


08R9 


0007 




BCLR 


#7,LINE_C0NT(A1) 








0017 














1104 


















1105 


000003D8 


1347 


0003 




MOVE.B 


D7,INTR_SU(A1) 


restore card interrupt state 




1106 


















1107 
1108 


0000030C 


4E7S 






RTS 
























1109 




0000 


03DE 


C0NT_4 




EQU * 


-- Character Control -- 




1110 


000003DE 


1E00 






MOVE.B 


D0.D7 


save a copy of control value 




1111 


















1112 


000003EO 


C03C 


003F 




AND.B 


#$3F,D0 
D0,LINE_C0NT(fll) 


use only bottom 6 bits 




1113 


000003E4 


1340 


0017 




MOVE.B 


for line control 




1114 


















1115 


000003E8 


CE3C 


OOCO 




AND.B 


#3C0,D7 
#5,D7 


handshake is top two bits 




1116 


000003EC 


EPOF 






LSR.B 


shift it for later use 




1117 


000003EE 


BE2R 


0040 




CMP.B 


S HRNDSH(R2),D7 


if handshake changed 




1118 


000003F2 


671C 






BEQ.S 


EXIT_C4 






1119 


















1120 


000003F4 


1C29 


0003 




MOVE.B 


INTR SUIfAl ) ,D6 


save interrupt state 




1121 


000003F8 


4229 


0003 




CLR.B 


INTR~SU(A1) 


disable interrupts 




1122 


















1123 


000003FC 


1S47 


0040 




MOVE.B 


D7,S HANDSH(A2) 
#1, RECEIVING (R2) 


save new handshake 




1124 


00000400 


157C 


0001 




MOVE.B 


\ 








003C 














1125 


00000406 


157C 
003D 


0001 




MOVE.B 


#1,XMITTING(A2) 


/ reset the handshake flags 




1126 


















1127 


0000040C 


1346 


0003 




MOVE.B 


D6,INTR_SU(R1) 


restore interrupt state 




1128 
1129 


00000410 


4E75 




EXIT_C4 


RTS 
























1130 




0000 


0412 


C0NT_5 




EQU * 


-- modem cont rol ~~ 




1131 


00000412 


1340 


0019 




MOVE.B 


DO,M0DEM_C0NT(Al) 


write directly to UART 




1132 

1133 


00000416 


4E75 






RTS 
























1134 




0000 


0418 


C0NT_6 




EQU * 


-- Data out -- 




1135 


00000418 


6100 


045R 




BSR 


CHECK_ERROR 


check for errors trapped by ISRs 




1136 


















1137 


0000041C 


1340 


0011 




MOVE.B 


D0,DRTR(A1) 


write directly to URRT 




1138 
1139 


00000420 


4E75 






RTS 
























1140 




0000 


0422 


C0NT_7 




EQU * 


-- Optional Circuits -- 




1141 


00000422 


E908 






LSL.B 


#4, DO 


left justify 




1142 


00000424 


1340 


0005 




MOVE.B 


D0,BAUD_SU(R1) 


write directly to card hardware 




1143 
1144 


00000428 


4E75 






RTS 
























1145 




0000 


042fl 


C0NT_12 




EQU « 


-- connect/disconnect -- 




1146 


0000042A 


4R00 






TST.B 


DO 


check for d0=0 




1147 


0000042C 


6700 


03EC 




BEQ 


DISCONNECT 


disconnect will do return 




1148 


00000430 


B03C 


0001 




CMP.B 


#1,D0 






1149 


00000434 


6700 


03C0 




BEQ 


CONNECT 


connect will return 




1150 




0000 


0438 


VAL_ERR 




EQU * 
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11S1 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
116S 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 



00000438 
0000043A 



0000043E 
00000440 
00000442 
00000446 
00000448 
0000044C 



0000044E 
00000450 



00000452 
00000456 



00000458 
0000045C 



0000045E 
00000462 



00000464 
00000468 



0000046A 
0000046E 



00000470 
00000474 



7017 
6000 038E 

0000 043E 

4A0O 

6DF6 

B03C 0001 

6EF0 

1540 003B 

4E75 

0000 044E 
4A40 

6704 

6100 03DE 
4E75 

0000 0458 
1540 0041 
4E75 

0000 045E 
1540 0042 
4E75 

0000 0464 
1540 0043 
4E75 

0000 046PI 
1540 0044 
4E75 

0000 0470 
1540 0045 
4E7S 



HOVEQ #10 tllSC.DO 
BRA I0E5CAPE 



illegal value for register 



EQU * 

TST.B DO 

BLT.S VAl ERR 

CrlP.B ttl.ffO 

BGT.S VfiL ERR 

MOVE.B D0,R0DEM ON(A2) 
RTS 



-- hardware handshake -- 
check for too small value 
(located in cont_12) 
check for too large value 

assign modem flag 



C0NT 14 EQU * 
TST.U DO 
BEQ.S EXIT 14 



-- soft reset -- 

any bit will do reset 

zero value does nothing 



EXIT_14 


BSR 
RTS 




SOFT_RESET 






C0NT_15 


HOVE 
RTS 


B 


EQU * 
D0,X0N_CHAR(A2) 


-- redefine 


Xon cha rac te r -- 


C0NT_16 


MOVE 
RTS 


B 


EQU * 
D0,X0FF_CHAR(A2) 


-- redefine 


Xoff character -- 


C0NT_17 


I10VE 
RTS 


B 


EQU * 
D0,ENQ_CHAR(A2) 


-- redefine 


ENQ character -- 


C0NT_18 


MOVE 

RTS 


B 


EQU * 
D0,ACK_CHAR(A2) 


-- redefine 


PICK character -- 



C0NT_19 EQU * 

tlOVE.B D0,CONV CHAR(A2) 
RTS 



redefine FE/PE convert character 
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X**X****X**XX**X*****X********X************** ******** ************************ 
* 

* interrupt service routine 

* 

***************************************************************************** 

0000 0476 RS RS ISR EQU * 



1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
120S 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 

1221 
1222 
1223 
1224 

1225 
1226 
1227 
1228 
1229 
1230 



00000476 
00000478 
0000047A 
0000047E 



00000480 
00000484 
00000488 
OO0OO48A 



0000048C 



00000492 
00000494 
00000498 



0000049C 
0000049E 
000004AO 
000004A2 



205F 
245F 

226A 0020 
4850 



1029 0015 
0800 0000 
6702 
4E75 



pascal interface overhead 



MOVEA.L (SP)+,A0 

MOVER. L (SP]+,A2 

MOVEA.L C A0R(A2) ,A1 

PEA (RO) 



verify there is an interrupt 



MOVE.B INTR ID(A1),D0 

BTST #0.DO~ 

BEQ.S INTRJXIST 
RTS 



get return address 
get temp address 
get card address 
restore return address 



get interrupt cause 

make sure an interrupt is pending 



no interrupt-- return 
jump to appropriate interrupt handler 



0000 048C 
1S7C 0001 
0038 

4880 

303B 0006 
4EFB 0002 

0000 049C 

001A 

0038 

0000 

0008 



INTR EXIST EQU * 

MOVE.B #1,IN_ISR(A2) 



EXT.W DO 

MOVE.U INTR TABLE(DO) ,D0 

JMP INTR TABLE DO 



INTR TABLE 

DC.U 
DC .U 
DC ,U 
DC.U 



EQU * 

MODEM INTR-INTR TABLE 

OUTPUT INTR-INTR" TABLE 

INPUT_TNTR-INTR_TABLE 

ERROR INTR-INTR TABLE 



mark isr processing 



(get appropriate address) 
(jump to the proper case] 



modem change interrupt 
output empty interrupt 
input available interrupt 
error interrupt 
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1232 
1233 
1234 
123S 
1236 
1237 
1238 
1239 
1240 

1241 

1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 

1253 
1254 

1255 
1256 
1257 
1258 
1259 

1260 



Check for possible unexpected Interrupts, if found clear the interrupt 
(different for each type of interrupt) and disable that type of 
interrupt . 



000004A4 
000004A8 

000004AC 



0000 04fi4 ERROR INTR 

1029 001B MOVE. 8 

8120 003F OR.B 

0809 0002 BCLR 
0013 

000004B2 6000 01B0 BRA 



0000 04B6 MODEM_INTR 
4A2A 003B TST.B 
6706 BEQ.S 

2E2A 0028 MOVE.L 

6622 BNE.S 



000004B6 
000004BH 
000004BC 
000004CO 



000004C2 
000004C6 
000004CO 



000004D4 
000004D8 



000004D0 
000004EO 



0000 04C2 0B0RT_M0DEM 

1029 001D " MOVE.B 

812A 003E OR.B 

08A9 0003 BCLR 

0013 

6000 019C BRR 

0000 04D4 OUTPUT_INTR 
2E2A 0028 MOVE.L 

660A BNE.S 



0809 0001 
0013 
6000 018C 



BCLR 
BRA 



EQU * 

LINE_STAT(01),D0 
DO.S LINE 02 j 
(fli) 



#2,IRTR_EN(A 
END ISR 



•) 



EQU * 

M0DEM_0N(A2) 
ABORT MODEM 
BUFO 0"FF(A2) ,D7 
XFERJ3UT 

EQU » 

MODEM STAT (A1),D 

DO,S MODEM A2 

*3,INTR_EN(A1) 

END_ISR 

EQU * 

BUFO 0FF(A2),D7 

XFER_OUT 

#1,INTR_EN(A1) 

END ISR 



clear the interrupt (by reading line status) 

save line status for user 

disable interrupts since it should not happen 



modem handshake on? 

-- no abort 
output transfer active? 

-- yes do transfer 



clear the interrupt (by reading modem status) 

save modem status for user 

disable interrupt so it won't happen again 



output interrupt transfer active ? 
-- yes do t ransfer 



no disable interrupt 
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1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 

1297 
1298 

1299 
1300 
1301 
1302 
1303 

1304 

1305 
1306 

1307 
1308 
1309 
1310 

1311 
1312 



Do the output interrupt transfer 

(but only if the THRE and the modem lines are high) 



000004E4 
000004E6 
000004EA 
000004EE 

000004F2 

000004F6 
000004FO 
000004FC 
00000500 



00000504 
00000506 
00000500 
0000050C 
00000510 

00000514 
00000518 
0000051A 
0000051E 



00000522 
00000526 
00000528 
0000052C 
00000S2E 



00000534 
00000538 
0000053C 
0000053E 
00000542 
00000544 



00000540 
00000S4E 



00000S54 



00000558 



0000055E 
00000562 



0000 
2647 
1E29 
8F2A 
0807 
6700 

4A2A 
6708 
6100 
6600 

0000 
4247 
206B 
1E18 
1347 
2748 

530B 
6F08 
BE6B 
6600 

0000 
4A2B 

6730 
4A2A 
672A 
0229 
0013 
0000 
1E29 
8F2A 
4607 
CE3C 
66F0 
08A9 
0019 

6100 
4EB9 
0000 
6000 

0000 
0229 
0013 
6100 
4EB9 
0000 
6000 



04E4 XFERJDUT 

O01B 
003F 
0005 
017A 



EQU * 
MOVER. L D7,A3 
MOVE.B LINE STOT(Al) 
OR.B D7,S~LINE(02) 
BTST #5.D7 
BEQ END_ISR 



003B 



04C0 
016C 



TST.B 

BEQ.S 

BSR 

BNE 



0504 M0VEJ3UT 
001C 



CLR.UI 



MOOEM 0N(A2) 
MOVE 0"UT 
CHECk* DSR CTS 
EN0_lS"R 

EQU * 
D7 



0011 
001C 



OOOE 
014E 



0522 END_X0UT 
OOOB TST.B 

BEQ.S 
003B TST.B 

BEQ.S 



MOVEO.L TEMP_0FF(O3),AO 
MOVE.B (R0)+.D7 
MOVE.B D7,DAT0(01) 
00, TEMP 0FF(A3) 



MOVE.L 

SUBQ.L 
BLE.S 
CMP.UI 
BNE 



#1.TCNT 0FF(A3) 
END XOUT 
TCHPC 0FF(A3),D7 
END_JSR 

EQU * 

TEND 0FF(A3) 

CLR X"0UT 

MODEM 0N(A2) 

CLR X0"UT 

ONDI .B #$F5",INTR EN(A1) 



00F5 

0534 LOOP LAST EQU * 

001B MOVE.B LINE_STAT(01 ) ,D7 

003F OR.B D7,S_LINE(02) 

NOT. 8 D7 

0060 AND.B #$60, D7 

BNE.S LOOP LAST 

0001 BCLR #1,M0~DEM CONT(Al) 



0234 
0000 



BSR 
JSR 



0558 CLR XOUT 

OOFS ANDI.B 



0220 
0000 



BSR 
JSR 



CLEAR XFER 

LOGEOT 



EQU * 
*$F5,INTR_EN(A1) 



CLEAR XFER 
LOGEOT 



a3 := buffer control block 

check for THRE 

save line status for user 



clear d7.w 

aO := buffer empty pointer 

d7 := character 

write the character 

update empty pointer 

decrement the count 
count=0, transfer ends 
character = term, char ? 



end condition enabled ? 

modem handshake on ? 

disable output and modem interrupts 



wait for everythinc 
before dropping RT? 



t ransfer red 



drop RTS is the EOI condition 

clear the transfer 
call the eot procedure 



disable output and modem interrupts 



clear the transfer 
call the eot procedure 



END ISR 
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00000S6C 
00000570 
00000574 

00000578 
0000057C 



0000057E 
00000582 
00000586 
00000588 
0OOOOS8C 



0000 056C INPUT_INTR EQU * 

1229 001B MOVE. 8 LINE STAT(A1),D1 

nOVE.B DfiTflTfll),D2 

OR.B D1,S LINE(A2) 



1429 0011 
832A 003F 



4A2A 003B 
6712 



1029 001D 
812A 003E 
4640 

0240 OOAO 
6600 00C4 



TST.B 
BEQ.S 
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131S * 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 



INTERRUPT SERVICE ROUTINES 



Input interrupts are normally active in order to fill the internal 
buffer 



MODEM 0N(A2) 
CHECK BREAK 



check for both CD and DSR 

MOVE.B MODEM STAT(A1),D0 

OR.B D0,S_R0DEM(A2) 

NOT DO 

AND I #$A0,D0 

BNE INPUT_END 

ignore character if break received 



00000590 
00000594 



00000598 
0000059A 
0000059E 
000005AO 



000005A4 
00000SA8 
000005AA 
000005AE 



0000 0590 CHECK BREAK 



0801 0004 
6600 OOBC 



1001 

0240 000C 
6704 
142A 0045 



BTST 

BNE 



EQU * 
#4.01 
INPUT END 



get the input byte (clears interrupt) 
preserve line status for user 



skip modem stuff if handshake off 



preserve modem status for user 

mask appropriate bits 

if zero then they were set previously 



if break received, 
then ignore character 



convert Framing and Parity errors to specified character 



MOVE.B D1.D0 

ANDI #$OC,00 

BEQ.S NO CONVERT 

MOVE.B C0flV_CHAR(A2),D2 



save line status for later use 
check for PARITY and FRAMING errors 



convert the character 
0000 05A4 NO_CONVERT EQU * 

* jump to appropriate handshake handler 



102A 0040 
4880 

303B 0006 
4EFB 0002 



MOVE.B S HANDSH(A2) ,D0 

EXT.U DO" 

MOVE.U HAND TABLE (DO), DO 

JMP HAND TABLE DO) 



get address to jump 



000005B2 
00000584 
000005B6 
000005B8 



0000 05B2 HAND_TABLE 
0068 DC.U 

0008 DC.U 

0096 DC.UJ 

0096 DC.U 



EQU * 

ENQJHANO-HANO TABLE 
XON HAND-HAND TABLE 
NO_RAND-HAND_TABLE 
N0_HAND-HANO_TABLE 
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0000 05BA 



1363 
1364 
1365 
1366 
1367 
1368 
1369 

1370 
1371 
1372 
1373 

1374 
1375 
1376 

1377 

1378 
1379 
1380 
1381 
1382 
1383 
1384 

1385 
1386 
1387 
1388 

1389 
1390 
1391 

1392 
1393 

1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
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XONJHANO EQU * 
* Do host part of the handshake -- check for Xon and Xoff 



000005BA 
000O05BE 
000005CO 



000005C6 
000005CA 
000005CE 

000005D4 
000005D8 
000005DC 

000005E2 



00000SE6 
000005EA 
000005EC 

000005FO 

000005F6 



B42A 0041 
6626 

1S7C 0001 
003D 

4AAA 0028 
6700 0086 
08E9 0001 
0013 

4A2A 003B 
6700 0078 
08E9 0003 
0013 
6000 006E 

0000 05E6 
B42A 0042 
660E 
422A 003D 

137C 0001 
0013 
6000 005A 



CMP.B XON CHAR{A2),D2 
BNE.S CHECK XOFF 
MOVE.B #1,XMTTTING(A2) 



TST.L 

BEQ 

BSET 

TST.B 

BEQ 

BSET 



CHECK XOFF 

CMP.B 
BNE.S 
CLR.B 



BUFO 0FF(A2) 
INPUT END 
#1,INTR_EN(A1) 

MODEM 0N(A2) 

INPUT"END 

#3,INTR_EN(A1) 

INPUT_END 

EQU * 

XOFF CHAR(A2),D2 

TERM HAND 

XMITTlNG(A2) 



MOVE.B #S1,INTR_EN(A1) 
BRA INPUT_END 

Do terminal part of the handshake 



000005FA 
000005FE 
00000600 
00000604 
00000608 



0000060A 
0000060E 
00000612 
00000614 
00000618 



0000 OSFA 

4A2A 003C 
6748 

6100 043C 

B67C 0028 
6C3E 



162A 0042 
6100 0320 
6634 
422A 003C 



TERM HAND 

TST.B 

BEQ.S 

BSR 

CMP.U 

BGE.S 



EQU * 

RECEIVING(A2) 
PUTINQ 
QUEUE SPACE 
#X0FF SIZE.D3 
PUTINQ" 



Have to turn receiving off 

MOVE.B XOFF CHAR(A2),D3 

BSR SEND 

BNE.S PUTINQ 

CLR.B RECEIVING(A2) 

BRA.S PUTINQ 



turn transmitting back on 



enable interrupts if output 
transfer is active 



turn transmitting off 

turn any possible output interrupts off 



if receiving is on, might have 

to turn it off 
d3 := space left in queue 



prepare to send Xoff 

send character 

send did not succeed 

no longer expecting input 

but put present char in queue 
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1406 
















1407 




0000 


061R 


ENQ HAND 


EQU * 




1408 


0000061A 


B42A 


0043 




CMP.B 


ENQ CHAR(R2),D2 IF char <> ENQ 




1409 


0000061E 


6600 


0028 




BNE 


PUTTNQ THEN put char in queue 




1410 


00000622 


6100 


041ft 




BSR 


QUEUE SPACE ELSE 




1411 


00000626 


B67C 


0050 




cmp.u 


#RCK SIZE, 03 IF queue space <=> 80 




1412 


0000062PI 


6C08 






BGE.S 


SEND flCK 




1413 


0000062C 


422A 


003C 




CLR.B 


RECETVING(A2) receiving := false 




1414 


00000630 


6000 


0020 




BRR 


INPUT_END 




1415 
















1416 




0000 


0634 


SEND fiCK 


EQU * 




1417 


00000634 


162fi 


0044 




MOVE.B 


fiCK CHAR(A2),D3 set up parameter in 03 




1418 


00000638 


6100 


02F6 




BSR 


SENB send flCK 




1419 


0000063C 


6700 


0014 




BEQ 


INPUT_END 




1420 
















1421 


00000640 


422ft 


003C 




CLR.B 


RECEIVING(ft2) not receiving since ACK not sent 




1422 


00000644 


6000 


oooc 




BRR 


INPUT_END 




1423 
















1424 








* 








1425 








* 


Put character [d2) in queue, and check for overrun. 




1426 








* 








1427 




0000 


0648 


NO 


HAND 


EQU * 




1428 




0000 


0648 


PUTINQ 


EQU * 




1429 


00000648 


6100 


03R0 




BSR 


QUEUE FULL IF gueue full 
OVERRUN THEN overrun error 




1430 


0000064C 


670fi 






BEQ.S 




1431 


0000064E 


6100 


03B6 




BSR 


INQUEUE ELSE inqueuelchar ) 




1432 
















1433 




0000 


0652 


INPUT_END 


EQU * 




1434 


00000652 


0241 


0002 




RNDI 


#$02,01 check for overrun error 




1435 


00000656 


6708 






BEQ.S 


CHECK_XIN 




1436 
















1437 




0000 


0658 


OVERRUN 


EQU * 




1438 


00000658 


2S7C 
013R 


0000 
0034 




MOVE . L 


#0VERRUN_ERR0R,S_ERR0R(R2) 




1439 
















1440 








* 








1441 








* 


If transfer 


in is active then do the transfer 




1442 








* 








1443 




0000 


0660 


CHECK_XIN 


EQU * 




1444 


00000660 


4A2A 


0039 




TST.B 


XIN flCT(R2) check for transfer active 




1445 


00000664 


6708 






BEQ.S 


END_ISR 




1446 
















1447 


00000666 


266A 


0024 




MOVER. L 


BUFI 0FF(A2),A3 a3 := buffer control block pointer 
DUUP^BUFFER 




1448 


0000066R 


6100 


00O8 




BSR 




1449 
















1450 




0000 


066E 


ENC 


ISR 


EQU * 




1451 


0000066E 


422ft 


0038 




CLR.B 


IN_ISR(R2) not in isr any longer 




1452 


00000672 


4E75 






RTS 
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1455 








********************************************************#***##***x***#******* 




1456 








* 








1457 








* 


t ransfe 


r 




1458 








* 








1459 








*** 


**************«****************x*******x*********************************# 




1460 
















1461 




0000 


0674 


RS_ 


RS_TFR 


EQU * 




1462 
















1463 








* 








1464 








* 


Pascal interface overhead 




1465 








* 








1466 


00000674 


20SF 






MOVEA.L 


(SP)+,A0 get return address 




1467 


00000676 


26SF 






MOVER. L 


(SP +,A3 get buffer control block address 




1468 


00000678 


245 F 






MOVEfl.L 


(SPW,A2 get temp address 




1469 


0000067R 


226fl 


0020 




MOVER,. L 


C flDR(A2),Al get card address 




1470 


0000067E 


4850 






PER 


(fi"0) restore return address 




1471 








* 








1472 








* 


Card overhead 




1473 








* 








1474 


00000680 


6100 


0174 




BSR 


CONNECT 




1475 


00000684 


6100 


01EE 




BSR 


CHECK_ERROR 




1476 








* 








1477 








* 


Check for unsupported transfer modes 




1478 








* 


( done 


by table jump also ) 




1479 








* 








1480 


00000688 


4A2B 


OOOR 




TST.B 


T BLJ 0FF(A3) word mode? 




1481 


0000068C 


662E 






BNE.S 


U0"RD_ERR -- is unsupported 




1482 
















1483 


0000068E 


122B 


0009 




MOVE.B 


TUSR 0FF(A3),D1 dl.w :- offset into transfer table 




1484 


00000692 


4881 






EXT. LI 


Dl 




1485 


00000694 


D241 






flDD.U 


D1.D1 dl.w := word offset into table 
XFER TRBLE(D1),D1 




1486 


00000696 


323B 


1006 




MOVE.U 




1487 


0000069ft 


4EFB 


1002 




JMP 


XFER_TABLE(D1) 




1488 
















1489 




0000 


069E 


XFERJfPiBLE 


EQU * 




1490 


0000069E 


0014 






DC.U 


XFER ERR-XFER TABLE not used 




1491 


000006RO 


0014 






DC.U 


DMA FRR-XFER TABLE serial DMA -- not supported 




1492 


000006A2 


0028 






DC.U 


SER _ FHS-XFER~TfiBLE serial FHS 




1493 


000006A4 


0028 






DC.U 


SER FHS-XFER TABLE serial fastest -- same as serial FHS 




1494 


000006A6 


0014 






DC.U 


XFER"_ERR-XFER"_TABLE not used 




1495 
















1496 


000006R8 


0036 






DC.U 


INTR XFER-XFER TABLE overlap INTR 




1497 


000006RR 


0014 






DC.U 


DMA FRR-XFER TffBLE overlap DMP -- not supported 




1498 


000006RC 


0014 






DC.U 


XFER" ERR-XFER" TABLE overlap FHS -- not supported 




1499 


000006HE 


0036 






DC.U 


INTR XFER-XFER" TABLE overlap FASTEST -- same as overlap INTR 




1500 


000006BO 


0036 






DC.U 


INTR_XFER-XFER_TBBLE overlap overlap -- same as overlap INTR 
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1522 
1S23 
1524 
1525 
1526 
1527 

1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 

1545 

1546 
1547 
1548 
1549 

1550 
1551 



Error escapes 
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1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 



000006B2 
000006B6 
000006B8 



0000 06B2 END_ERR 
0000 06B2 DMA ERR 
0000 06B2 XFER"_ERR 
6100 OOCC BSR 
7007 MOVED. 

6000 0110 BRA 

0000 06BC UORD ERR 



000006BC 
000006C0 
000006C2 



6100 0OC2 
700E 
6000 0106 



BSR 

MOVEQ 
BRA 



EQU * 
EQU * 
EQU * 

CLEAR XFER 
#TFR FRR,D0 
IOESCAPE 

EQU * 

CLEAR XFER 
#N0 UO~RD,DO 
I0E5CAPE 



Set the actual mode for transfers 



0000 06C6 SER FHS EQU * 

000006C6 177C 0004 MOVE.B #TT_FHS , TPCT_0FF(A3 ) 

0007 

000006CC 4A2B OOOD TST.B TDIR 0FF(A3) 

000006D0 6634 BNE . S OUTPUT XFER 

000O06D2 600C BRA.S INPUTjfFER 



0000 06D4 INTR XFER 



000006DA 
000006DE 



000006EO 
000006E4 



000006E6 
000006EA 



000006EC 
000006FO 



000006F6 
000006FA 



000006FE 
00000704 



177C 0001 
0007 

4A2B 0000 
6626 



EQU » 



MOVE.B #TT_INT,TACT_0FF(A3) 



TST.B 

BNE.S 
BRA.S 



TDIR 0FF(A3) 
OUTPUT XFER 
INPUT X"FER 



Input transfer setup. 



0000 06E0 INPUT XFER 
4A2B OOOB TST.B 
66CC BNE.S 



6100 OOSC 
6756 

4229 0003 
157C 0001 
0039 

6100 00A4 
6100 0048 



08E9 0007 
0003 



BSR 
BEQ.S 



EQU * 

TEND 0FF(A3) 

END_E~RR 

DUMP BUFFER 
EXIT_TFR 



CLR.B INTR SW(Pl) 
MOVE.B #1,XTN_ACT(A2) 



BSR 
BSR 



BSET 
BRA.S 



SET XFER 
DUMP_BUFFER 



#7,INTR_SU(A1) 
CHECK FHS 



set the actual mode 

jump to correct direction handler 

set actual mode to INTR 

jump to correct direction handler 



end condition not allowed on input xfers 



do most of transfers with intr enabled 
if transfer done, then exit 

disable interrupts for critical section 



set interface busy 

make sure that buffer is empty (prevent deadlock) 

if eot the following code will exit 

so no explicit exit is done 

end of critical section 



end of input transfer setup 
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* 

* Output transfer setup 



15S3 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 

1563 

1564 
1565 

1566 
1567 
1568 

1569 

1570 
1571 
1572 
1573 
1574 

1575 
1576 

1577 
1578 
1579 

1580 
1581 
1582 



0000 0706 OUTPUT_XFER 



00000706 4229 0003 



0000070A 
0000070E 

00000714 
00000718 
0000071A 

00000720 
00000724 
00000726 



6100 0090 
08E9 0001 
0019 

4A2A 003D 
6712 

08E9 0001 
0013 

4A2A 003B 
6706 

08E9 0003 
0013 



CLR.B 

BSR 
BSET 

TST.B 
BEQ.S 
BSET 

TST.B 
BEQ.S 
BSET 



EQU * 

INTR_SU1(A1) 

SET XFER 
#1,R0DEM_C0NT(A1) 

XMITTING(A2) 

CHECK FHS 

#1, INTR_EN(A1) 

M0DEM_ON(A2) 

CHECK FHS 

#3, INTR EN(A1) 



disable interrupts for critical section 

set interface busy 
set RTS 

if not transmitting, don't enable interrupts 

enable output interrupts 

if modem handshake 

enable modem interrupts 



0000 072C CHECK_FHS 
0000072C 08E9 0007 BSET 

0003 



IF serial transfer THEN wait until transfer is done 

end of critical section 



EQU * 
#7,INTR_SU)(A1) 



CMPI.B #TT_FHS,TACT_0FF(A3) 
BNE.S 



00000732 0C2B 0004 

0007 
00000738 6608 BNE.S EXIT_TFR 

0000 073A UAIT_FHS EQU * 

000O073A 0C2B OOFF CMPI.B #255 , T_SC_0FF (A3 ) 

0005 
00000740 66F8 BNE.S UAIT_FHS 

0000 0742 EXIT_TFR EQU * 
00000742 4E75 RTS 



wait until buffer is not busy 
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1S85 








♦♦a*************************************************************************** 




1S86 








* 






1587 








* TRANSFER SUPPORT ROUTINES 




1588 








* 






1S89 








#***************************************************************************** 




1590 








* 






1591 








* DUMP BUFFER 




1S92 








* transfer from the internal queue to user queue 




1593 








* 






1594 








» ON ENTRY: a3 - points to buffer control block 




1595 








* ON EXIT 


: IF transfer was completed 
THEN d2.L=0 and Z=l 




1596 








* 




1597 








* 


ELSE d2.L=l and Z=0 




1598 








* USES: 


aO - current fill pointer to user input buffer 




1599 








* 


d2 - character being transfered 




1600 


















1601 














1602 




0000 


0744 


DUMP BUFFER 


EQU » 




1603 


00000744 


206B 


0020 


MOVEA.L 


TFIL 0FF(B3),A0 get fill pointer 




1604 


00000748 


4242 




CLR.UI 


D2 clear top half of D2 (for later compares) 




1605 














1606 




0000 


074P 


DUMP LOOP 


EQU * 




1607 


0000074A 


6100 


0294 


BSR 


QUEUE EMPTY 




1608 


0000074E 


6728 




BEQ.S 


EXIT [JUMP 




1609 


00000750 


6100 


0162 


BSR 


GET CHAR d2 : = character 




1610 


00000754 


10C2 




MOVE. 8 


D2,TAO)+ put it in the linear buffer 
#1,TCNT 0FF(A3) decrement count 
END XIN~ 




1611 


00000756 


S3AB 


0010 


SUBQ.L 




1612 


0O00075A 


6F06 




BLE.S 




1613 


0000075C 


B46B 


OOOE 


CMP.UI 


TCHR" 0FF(A3),D2 
DUMP_L00P 




1614 


00000760 


66E8 




BNE.S 




1615 














1616 




0000 


0762 


END XIN 


EQU * 




1617 


00000762 


2748 


0020 


MOVE.L 


AO,TFIL 0FF(A3) update fill pointer 




1618 


00000766 


422A 


0039 


CLR.B 


XIN ACTTA2) 
CLEER XFER 




1619 


0000076A 


6100 


0014 


BSR 




1620 


0000076E 


4EB9 
0000 


0000 


JSR 


LOGEOT 




1621 














1622 


00000774 


4282 




CLR.L 


D2 set Z flag to mark transfer ended 




1623 


00000776 


4E7S 




RTS 






1624 














1625 




0000 


0778 


EXIT DUMP 


EQU * 




1626 
1627 
1628 


00000778 


2748 


0020 


MOVE.L 


A0,TFIL_0FF(A3) update fill pointer 




0000077C 


7401 




MOVEQ 


#1,02 clear Z flage to mark transfer still active 




1629 


0000077E 


4E75 




RTS 






PAGE 
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1631 
1632 




















* CLEAR XFER 




1633 








* mate 


a transfer inactive (unlink temp space and buffer control block) 




1634 








* ON ENTRY: a3 - points to the buffer control block 




1635 
1636 


























1637 




0000 


0780 


CLEAR XFER 


EQU * 




1638 


00000780 


422B 


0007 


~ CLR.B 


TACT 0FF(A31 clear actual transfer mode 
#25S,T_SC_0FF(A3) set the buffer not busy 




1639 


00000784 


177C 


OOFF 


MOVE.B 








0005 










1640 


0000078A 


4A2B 


OOOD 


TST.B 


TDIR 0FFfA3) 
CLEAR" OUT 




1641 


0000078E 


6606 




BNE.S 




1642 


00000790 


42AA 


0024 


CLR.L 


BUFI_CFF(A2) clear input transfer 




1643 


00000794 


4E75 




RTS 






1644 




0000 


0796 


CLEAR OUT 


EQU * 




1645 


00000796 


42AA 


0028 


CLR.L 


BUF0_0FF(A2) clear output transfer 




1646 


0000079A 


4E7S 




RTS 






1647 














1648 

1649 




















* SET_XFER 




1650 








* make 


a transfer active (link temp space with buffer control block) 




1651 








* ON ENTRY: a3 - the buffer control block 




1652 

1653 


























1654 




0000 


079C 


SET XFER 


EQU * 




1655 


0000079C 


176A 
0005 


002D 


MOVE.B 


IO_SC(A2),T_SC_OFF(A3) set the buffer busy 




1656 


000007A2 


4A2B 


0000 


TST.B 


TDIR 0FF(A3) 




1657 


000007FI6 


6606 




BNE.S 


SET CUT 




1658 


000007A8 


254B 


0024 


MOVE.L 


A3,B"UFI_0FF(A2) set sc's input active 




1659 


000007AC 


4E75 




RTS 






1660 




0000 


07AE 


SET OUT 


EQU * 




1661 


000007AE 


254B 


0028 


MOVE.L 


A3,BUF0_0FF(A2) set sc's output active 




1662 


000007S2 


4E7S 




RTS 






1663 














1664 
1665 




















* CHECK_XFER_IN, CHECK_XFERJ)UT 




1666 








* gives an error if a transfer is active 




1667 
1668 
1669 








* USES: 


do -- only if an ioescape is to be given 
















1670 




0000 


07B4 


CHECK XFER IN 


EQU « 




1671 


000007B4 


4AAA 


0024 


TST.L 


BUFI 0FF(A2) 




1672 


000007B8 


660A 




BNE.S 


BUSY_ERR 




1673 


000007BA 


4E75 




RTS 






1674 














1675 




0000 


07BC 


CHECK XFER OUT 


EQU * 




1676 


000007BC 


4AAA 


0028 


TST.L 


BUFO 0FF(A2) 




1677 


000007CO 


6602 




BNE.S 


BUSY_ERR 




1678 


00O007C2 


4E75 




RTS 






1679 














1680 




0000 


07C4 


BUSY ERR 


EQU * 




1681 


000007C4 


7008 




MOVEQ 


#SC BUSY, DO 




1682 


000007C6 


6000 


0002 


BRA 


IOESCAPE 
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***************************************************************************** 

* 

* Useful Subroutines 

* 

***************************************************************************** 



1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 

1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 



I0ESCAPE 
ON ENTRY: 



dO.L 



contains the escape code 



0000 07CA IOESCBPE 

2B40 FFBE MOVE.L 
4280 CLR.L 

102A 002D MOVE.B 

2B40 FFBfi MOVE.L 

3B7C FFE6 MOVE.U 
FFFE 
000007DE 4E4A TRAP 



000007CA 
000007CE 
000007DO 
000007D4 
000007D8 



000007EO 
000007E2 
000007E4 
000007E6 
000007E8 
000007EA 

000007EC 
000007EE 

000007FO 
000007F2 
000007F4 



0000 07E0 RDIVU 

82C0 

4841 

E349 

6508 

B041 

6F04 

* 
4841 
4E75 

0000 07F0 ROUND 
4841 
5241 
4E7S 



EQU * 

DO.IOE RSLT(AS) 

DO 



* put ioe result 
*<« BUG FIX >» 

* get select code of card 
DO.IOE SC(fiS) * put ioe_sc 
#I0E_ER"R0R,ESC_C0DE(A5) * escapecode : = ioe_error 



I0_SCjA2),D0 



#10 



* do Pascal escape 



RDIVU 

unsigned integer divide rounded. 

ON ENTRY: dO.w -- divisor (unchanged by this routine) 

dl . 1 -- dividend 
ON EXIT: dl.w -- rounded quotient 



DIVU 

SIMP 

LSL.U 

BCS.S 

CMP.U 

BLE.S 

SUSP 
RTS 



EQU * 

D0.D1 

Dl 

#1,D1 

ROUND 

D1,D0 

ROUND 

Dl 



EQU * 
SWAP Dl 
ADOQ.U #1,01 
RTS 



do truncated division 

get access to remainder 

multiply remainder by 2 

if carry then remainde r*2>divisor 

remainder*2 > divisor ? 

round up if so. 

— do not round -- 

get quotient 

--round up-- 

get old quotient 

increment (do the rounding) 
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1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 

1737 
1738 



1740 

1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 

1752 
1753 

1754 

1755 
1756 



CONNECT 

connects the card if not connected already. 

uses : d6,d7 by called routines 



0000 07F6 CONNECT EQU * 

000007F6 4A2A 003A TST.B CONNECTED (A2 ) 
000007FA 661C BNE.S EXIT_CONNECT 



000007FC 08E9 0000 

0019 
00000802 6100 002E 
00000806 137C 0001 

0013 
0000080C 157C 0001 

003A 
00000812 08E9 0007 

0003 

0000 0818 EXIT_C0NNECT EQU * 
00000818 4E75 RTS 



BSET #0,M0DEM_C0NT(A1) 

BSR SOFT RESET 

MOVE.B #1,INTR_EN(A1) 

MOVE.B #l,CONNECTED(A2) 

BSET #7,INTR_SU(A1) 



IF connected THEN do nothing 

set OTR 

initialize the dynamic data 
enable receive interrupts 

set connected 

enable card interrupts 



DISCONNECT 

disconnect and disable interrupts 



EQU * 
#7,INTR_SW(A1) 



0000 081A DISCONNECT 

0000081A 08A9 0007 BCLR 

0003 

00000820 422A 003A CLR.B CONNECTED (A2) 

00000824 0229 OOFC ANOI.B #$FC , M0DEM_C0NT ( Al ) 

0019 
0000082A 4E71 NOP 

0000082C 4229 0013 CLR.B INTR_EN(A1) 
00000830 4E7S RTS 



disable card interrupts 

set disconnected 
drop DTR and RTS 



disable all UART interrupts 
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1758 








*- 












17S9 








* 


SOFT_RESET 




1760 








* 


initialize the "dynamic** attributes of the drivers 




1761 








* 








1762 








* 


uses : 


d6,d7 as temporary 




1763 








*- 












1764 
















176S 




0000 


0832 


SOFT RESET 


EQU * 




1766 
















1767 


00000832 


4EB9 
0000 


0000 




JSR 


ABORT_IO abort transfers 




1768 
















1769 


00000838 


1C29 


0003 




MOVE.B 


INTR SU)(A1),D6 save interrupt state 




1770 


0000083C 


4229 


0003 




CLR.B 


INTR_SU(A1) disable interrupts 




1771 
















1772 


00000840 


0229 

0013 
6100 


0001 




ANDI.B 


#1,INTR_EN(A1 ) disable modem and transmit interrupts 




1773 


00000846 


0188 




BSR 


INIT QUEUE 




1774 


0000084A 


1E29 


0011 




MOVE.B 


DATATA1J.D7 destroy any data 

S LINE]A2) 

LTNE STAT(A1),D7 reset the line status (destructive read) 




1775 


0000084E 


422A 


003F 




CLR.B 




1776 


00000852 


1E29 


001B 




MOVE.B 




1777 


000008S6 


422A 


003E 




CLR.B 


S M0D~EM(A2) 

M0~DEM_STAT(A1) , D7 reset the modem status (destructive read) 




1778 
1779 
1780 


0000085P1 


1E29 


001D 




MOVE . B 


















1781 


0000085E 


42AA 


0034 




CLR.L 


S ERR0R(A2) 
#T,RECEIVING(A2) 




1782 


00000862 


1S7C 


0001 




MOVE.B 








003C 












1783 


00000868 


157C 
003D 


0001 




MOVE.B 


#1,XMITTING(A2) 




1784 














1785 


0000086E 


1346 


0003 




MOVE.B 


D6, INTR_SU(A1) restore the interrupt state 




1786 


00000872 


4E75 






RTS 






1787 
















1788 
















1789 
1790 






















* 


CHECK_ERROR 




1791 








* 


check for errors recorded in interrupt service routines EISRs) 




1792 
1793 
1794 








* 


USES 


: D0,D7 only if doing ioescape 


















1795 




0000 


0874 


CHECK ERROR 


EQU * 




1796 


00000874 


4ARA 


0034 




TST.L 


S ERR0R(A2) is error present 
El*?ROR_EXISf 




1797 


00000878 


6602 






BNE.S 




1798 


0000087A 


4E75 






RTS 


return if not error 




1799 




0000 


087C 


ERROR EXIST 


EQU * 




1800 


0000087C 


1E29 


0003 




MOVE.B 


INTR SU(A1],D7 save interrupt condition 




1801 


00000880 


4229 


0003 




CLR.B 


INTR_SU(A1) disable interrupt for critical section 




1802 
















1803 


00000884 


202A 


0034 




MOVE.L 


S ERR0R(A2),D0 get error 




1804 


00000888 


42AA 


0034 




CLR.L 


S_ERR0R(A2) clear errors 




1805 
















1806 


0000088C 


1347 


0003 




MOVE.B 


D7.INTR SU(A1) restore interrupts 
IOESCAPE" do pascal escape 




1807 


00000890 


6000 


FF38 




BRA 
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1809 
1810 






















* 


WAIT SEND 




1811 








* 


TKis 


routine waits for the transmitting flag then sends 




1812 








* 


a character. It escapes if SEND returns with an error. 




1813 








* 


NOTE: 


this routine cannot be called by ISRslll 




1814 








* 


ON ENTRY: d3.B -- character to be sent 




1815 








* 


USES 


: a4 -- used by called routines 




1816 








* 




d4,d6.d7 -- by called routines 




1817 
1818 






























1819 




0000 


0894 


UAIT._SEND 


EQU » 




1820 
















1821 








* 








1822 








* 


Uait for xmitting flag (no timeouts i!) 




1823 








* 


(the wait is important for Xon/Xoff as host) 




1824 








* 








1825 


00000894 


4A2A 


003D 




TST.B 


XMITTING(A2) 




1826 


00000898 


67FA 






BEQ.S 


UAIT_SEND 




1827 








* 








1823 








* 


Send the character 




1829 








* 








1830 




0000 


089A 


OK 


XMIT 


EQU * 




1831 


0000089A 


6100 


0094 




BSR 


SEND send character with timeout 




1832 


0000089E 


61D4 






BSR 


CHECK_ERR0R check for errors found by send 




1833 


000008AO 


4E75 






RTS 






1834 
















1835 
















1836 
1837 






















* 


UAIT_GET 




1838 








* 


wait 


until the queue is empty before getting a character 
: D2.B contains the character 




1839 








* 


ON EXIT 




1840 








* 




(the rest of D2 is not altered!) 
A4.L -- parameter to UAIT 




1841 








* 


USES: 




1842 








* 




D0,D3,D4,D6,D7 -- used by called routines 




1843 
1844 






























1845 




0000 


08A2 


UAIT GET 


EQU * 




1846 
















1847 








* 








1848 








* 


Uait (with 


timeout) for queue not empty 




1849 








* 








1850 


000008A2 


49FA 


010C 




LEA 


CHECK QUEUE, A4 \ call wait with the not queue empty 
UAIT / function 




1851 


000008A6 


6100 


OOCC 




BSR 




18S2 


000008AF1 


61C8 






8SR 


CHECK_ERROR check for wait error 




1853 
















1854 


0O0008AC 


6100 


0006 




BSR 


GET CHAR 




1855 


000008BO 


61C2 






BSR 


CHECK_ERROR 




1856 


000008B2 


4E75 






RTS 
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1858 » 

1859 * GET_CHAR 

1860 * get a character with software handshake. 

1861 * ON ENTRY : the queue is not empty! 

1862 * ON EXIT: D2.B contains the character 

1863 * (the rest of D2 is not altered!) 

1864 * USES: D3 -- space left in queue/temporary for character 

1865 * DO.U -- handshake type & temporary 

1866 » A4,D4,D6,D7 -- temporary 

1867 * 

1868 

1869 

1870 0000 08B4 GET_CHAR EQU * 

1871 

1872 * 

1873 * Read the character ( and pass it back ) 

1874 * 

1875 000008B4 6100 016C BSR OUTQUEUE get the character (into D2) 

1876 * 

1877 * Check for and do handshake overhead 

1878 » 

1879 000008B8 4A2A 003C TST.B RECEIVING(A2 ) if receiving 

1880 000008BC 6670 BNE.S READ_END then no overhead needed 

1881 * 

1882 * Jump to appropriate handshake handler 

1 883 * 

1884 000008BE 102A 0040 MOVE.B S HANDSH (A2) ,D0 get handshake 

1885 000008C2 4880 EXT.W DO" 

1886 000008C4 303B 0006 MOVE.W H TABLE(DO),00 

1887 000008C8 4EFB 0002 JMP OfiBLE(DO) 

1889 0000 08CC H TABLE EQU * 

1890 000008CC 0008 DC.W ENQ_H-H_TABLE 

1891 000008CE 0018 DC.W XON H-H TABLE 

1892 000008DO 0062 DC.W REAtJ„END"-H_TABLE no handshake (no overhead) 

1893 000008D2 0062 DC.W READ_END-H_TABLE no handshake 
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1895 * 

1896 * ENQ/ACK handshake--send ACK if queue can handle more than 80 chars 

1897 * 

1898 0000 08D4 ENQ_H EQU * 

1899 000008D4 6100 0168 BSR QUEUE SPACE returns space left in 03 

1900 000008D8 B67C 0050 CMP.U #ACK_S"IZE,D3 

1901 000008DC 6D50 BLT.S READ_END space not big enough to send ACK 

1902 * . . 

1903 * Send character to indicate card is receiving and set receiving flag 

1904 * 

1905 000008DE 162A 0044 MOVE.B ACK CHAR(A2),D3 send ack 

1906 000008E2 600E BRA.S SEND~_HAND 
1907 

1908 * 

1909 * Xon/Xoff handshake--send Xon if queue can handle more characters 

1910 * 

1911 0000 08E4 XON H EQU * 

1912 000008E4 6100 0158 BSR QUEUE SPACE d3 := space left in queue 

1913 000008E8 B67C 0060 CMP.U #X0N_5JZE , D3 

1914 000008EC 6040 BLT.S READ_END space not big enough to send XON 

1915 * . . 

1916 * Send character to indicate card is receiving and set receiving flag 

1917 * 

1918 000008EE 162A 0041 MOVE.B X0N_CHAR (A2 ) ,D3 
1919 

1920 0000 08F2 SEND_HRND EQU * send handshake character (in D3) 

1921 000008F2 137C 0001 MOVE.B #1 , INTR_EN(A1 ) only have receive interrupt enabled 

0013 

1922 000008F8 6100 0036 BSR SEND send char which is in d2 

1923 000008FC 6606 BNE.S RESTORE 

1924 000008FE 157C 0001 MOVE.B #1 ,RECEI VING(A2 ) turn receiving back on 

003C 

1925 0000 0904 RESTORE EQU * recalculate interrupt enable mask 

1926 00000904 1E29 0003 MOVE.B INTR_SW(A1 ) , D7 save interrupt status 

1927 00000908 4229 0003 CLR.B INTR_SU(Alj critical section 

1928 0000090C 4AAA 0028 TST.L BUFO 0FF(A2) 

1929 00000910 6718 BEQ.S END RESTORE 

1930 00000912 4A2A 003D TST.B XMITTING(A2) 

1931 00000916 6712 BEQ.S END RESTORE 

1932 00000918 08E9 0001 BSET #1 ,TNTR_EN (Al ) 

0013 

1933 0000091E 4A2A 003B TST.B MODEM 0N(A2) 

1934 00000922 6706 BEQ.S END RESTORE 

1935 00000924 08E9 0003 BSET #3 ,TNTR_EN(A1 ) 

0013 

1936 0000 092A END_REST0RE EQU * 

1937 0000092A 1347 0003 MOVE.B D7 , INTR_SW(A1 ) end critical section 
1938 

1939 0000 092E READ_END EQU * 

1940 0000092E 4E75 RTS 
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1942 




















1943 








* 


SEND 




1944 








* 


ON ENTRY: d3.B -- character to be sent 


194S 








* 


ON EXI1 


: IF character sent 


1946 








* 




THEN Z=l 


1947 








* 




ELSE Z=0, S_ERR0R updated to newest error 


1948 








* 


USES 


: a4 -- parameter to URIT 


1949 








* 




d7 -- temporary 


1950 








* 




d6 -- by called routines 


1951 
1952 


























1953 




0000 


0930 


SEND 




EQU x 


1954 


00000930 


08E9 
0019 


0001 




BSET 


#l,M0DEM_C0NT(fll) set RTS 


1955 








* 






1956 








* 


Wait (with 


timeout) for transmit registers empty 


1957 








* 






1958 




0000 


0936 


LOOP 


THRE 


EQU « 


1959 


00000936 


1E29 


001B 




MOVE.B 


LINE STRT(A1),D7 


1960 


0000093P 


8F2R 


003F 




OR.B 


D7,S LINE(A2) save line status for user 
#$20, D7 look at THRE bit 


1961 


0000093E 


CE3C 


0020 




RND.B 


1962 


00000942 


67F2 






BEQ.S 


LO0P_THRE 


1963 














1964 


00000944 


4A2R 


003B 




TST.B 


MODEM 0N(A2) skip modem stuff if modem handshake off 
XMIT_CHAR 


1965 


00000948 


6722 






BEQ.S 


1966 








* 






1967 








* 


lodem checking depends on if this routine was called from an ISR 


1968 








X 






1969 


0000094R 


4A2A 


0038 




TST.B 


IN ISR(A2) 


1970 


0000094E 


6710 






BEQ.S 


N0T_ISR 


1971 














1972 


00000950 


6100 


ooec 




BSR 


CHECK DSR_CTS 


1973 


00000954 


6716 






BEQ.S 


XMIT_CHAR modem lines an up, goto transmit 


1974 














1975 


00000956 


257C 
013C 


0000 
0034 




MOVE.L 


#316,S_ERR0R(R2) CTS false error 


1976 


0000095E 


4E75 






RTS 


side effect -- Z:=0 


1977 








* 






1978 








* 


Uait (with 


timeout) for DSR and CTS 


1979 








* 






1980 




0000 


0960 


NOT_ 


ISR 


EQU x 


1981 


00000960 


49FR 


005C 




LEfl 


CHECK_DSR_CTS,A4 \ call URIT with appropriate 
UAIT / function parameter 


1982 


00000964 


6100 


OOOE 




BSR 


1983 


00000968 


6702 






BEQ.S 


XMIT CHAR no errors, goto transmit 
(Z=0 still) 


1984 


0000096R 


4E7S 






RTS 


1985 








* 






1986 








* 


Send the character (in d3l 


1987 








*. 






1988 




0000 


096C 


xmit 


CHAR 


EQU x 


1989 


0000096C 


1343 


0011 




MOVE.B 


D3,DATA(R1) do actual transmit 


1990 


00000970 


4207 






CLR.B 


D7 indicate no errors (Z := 1) 


1991 


00000972 


4E75 






RTS 
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1993 
1994 




















* 


URIT 




1995 








* 


this 


function waits with timeout for a condition to happen. 


1996 








* 


if the condition does not happen within the timeout, then 
S ERR0R(A2) is marked with the timeout error. 


1997 








* 


1998 








X 


ON ENTRY: A4 . L points to the routine which will determine if 


1999 








* 




the condition is met. This routine should have 


2000 








* 




the following conditions: 


2001 








* 




--uses at the most d7,d6 


2002 








X 




--returns Z=l if the condition is met 


2003 








X 




--all routines should have similar timing 


2004 








X 


ON EXIT 


: IF error is found 


2005 








X 




THEN Z=0, S ERROR indicates the error 


2006 








X 




ELSE Z=l 


2007 








X 


USES 


: D4 . L -~ timeout counter 


2008 
2009 
2010 








X 




D7,D6 -- can be used by called routine (see above) 








2011 




0000 


0974 


WRIT 




EQU x 


2012 


00000974 


4E94 






JSR 


(R4) check the condition 
EXITJJRIT exit if condition met (Z=l) 


2013 
2014 


00000976 


6736 






BEQ.S 


2015 


00000978 


282A 


002E 




MOVE . L 


TIME0UT(fl2),D4 


2016 
2017 
2018 


0000097C 


6726 






BEQ.S 


UAIT_L00P2 infinite timeout if value is 0. 


0000097E 


2E04 






MOVE.L 


04, D7 \ 


2019 


00000980 


E38F 






LSL.L 


#1,07 \ initialize counter 


2020 


00000982 


E58C 






LSL.L 


#2,D4 \ (multiply by 54) 


2021 


00000984 


D887 






ADD.L 


D7,D4 1 


2022 


00000986 


2E04 






MOVE.L 


D4,D7 / 


2023 


00000988 


E78C 






LSL.L 


#3,04 / 


2024 


0000098A 


D887 






ADD.L 


D7.D4 / 


2025 














2026 




0000 


098C 


WRIT 


LOOP 


EQU x 


2027 


0000098C 


4RRR 


0034 




TST.L 


S ERR0R(A2) check for errors saved during wait 
EX"IT_WRIT exit (Z=0) 


2028 


00000990 


661C 






BNE.S 


2029 


00000992 


4E94 






JSR 


(R4) check the condition 
EXITJjJRIT exit if conditon met (Z=*l) 


2030 
2031 
2032 


00000994 


6718 






BEQ.S 


00000996 


5384 






SUBQ.L 


#1,D4 counter := counter - 1 


2033 


00000998 


6RF2 






BPL.S 


URITJ.OOP 


2034 














2035 


0000099P 


2S7C 

0011 


0000 
0034 




MOVE.L 


#TM0_ERR,S_ERR0R(R2) save the timeout error (Z:=*0) 


2036 


000009B2 


4E7S 






RTS 




2037 














2038 




0000 


09R4 


WAIT. 


L00P2 


EQU x wait loop for infinite timeout 


2039 


000009P4 


4flflfl 


0034 




TST.L 


S ERR0R(R2) check for errors saved by ISRs 
EXIT UfllT exit (Z=0) 


2040 


000O09R8 


6604 






BNE.S 


2041 


000009AR 


4E94 






JSR 


(Ml 

URIT L0OP2 


2042 


000009PC 


66 F6 






BNE.S 


2043 














2044 




0000 


09RE 


EXIT. 


URIT 


EQU x 


2045 


000009RE 


4E7S 






RTS 
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****************************************************************************** 

* 

* CHECK_DSR_CTS, CHECK_QUEUE 



2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
205S 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
206S 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 



000009B0 
000009B4 
000009B8 
000009BC 



000009BE 
000009C2 
000009C6 
000009C8 
000009CC 
000009CE 



* FUNCTIONS to be used with WAIT, they all return 2=1 when the 

* condition is met . 
* 

* USES: the function is allowed to use only d6 and d7 
* 
****************************************************************************** 



* condition: queue is empty 

* 

0000 09B0 CHECK QUEUE EQU * 

3E2A 004A MOVE.U Q_0UT(A2),D7 

BE6A 0048 CMP. 10 Q IN(A2),D7 

0A3C 0004 EORI #S04,CCR 

4E75 RTS 



(12 

12 

20) invert t h< 
J > 44 ) 



2=1 if empty 

- ''e 2 bit 



(2=1 if full) 



condition: DSR=1 and CTS=1 (ok to send with modem handshake) 



0000 09BE CHECK DSR CTS EQU * 

1E29 001D ~ M0"VE.B MODEM STAT (Al ) ,D7 

8F2A 003E OR.B 07 , S_flODEM (A2 ) 

4607 NOT.B D7 

CE7C 0030 AND #$30, D7 

4E71 NOP 

4E75 RTS 



(12) 

16 

4 



save modem status for user 

if both DSR and CTS were true, 2=0 



j > 44 ) 
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2080 ***************************************************************************** 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 



2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
.2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 



* Buffer routines 

* 

***************************************************************************** 



INIT_QUEUE 

initializes the queue descriptor. 



000009DO 

000009D6 
000009DP 
000009DE 



000009EO 
000009E4 
000009E8 



000009EA 
000009EE 
000009F0 
000009F4 
0O0OO9F6 

000009F8 
000009FC 
000009FE 

0OOOOAO0 
0OOOOAO4 



0000 
3S7C 
0C46 
426A 
426A 
4E75 



0000 
3E2A 
BE6A 
4E7S 



0000 
3E2S 
5247 
BE6A 
6602 
4E75 
0000 
BE6A 
6702 
4E7S 
0000 
3E2A 
4E75 



09D0 
0088 



0048 
004A 



INIT QUEUE 

MOVE.U 

CLR.U 
CLR.U 
RTS 



EQU * 
#BUFFER_SI2E,Q_SIZE(A2) 

Q IN(A2) 
Ql0UT(A2) 



* initialize queue_size 

* queue_in : = 

* queue_out :~ 



QUEUE EMPTY 

tells if queue is empty. 

ON EXIT: 2=empty (IF EMPTY THEN Z: = l ELSE Z:=0) 

USES : D7 



09E0 QUEUE EMPTY EQU * 

004A ~ MOVE.U Q_0UT(A2),D7 

0048 CMP.U Q IN(H2) ,07 
RTS 



* RETURN( queue_in ■ queue_out ) 



QUEUE FULL 

tells if queue is full. 

ON EXIT: 2=full (IF FULL THEN Z: = l ELSE Z:=0) 

USES : D7 



09EA QUEUE FULL 

0048 " MOVE.U 
ADDQ.U 

004A CMP.U 
BNE.S 
RTS 

09F8 CHECK OR 

0046 ~ CMP.U 
BEQ.S 
RTS 

0A00 CHECK_AND 

004A MOVE.U 
RTS 



EQU * 

Q IN(A2),D7 

#T,D7 

Q 0UT(P2),D7 

CH"ECK_0R 

EQU * 

Q SI2E(A2),D7 

CRECK_AND 

EQU * 
Q_0UT(A2),D7 



* queue_out = queue_in+l ? 
* 

* ( YES so return with 2=1) 

* queue in+1 = queue_size ? 
* 

* ( NO so return with 2=0) 

* queue out » ? 

* ~( ANSUER is result of function ) 



1-346 



INQUEUE 

puts a character in the queue 

ON ENTRY: d2.B - character to be put in the queue 

buffer NOT full !! 
USES : a4.L - queue_addr 

d7 .U - queue_in 
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2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 

2139 0000 0006 

2140 00000R06 3E2A 0048 

2141 OOOOOROR 1582 704C 
2142 

2143 OOOOOROE 5247 
2144 

2145 OOO0OR1O BE6A 0046 

2146 OOO00R14 6C06 

2147 00000016 3547 0048 

2148 00000A1A 4E75 

2149 0000 0A1C 

2150 00000P1C 426A 0048 

2151 O0000A20 4E75 
2152 
2153 
2154 
2155 

2156 * ON ENTRY 

2157 * ON EXIT 

2158 * USES 

2159 * 

2160 * 

2161 

2162 0000 0A22 

2163 OO0OOR22 3E2R 004A 

2164 00000R26 1432 704C 
2165 

2166 00000H2R 5247 
2167 

2168 00000R2C BE6P 0046 

2169 OO00OR3O 6C06 

2170 O0O00R32 3547 004R 

2171 00000R36 4E75 

2172 0000 0A38 

2173 O0OOOR38 426R 004R 

2174 0OO00R3C 4E75 



INQUEUE EQU * 

MOVE.U Q IN(R2),D7 

MOVE.B D2",Q_BUFFER(R2,D7.U) 

RDDQ.U #1,07 

CMP.U Q SIZE(A2),D7 

BGE.S RESET IN 

MOVE.U D7,Q TN(R2) 
RTS ~ 

RESET IN " EQU * 

CLR.UI Q IN(A2) 
RTS 



* (queue_addr+queue_in) A := char 

* queue_in :- queue_in+l 

* 

* IF queue_in >= queue_size 
* 

x 
* 

* THEN queue_in := 



OUTQUEUE 

take the next character out of the queue 
*•' buffer NOT full 

d2.B - character from the queue 

a4 .L - queue_addr 

d7 ,U - queue_in 



OUTQUEUE EQU * 

MOVE.U Q OUT(P2),07 

MOVE.B Q_BUFFER(R2,D7.U),D2 

BODQ.U #1,07 

CMP.U Q SIZE(R2) ,D7 

BGE.S RESET OUT 

MOVE.U D7,Q 0"UT(R2) 
RTS ~ 

RESET OUT EQU * 

CLR.U Q 0UT(A2) 
RTS 



* char := (queue_addr*queue_out )' 

* queue_out := queue_out*l 

** 

* IF queue_out >= queue_size 
* 

* 
* 

* THEN queue_out :=■ 



QUEUE_SPRCE 

returns amount of space remaining in the queue 

ON EXIT: d3.U - contains the space remaining in the queue. 
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2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 
PASS 1 
PASS 2 



0000 0A3E QUEUE SPACE 
O00O0A3E 362A 004R ~ MOVE.U 
00000R42 966R 0048 SUB.U 
00OOOA46 6E08 BGT.S 

O0OO0R48 5343 SUBQ.U 

00000A4A 066A 0046 PDD.UI 

OO0O0A4E 4E75 RTS 

0000 OASO OUT GREATER 
OOO0OA5O 5343 ~ SUBQ.U 
00000AS2 4E7S RTS 

END 
ERRORS: 
ERRORS: 



EQU * 

Q 0UT(R2).D3 

Q~IN(fl2),D3 

OUT_GREATER 

#1,D3 
Q_SIZE(A2),D3 

EQU * 
#1,D3 



* IF queue_in >» queue_out 



THEN queue^space :■ 

queue_sT:e + queue_out-queue_in 



ELSE queue_space :■ 
queue_out-queue_ 



in 
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**» 68000 ASSEMBLER SYMBOL TABLE DUMP »** 






EXTERNAL SYMBOLS 








SYMBOL 


TYPE 


DEF 


VALUE 






ABORT 10 


ABS 


109 


00000002 






IODECEARATIONS 


ABS 


246 


00000007 






LOGEOT 


ABS 


109 


00000005 






SYSGLOBALS 


ABS 


247 


OOOOOOOB 






INTERNAL SYMBOLS 








SYMBOL 


TYPE 


DEF 


EQU SYM 


VALUE 




AO 


AREG 







00000000 




Al 


AREG 







00000001 




A2 


AREG 







00000002 




A3 


AREG 







00000003 




A4 


AREG 







00000004 




AS 


AREG 







00000005 




A6 


AREG 







00000006 




A7 


AREG 







00000007 




ABORT MODEM 


REL 


1249 




000004C2 




ACK 


ABS 


499 




00000006 




ACK CHAR 


ABS 


477 




00000044 




ACK SIZE 


ABS 


502 




00000050 




ASM INIT 


REL 


529 




oooooooc 




AVAIL OFF 


ABS 


186 




00000034 




BADTMD 


ABS 


264 




OOOOOOOB 




BAD RDS 


ABS 


272 




00000013 




BAD SCT 


ABS 


273 




00000014 




BAUD 


REL 


596 




OOOOOOAO 




BAUD SU 


ABS 


437 




00000005 




BUFFER SIZE 


ABS 


495 




00000088 




BUFI OFF 


ABS 


177 




00000024 




BUF0~0FF 


ABS 


178 




00000028 




buf Busy 


ABS 


262 




00000009 




BUSY ERR 


REL 


1680 




000007C4 




CALC DIV 


REL 


1090 




OOO0O3B0 




CCR ~ 


STREG 







00000005 




CHECK AND 


REL 


2126 




OOOOOAOO 




CHECK BREAK 


REL 


1337 




00000590 




CHECK DSR CTS 


REL 


2070 




000009BE 




CHECK ERRDR 


REL 


1795 




00000874 




CHECK FHS 


REL 


1573 




0000072C 




CHECK OR 


REL 


2122 




000009F8 




CHECK QUEUE 


REL 


2061 




000009BO 




CHECK XFER IN 


REL 


1670 




000007B4 




CHECK XFER OUT 


REL 


1675 




000007BC 




CHECK XIN 


REL 


1443 




00000660 




CHECK XOFF 


REL 


1379 




000005E6 




CLEAR OUT 


REL 


1644 




00000796 




CLEAR XFER 


REL 


1637 




00000780 




CLR XDUT 


REL 


1309 




00000558 




CONNECT 


REL 


1732 




000007F6 




CONNECTED 


ABS 


467 




0000003A 




CONT_0 


REL 


1049 




00000374 
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CONT 1 


REL 


1054 




0000037C 




CONT 12 


REL 


1145 




0000042A 




CONT 13 


REL 


1154 




0000043E 




C0NT~14 


REL 


1162 




0000044E 




CONT IS 


REL 


1169 




000004S8 




CONT 16 


REL 


1173 




000004SE 




CONT 17 


REL 


1177 




00000464 




CONT 18 


REL 


1181 




0000046A 




CONT 19 


REL 


1185 




00000470 




CONT 3 


REL 


1075 




000003A2 




CONT 4 


REL 


1109 




000003DE 




CONT 5 


REL 


1130 




00000412 




C0NT~6 


REL 


1134 




00000418 




CONT 7 


REL 


1140 




00000422 




CONT ERROR 


REL 


1045 




0000036E 




CONT TABLE 


REL 


1023 




00000346 




CONV CHAR 


ABS 


478 




00000045 




CRD DUN 


ABS 


274 




00000015 




C ADR 


ABS 


176 




00000020 




00" 


DREG 







00000000 




Dl 


DREG 







00000001 




D2 


DREG 







00000002 




D3 


DREG 







00000003 




04 


DREG 







00000004 




05 


DREG 







00000005 




06 


DREG 







00000006 




07 


DREG 







00000007 




DATA 


ABS 


444 




00000011 




DC1 


ABS 


496 




00000011 




DC3 


ABS 


497 




00000013 




DISCONNECT 


REL 


1750 




0000081A 




DIVO 


ABS 


446 




00000011 




DIV1 


ABS 


447 




00000013 




DMA ERR 


REL 


1506 




000006B2 




DONT SET 


REL 


931 




000002BE 




DO BIT 4 


REL 


809 




000001C4 




DO BIT 5 


REL 


814 




000001CE 




DUFlP BUFFER 


REL 


1602 




00000744 




DUMP LOOP 


REL 


1606 




0000074A 




EIRE OFF 


ABS 


179 




0000002C 




END ERR 


REL 


1505 




000006B2 




END ISR 


REL 


1450 




0000066E 




END RESTORE 


REL 


1936 




0000092A 




END STS 2 


REL 


819 




000001D8 




END XIN 


REL 


1616 




00000762 




END XOUT 


REL 


1291 




00000522 




ENQ 


ABS 


498 




00000005 




ENQ CHAR 


ABS 


476 




00000043 




ENQ H 


REL 


1898 




000008D4 




ENQ HAND 


REL 


1407 




0000061A 




EOD SEEN 


ABS 


275 




00000016 




ERRDR EXIST 


REL 


1799 




0000087C 




ERROR INTR 


REL 


1237 




000004A4 




ESC C0~DE 


ABS 


283 


SYSGLOBALS + 


FFFFFFFE 




EXIT 14 


REL 


1167 




000004S6 




EXIT CI 


REL 


1073 




000003AO 




EXIT C4 


REL 


1128 




00000410 
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EXIT CONNECT 


REL 


1741 


00000818 




EXIT~DUMP 


REL 


1625 


00000778 




EXIT~TFR 


REL 


1581 


00000742 




EXITTdAIT 


REL 


2044 


000009AE 




GET CHAR 


REL 


1870 


000008B4 




HAND" TABLE 


REL 


1357 


000005B2 




H ISR" pm 


ABS 


175 


0000001C 




H ISR PR 


BBS 


173 


00000014 




H ISR SL 


ABS 


174 


00000018 




H~TABtE 


REL 


1889 


000008CC 




IE REG 


ABS 


435 


00000001 




INTT QUEUE 


REL 


2091 


000009DO 




INPUT END 


REL 


1433 


00000652 




INPUT INTR 


REL 


1319 


0000056C 




INPUT XFER 


REL 


1536 


000006EO 




INQUEUE 


REL 


2139 


00000B06 




INTR EN 


ABS 


445 


00000013 




INTR~EXIST 


REL 


1219 


0000048C 




INTR~ID 


ABS 


448 


00000015 




INTR SUI 


ABS 


436 


00000003 




INTR TABLE 


REL 


1226 


0000049C 




INTR XFER 


REL 


1526 


000006D4 




IN ISR 


ABS 


465 


00000038 




IOfSCBPE 


REL 


1695 


000007CA 




IOE ERROR 


ABS 


278 


FFFFFFE6 




IOE RSLT 


ABS 


280 IODECLARATIONS + 


FFFFFFBE 




IOE SC 


ABS 


281 IODECLARATIONS + 


FFFFFFBA 




10 RISC 


ABS 


276 


00000017 




10 SC 


ABS 


180 


0000002D 




IS?1 


REL 


856 


0000022A 




IS43 


REL 


852 


0000021E 




IS77 


REL 


848 


00000212 




IS85 


REL 


844 


00000206 




ISR ENTRY 


ABS 


171 


00000000 




LINE CONT 


ABS 


449 


00000017 




LINE STAT 


BBS 


451 


0000001B 




LINE SU 


ABS 


438 


00000007 




LOOP LAST 


REL 


1297 


00000534 




LOOP THRE 


REL 


1958 


00000936 




riA 


ABS 


185 


00000033 




MA U 


ABS 


184 


00000032 




MOBEM CONT 


ABS 


450 


00000019 




MODEM INTR 


REL 


1243 


000004B6 




MODEM ON 


ABS 


468 


0000003B 




MODEM STAT 


ABS 


452 


0000001D 




MOVE CUT 


REL 


1279 


00000504 




NOT RPIB 


BBS 


255 


00000002 




NOT ISR 


REL 


1980 


00000960 




NOT LSTN 


BBS 


269 


00000010 




NOT TALK 


BBS 


268 


OOOOOOOF 




NO ffCTL 


BBS 


256 


00000003 




NO CARD 


BBS 


254 


00000001 




NO CONVERT 


REL 


1348 


000005A4 




NO DATA 


ABS 


2S9 


00000006 




NO DMA 


BBS 


266 


00000000 




NO DRV 


BBS 


26S 


oooooooc 




NO_DVC 


BBS 


257 


00000004 
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NO HAND 


REL 


1427 


00000648 




NO SCTL 


BBS 


271 


00000012 




NO SPACE 


BBS 


258 


00000005 




NO WORD 


ABS 


267 


OOOOOOOE 




OK XMIT 


REL 


1830 


0000089A 




OUTPUT INTR 


REL 


1255 


000004D4 




OUTPUT XFER 


REL 


1557 


00000706 




OUTQUEUE 


REL 


2162 


00000A22 




OUT GREATER 


REL 


2190 


OOOOOASO 




OVERRUN 


REL 


1437 


00000658 




OVERRUN ERROR 


ABS 


501 


0000013A 




PUTINQ 


REL 


1428 


00000648 




QUEUE EMPTY 


REL 


2104 


OO0O09E0 




QUEUE FULL 


REL 


2116 


000009EB 




QUEUE SPACE 


REL 


2182 


000O0A3E 




Q BUFFER 


BBS 


483 


0000004C 




Q _ DESCRIPT 


BBS 


479 


00000046 




Q IN 


BBS 


481 


00000048 




Q OUT 


BBS 


482 


0000004A 




Q SIZE 


BBS 


480 


00000046 




RC"VR BLK 


BBS 


284 SYSGLOBALS + 


FFFFFFF6 




RDIVU 


REL 


1710 


000007EO 




READ END 


REL 


1939 


0000092E 




READ UART 


REL 


898 


0000027C 




RECEIVING 


ABS 


469 


0000003C 




REGULAR 


REL 


860 


00000236 




REG MAX 


BBS 


505 


00000013 




RESET IN 


REL 


2149 


00000A1C 




RESET OUT 


REL 


2172 


OOOO0A38 




RESET~REG 


ABS 


434 


00000001 




RESTORE 


REL 


1925 


00000904 




ROUND 


REL 


1720 


000007FO 




RS RS 


REL 


424 


00000000 




RS RS INIT 


REL 


514 


00000002 




RS RS ISR 


REL 


1196 


00000476 




RS RS RDB 


REL 


620 


OOOOOOCO 




RS RS RDS 


REL 


734 


0000014B 




RS RS RDU 


REL 


677 


OOOOOOFE 




RS RS TFR 


REL 


1461 


00000674 




RS RS UTB 


REL 


649 


OOOOOOEO 




RS~RSTjTC 


REL 


997 


00000324 




RS RS UTUI 


REL 


704 


00000124 




SC BUSY 


BBS 


261 


00000008 




SEND 


REL 


1953 


00000930 




SEND BCK 


REL 


1416 


00000634 




SEND HAND 


REL 


1920 


000008F2 




SER FHS 


REL 


1520 


000006C6 




SET~BIT 


REL 


806 


000001CO 




SET OUT - 


REL 


1660 


000007BE 




SET XFER 


REL 


1654 


0000079C 




SOFT RESET 


REL 


1765 


00000832 




SP 


BREG 





00000007 




SR 


STREG 





00000006 




STS 


REL 


788 


0000019E 




STS 1 


REL 


792 


000001B4 




STS 10 


REL 


916 


00000298 




STS 11 


REL 


935 


000002C2 


1-349 
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000002E2 
000002E8 
000002EE 
00000306 
0000030C 
00000312 
00000318 
0000031E 
OOOOOlAfi 
000001DC 
00000244 
00000258 
0000025E 
00000282 
0000028C 
00000292 
00000198 
00000170 
00000034 
00000040 
0000003F 
0000003E 
00000007 
00000018 
00000014 
OOOOOOOE 
OOOOOOOfl 
00000010 
OOOOOOOD 
0000001C 
OOOOOOAO 
OOOOOOOB 
000005FA 
00000020 
00000007 
0000002E 
00000011 
00000000 
00000003 
00000002 
00000004 
00000001 
00000009 
OOOOOOOfl 
00000030 
0000002C 
00000024 
00000005 
00000028 
OOOOOOSF 
00000014 
00000007 
00000438 
00000974 
0000038C 
0000039C 
0000073ft 



STS 12 


REL 


949 


STS~13 


REL 


953 


STS 14 


REL 


957 


STS IS 


REL 


968 


STS 16 


REL 


972 


STS 17 


REL 


976 


STS 18 


REL 


980 


STS 19 


REL 


984 


STS 2 


REL 


796 


STS 3 


REL 


823 


STS 4 


REL 


869 


STS 5 


REL 


880 


STS 6 


REL 


884 


STS 7 


REL 


902 


STS 8 


REL 


908 


STS 9 


REL 


912 


STS ERROR 


REL 


784 


STS TABLE 


REL 


762 


S ERROR 


ABS 


4 64 


S HflNDSH 


ABS 


473 


S LINE 


ABS 


472 


S MODEM 


ABS 


471 


TffCT OFF 


ABS 


201 


TBSZ OFF 


ABS 


224 


TBUF~0FF 


ABS 


223 


TCHR~OFF 


ABS 


220 


TCNTERR 


ABS 


263 


TCNT OFF 


ABS 


222 


TDIR OFF 


ABS 


218 


TEMP OFF 


ABS 


225 


TEMP SIZE 


ABS 


4 94 


TEND OFF 


ABS 


216 


TERM HAND 


REL 


1390 


TFIL OFF 


ABS 


226 


TFR FRR 


ABS 


260 


TIMEOUT 


ABS 


181 


TMO ERR 


ABS 


270 


TTMP" OFF 


ABS 


199 


TT B0RST 


ABS 


237 


TT DMA 


ABS 


236 


TT FHS 


ABS 


238 


TT INT 


ABS 


235 


TU5R OFF 


ABS 


202 


T By OFF 


ABS 


214 


T DtlHPRI 


ABS 


231 


T~PM OFF 


ABS 


230 


T~PR~OFF 


ABS 


227 


T~SC~OFF 


ABS 


200 


T SL OFF 


ABS 


229 


UNDERSCORE 


ABS 


500 


USER ISR 


ABS 


172 


USP 


STREG 





VAL ERR 


REL 


1150 


WRIT 


REL 


2011 


UAIT BREAK 


REL 


1062 


WAIT BREAK2 


REL 


1070 


WAIT FHS 


REL 


1578 
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UAIT GET 


REL 


184S 


UAIT~L00P 


REL 


2026 


UAIT~L00P2 


REL 


2038 


UAIT SEND 


REL 


1819 


WORD ERR 


REL 


1512 


XFER ERR 


REL 


1507 


XFER OUT 


REL 


1267 


XFER TABLE 


REL 


1489 


XI N ffCT 


ABS 


466 


XMITTING 


ABS 


470 


XMIT CHAR 


REL 


1988 


XOFF CHAR 


ABS 


475 


XOFF~SIZE 


ABS 


503 


xon Char 


ABS 


474 


XON H 


REL 


1911 


XON HAND 


REL 


1363 


XON SIZE 


ABS 


504 



QUEUE UTILITIES 

000008A2 
0000098C 
000009A4 
00000894 
000006BC 
000006B2 
000004E4 
0000069E 
00000039 
0000003D 
0000096C 
00000042 
00000028 
00000041 
000008E4 
000005BA 
00000060 
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RSTRINT 



Purpose 

RSTRINT implements the conversion of a string of digits into an integer. 

Usage 

The Compiler emits a call to this routine for STRREAD of an integer. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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fs_f readstrint 
sysglobals 



PASS 1 


COMPLETE. ERRORS 


: 






1 










def 


2 
3 

4 










refa 




FFFF 


FFEfl 


ioresult 


5 
6 

7 




0000 


OOOE 


ibadformat 




0000 


0000 


error 




8 




0000 


0001 


remainder 


9 




0000 


0002 


index 




10 




0000 


0003 


char 




11 




0000 


0004 


int 




12 




0000 


0005 


sign 




13 




0000 


0006 


oldinde 


X 


14 




0000 


0007 


temp 




15 












1$ 




0000 


0000 


return 




17 




0000 


0001 


I 




18 




0000 


0002 


aindex 




19 




0000 


0003 


string 




20 












21 




0000 


0000 


fs_frea 


dst rint 


22 


00000000 


205F 






move a . 


23 


00000002 


22SF 






moves . 


24 


00000004 


24SF 






movea . 


25 


00000006 


265F 






movea. 


26 












27 


00000008 


7600 






moveq 


28 


OOOOOOOR 


7200 






moveq 


29 


OOOOOOOC 


1213 






move .b 


30 


OOOOOOOE 


2412 






move . 1 


31 


00000010 


2C02 






move . 1 


32 


00000012 


6F06 






ble.s 


33 


00000014 


06C2 






adda 


34 


00000016 


9282 






sub.l 


35 


00000018 


6C0R 






bge. s 


36 


OOOOOOlfl 


700E 




LO 


moveq 


37 


0000001C 


6058 






bra . s 


38 












39 


0000001E 


5242 




L2 


addq 


40 


00000020 


5341 






subq 


41 


00000022 


6DF6 






blt.s 


42 


00000024 


161B 




LI 


move.b 


43 


00000026 


B63C 


0020 




cmp.b 


44 


0000002H 


67F2 






beq. s 


45 












46 


0000002C 


SOCO 






St 


47 


0000002E 


7800 






moveq 


48 












49 


00000030 


B63C 


002D 




cmp.b 


50 


00000034 


S7CS 






seq 


51 


00000036 


6706 






beq. s 


52 


00000038 


B63C 


002B 




cmp.b 


S3 


0000003C 


6608 






bne . s 


54 












55 


0000003E 


5242 




L3 


addq 


56 


00000040 


5341 






subq 


57 


00000042 


6D24 






bit .s 


58 


00000044 


161B 






move .b 



equ sysglobals-22 



equ 

equ DO 

equ Dl 

equ D2 

equ D3 

equ D4 

equ D5 

equ D6 

equ D7 

equ RO 
equ Rl 
equ R2 

equ A3 

equ * 
1 (sp)+, return 
1 spj+,I 
1 (sp)+, aindex 
1 (sp)+, string 



#0, char 

#0, remainder 

(string] , remainder 

(aindex , index 

index, oldindex 

LO 

index, st ring 

index, remainder 

LI 

♦ibadformat .error 

endit 

tl, index 
#1, remainder 
LO 

is t ring)+,char 
' ' .char 
L2 

error 
*0, int 

#'-' ,char 

sign 

L3 

#' + ' ,char 

L4 

#1 .index 

tl , remainder 

LS 

(st ring)*, char 



improper syntax for an integer 

ioresult 

characters left in string 

subscript into string 

character in question 

integer being built 

minus flag 

original value of index 



subroutine return address 
address of integer to be returned 
address of index into string 
address of source string 



sign extend digits 

get current length of string 

get subscript into it 

save in case of error 

error if < 1 

advance to first interesting character 

how many characters have we left? 

index is past end of string! 



bump user index 

any more characters? 



skip spaces 



assume error until see digit 
initialize value 

is it a minus? 



is it a plus? 



bump user index 

any more characters? 
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59 


00000046 


963C 0030 L4 


sub.b 


#'0' ,char 


60 


0000004R 


6D1C 


bit ,s 


LS 


61 


0000004C 


B63C 0009 


cmp.b 


#9, char 


62 


00000050 


6E16 


b f .s 


L5 


63 


00000052 


51C0 


error 


64 










65 


00000054 


D884 


add.l 


int, int 


66 


00000056 


69C2 


bvs.s 


LO 


67 


00000058 


2E04 


move . 1 


int , temp 


68 


0000005A 


E584 


asl.l 


t2,lnt 


69 


0000005C 


69BC 


bvs . s 


LO 


70 


0000005E 


0887 


add.l 


temp, int 


71 


00000060 


69B8 


bvs.s 


LO 


72 










73 


00000062 


9883 


sub.l 


char, int 


74 


00000064 


68D8 


bvc.s 


L3 


75 


00000066 


60B2 


bra.s 


LO 


76 










77 


00000068 


4R00 L5 


tst .b 


error 


78 


0000006R 


66AE 


bne.s 


LO 


79 


0000006C 


4R05 


tst .b 


sign 


80 


0000006E 


6604 


bne.s 


L8 


81 


00000070 


4484 


neg.l 


int 


82 


00000072 


69A6 


bvs.s 


LO 


83 


00000074 


7000 L8 


moveq 


#0,e rror 


84 










85 










86 


00000076 


2B40 FFER endit 


move . 1 


error, ior 


87 


0000007R 


6704 


beq . s 


ok 


88 


0000007C 


2406 


move.l 


oldindex, 


89 


0000007E 


7800 


moveq 


#0,int 


90 


00000080 


2482 ok 


move . 1 


index, (ai 
int, (I) 


91 


00000082 


2284 


move . 1 


92 


00000084 


4ED0 


jmp 


(return) 


93 










94 






nosyms 




95 






end 




PASS 1 


ERRORS: 








PASS 2 


ERRORS: 









is it a digit 

no error, at least one digit 
multiply integer by 10 



add value of digit 
go back for more 



were there any digits? 
was it positive 
make it positive 
all done, no errors 
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SCAN 



Purpose 

This routine scans a contiguous area of memory, comparing each byte against a test character. 

Usage 

The Compiler emits calls to this routine. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PASS 1 COMPLETE. 
1 
2 
3 
4 
5 



7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
2$ 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
PASS 1 



ERRORS: 



************************************************************************ 



00000000 
00000002 
00000004 
00000006 
00000008 
OOOOOOOR 
OOOOOOOC 
OOOOOOOE 
O0000O10 
00000012 
00000014 
00000016 
00000018 
0000001A 
0000001C 
0000001E 
00000020 
00000022 
00000024 
00000026 
00000028 
0000002R 
0000002C 
0000002E 
00000030 
00000032 
00000034 
00000036 
00000038 
0000003A 
0000003C 
0000003E 
00000040 
00000042 
00000044 
00000046 
00000048 
0000004 f) 
0000004C 

ERRORS: 



28SF 
201F 
121F 
205F 
341F 
7600 
4P30 
6730 
6D1C 
4P42 
660C 
B218 
6730 
5283 
5380 
66F6 
6028 
B218 
6624 
5283 
5380 
66F6 
601C 
5288 
4H42 
660C 
B220 
6712 
5383 
5280 
66F6 
600A 
B220 
6606 
5383 
5280 
66F6 
2F03 
4ED4 



SCAN function -- equiv 
--written for M68000 



alent to UCSD SCAN 
by John Schmidt, 10/80 



Parameters are: 



(SP) 

4 SP 

8 SP 

10 SP) 

14 SP 



return address 
count -- may be 
character to ma 
address to star 
=/<> flag coded 



< 0, long word 
tch 
t scan 

as 0/1 



» Note: no range checking is performed within this function ! 

* 
************************************************************************ 



DEF RSM_SCAN 



ASM_SCAN MOVEA.L 
MOVE . L 
MOVE.B 
MOVER. L 
MOVE 
MOVED. 
TST.L 
BEQ.S 
BLT.S 
TST.U) 
BNE.S 

SC9N1 CMP.B 

BEQ.S 
ADDQ.L 
SUBQ.L 
BNE 
BRfl.S 

SC0N2 CMP.B 

BNE.S 
RDDO.L 
SUBQ.L 
BNE 
BRR.S 

BACKSCAN RODQ.L 
TST.U 



SC@N3 



SC9N4 



EXIT 



BNE.S 

CMP.B 

BEQ.S 

SUBQ.L 

RDDQ.L 

BNE 

BRR.S 

CMP.B 

BNE.S 

SUBQ.L 

RDDQ.L 

BNE 

MOVE.L 

JMP (R4) 

END 



SP) 

SP 

SP 

SP 

.SP) ,-- 
#0,03 
DO 

EXIT 

BACKSCRN 
D2 
SCIPN2 

e5?t + 

#1,D3 
tl.DO 

SC3N1 
EXIT 

IS?T* 

tl,D3 

tl.DO 

SC@N2 

EXIT 

#1,A0 

02 

SC0N4 

-(BO) 

EXIT 

#1,03 

#1,D0 

SCW 3 

EXIT 

-rno) 

EXIT 

#1,D3 

#1,D0 

SC9N4 

D3,-(SP) 



,01 



,D1 



,D1 



,01 



GET RETURN ADDRESS 

GET COUNT 

GET CHARACTER TO MATCH 

GET START ADDRESS OF SCAN 

GET =/<> FLAG WORD 

INITIALIZE RESULT 

CHECK FOR ZERO COUNT 

RETURN IF COUNT'O 

IF NEGATIVE COUNT SCAN BACKWARDS 

CHECK =/<> FLAG TO SELECT LOOP 

LOOK FOR MATCH 
IF FOUND THEN DONE 
BUMP RESULT 
KEEP COUNT 

IF DONE THEN GET OUT 

THIS LOOP IS JUST LIKE THE ONE ABOVE 

EXCEPT FOR THIS TEST 



KLUDGE ADDRESS SINCE UE'LL DECREMENT IN LOOP 

CHECK FOR <> BBCKUARD SCAN 
LOOK FOR MATCH 
DONE IF FOUND 
DECREMENT RESULT 
KEEP COUNT 



PUT RESULT ON THE STACK 
GOTO RETURN ADDRESS 
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»** 68000 ASSEMBLER SYMBOL TABLE DUMP **» 

EXTERNAL SYnBOLS 
**« NO EXTERNAL SYMBOLS *** 

INTERNAL SYMBOLS 



SYMBOL 


TYPE 


DEF EQU SYM VALUE 


no 


PIREG 





00000000 


fll 


AREG 





00000001 


R2 


AREG 





00000002 


S3 


AREG 





00000003 


B4 


flREG 





00000004 


A5 


flREG 





00000005 


RB 


flREG 





00000006 


B7 


flREG 





00000007 


ASM SCAN 


REL 


18 


00000000 


BRCITSCAN 


REL 


41 


0000002E 


CCR 


STREG 





00000005 


DO 


DREG 





00000000 


Dl 


DREG 





00000001 


D2 


DREG 





00000002 


D3 


DREG 





00000003 


D4 


DREG 





00000004 


D5 


DREG 





00000005 


D6 


DREG 





00000006 


D7 


DREG 





00000007 


EXIT 


REL 


55 


0000004A 


SCW1 


REL 


29 


00000016 


SC0N2 


REL 


35 


00000022 


SC9N3 


REL 


44 


00000034 


SC9N4 


REL 


50 


00000040 


SP 


FlREG 





00000007 


SR 


STREG 





00000006 


USP 


STREG 





00000007 
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SETSTUFF 



Purpose 

SETSTUFF contains assembly language to perform set assignment and adding an element to a 

set. 



Usage 

The Compiler emits calls to these routines. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PASS 1 
1 
2 
3 
4 
5 
6 
7 
3 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 
55 
56 
57 
58 



COMPLETE. ERRORS: 



DEF asm_SETASSIGN 



0000 0000 asm SETASSIGN EQU * 

* o&tain sets from stack 



loopl 



00000000 266F 0004 
00000004 286F 0008 

00000008 3E1B 
OOOOOOOA 3887 
OOOOOOOC 6766 
OOOOOOOE 302F OOOC 
00000012 672C 
00000014 7400 
00000016 3607 
00000018 244B 
0000001A 4A1A 
0000001C 660A 
0000001E 5242 
00000020 5343 
00000022 6EF6 

00000024 4254 
00000026 604C 

00000028 E74A 
0000002P B042 
0000002C 6F12 

0000002E 162A 
00000032 E30B 
00000034 6504 
00000036 5242 
00000038 60F8 

0000003A B042 
0000003C 6F02 
0000003E 4E47 



00000040 322F OOOE testhigh 

00000044 3633 70FE lastword 

00000048 6608 

0000004A 5547 

0000004C 6EF6 

0000004E 4254 

00000050 6022 



00000052 3407 
00000054 E74P, 
00000056 5342 
00000058 E24B 
0000005A 64FA 

0000005C B242 
0000005E 6C02 
00000060 4E47 

00000062 38C7 



movea . 1 
move a . 1 
» place size in d7 
move.w 
move.w 
beq.s 
move .w 
beq.s 
moveq 
move .w 
movea. 1 
tst .b 
bne.s 
addq .w 
subq .w 
bgt .s 



clr .w 
bra.s 

lsl.w 
cmp.w 
ble.s 

move .b 
lsl.b 
bcs. s 
addq.w 
bra. s 

cmp.w 
ble . s 
t rap 

move ,w 
move .w 
bne. s 
subq.w 
bat .s 
clr.w 
bra.s 

move .w 

lsl.w 
subq .w 
lsr .w 
bcc . s 



4(sp] 
8(sp) 



, a3 
, a4 



NZbyte 



loop2 



NZbit 



NZword 
loop3 



cmp.w 
bge.s 
trap 
* perform assignment 
ok move.w 



(a3)+,d7 

d7,(a4) 

done2 

12(spj ,d0 

test high 

t0,d2 

d7,d3 

a3,a2 

(a2) + 

NZbyte 

#l,d2 

#l,d3 

loopl 

done2 

t3,d2 
d2,d0 
testhigh 

-I(a2),d3 

#l,d3 

NZbit 

#l,d2 

loop2 

d2,d0 

testhigh 

#7 

14(sp),dl 
-2(a3,d7.w),d3 
NZword 
#2,d7 

lastword 

(a4) 

done2 

d7,d2 
#3,d2 
#l,d2 
#l,d3 
loop3 

d2,dl 

ok 
*7 

d7,(a4)+ 



address of source 
address of dest 

size of source 
store size in dest 
check for zero length set 
dest min 

zero count 



find nonzero byte 



byte count * 8 

get first nonzero byte 

nonzero bit found 



dest max 

get last word of set 



set was empty 
byte count * 8 

last nonzero bit found 
error 
store size in dest 
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69 00000064 E447 

60 00000066 6406 

61 00000068 38DB 

62 0000006A 4A47 

63 0000006C 6706 

64 0000006E 280B 

65 00000070 5347 

66 00000072 6EFA 

67 00000074 205F 

68 00000076 DFFC 0000 

OOOC 

69 0000007C 4ED0 



EVENN 



D0NE2 



asr .w 
bcc . s 
move .w 
tst .w 
beq.s 
move.l 
subq.w 
bgt .s 
movea . 1 
adda . 1 

jmp 



#2,d7 

evenn 
(a3)+, (a4)« 

done2 
(a3)», (a4)< 
#l,d7 

evenn 
(sp)+,aO 
#12, sp 

(aO) 



determine size in long words 

even number of long words 
move "odd" word 
min size single word? 

move long words 
eliminate extra bytes in stack 
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OEF asm aDELEMENT 



ERRORS: 
ERRORS: 



#255 , d 



strt 



aO 
dO 

dO 
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71 * 

72 
73 

74 0000 007E 

75 0000007E 20SF 

76 00000080 201F 

77 00000082 0C80 0000 

OOFF 

78 00000088 6302 

79 0000008A 4E47 trap #7 

80 0000008C 225F 

81 O0000O8E 2457 

82 00000090 3E19 

83 00000092 34C7 

84 00000094 B3CA 

85 00000096 670C 
86 

87 00000098 264A 

88 0000009A 3C07 

89 0000009C 6F06 

90 0000009E 36D9 

91 OOOOOOAO 5546 

92 O00000A2 6EFA 

93 * insert an element in 

94 000000A4 48C0 

95 000000A6 81FC 0010 

96 OOOOOOAA 2A00 

97 OOOOOOflC 4845 

98 OOOOOOAE 9A7C OOOF 

99 0OO0O0B2 4445 ne 

100 000000B4 E340 

101 00000086 3200 move.w 

102 O000O0B8 5441 addq.w 

103 OOOOOOBA 3401 move.w 

104 OOOOOOBC 926A FFFE sub.w 

105 OOOOOOCO 6F0E ble.s 

106 O00000C2 3542 FFFE move.w 

107 O00000C6 47F2 2000 lea 

108 OOOOOOCA 4263 zerout clr.w 

109 OOOOOOCC SS41 subq.w 

110 OOOOOOCE 6EFA bgt .5 

111 OOOOOODO 0885 0003 exxiit bclr 

112 000000D4 6706 beq.S 

113 000000D6 0BF2 0000 bset 

114 OOOOOODR 4ED0 jmp 

115 OOOOOOOC 0BF2 0001 skiipp bset 

116 OOOOOOEO 4ED0 jmp 

117 * 

118 end 
PASS 1 
PASS 2 



asm_aOELEMENT EQ.U 
movea. 1 
move. 1 
cmpi . 1 

bls.s 

t rap 
st rt movea . 1 
movea . 1 
move .w 
move .w 
cmpa . 1 
beq. s 

* copy source set t< 
setcopy movea. 1 

move .w 
ble . s 
rept move .w 
subq .w 
bgt . s 

* insert an element 
insert ext.l 

divs 
move . 1 
swap 
sub .w 



eg.w 



!spl+ , al 
sp ,a2 
al +,d7 
d7, (a2) + 
a2,al 
insert 
the destination 
a2,a3 
d7,d6 
insert 
7al)+,(a3)+ 
#2,d6 
rept 

i set, adjust 
dO 

#16, dO 
dO,dS 
d5 

#15, dS 
dS 

#l,dO 
dO.dl 
#2,dl 
dl,d2 
-2(a2),dl 
exxiit 
d2,-2(a2) 
0(a2,d2),a3 

#di 

zerout 
#3 ( d5 
skiipp 
d5,0(a2,d0) 

d5, i(a2,d0) 
(aO) 



return address 
element number to add to set 



source add ress 

destination address 

get set size of source 

store size value 

see if source and destination are equal 



save destination address 

save size for destination 

check for size of zero 

sets are always an even number of bytes 



ing the size of the destination if needed 

byte offset in low word 

bit offset from left of byte 

bit offset from right 

make dO a byte offset 

compute final size into dl 

put zeros in the two bytes containing 

the new bit if it is beyond current size 

store appropriate size for set 
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PAGE 4 [2.0] 11/4/82 13:54:57 ASSEMBLY OF SETSTUFF.TEXT 
*** S8000 ASSEMBLER SYMBOL TABLE DUMP *** 

EXTERNAL SYMBOLS 
*** NO EXTERNAL SYMBOLS *** 

INTERNAL SYMBOLS 



SYMBOL 


TYPE 


DEF EQU SYM VALUE 


AO 


AREG 





00000000 


Al 


AREG 





00000001 


A2 


AREG 





00000002 


A3 


AREG 





00000003 


A4 


AREG 





00000004 


AS 


AREG 





00000005 


A6 


AREG 





00000006 


A7 


AREG 





00000007 


ASM ADELEMENT 


REL 


74 


0000007E 


ASM SETASSIGN 


REL 


4 


00000000 


CCR 


STREG 





00000005 


DO 


DREG 





00000000 


01 


DREG 





00000001 


D2 


DREG 





00000002 


D3 


DREG 





00000003 


D4 


DREG 





00000004 


D5 


DREG 





00000005 


D6 


DREG 





00000006 


D7 


DREG 





00000007 


D0NE2 


REL 


67 


00000074 


EVENN 


REL 


$4 


0000006E 


EXXIIT 


REL 


111 


OOOOOODO 


INSERT 


REL 


94 


000000A4 


LASTUORD 


REL 


41 


00000044 


L0OP1 


REL 


17 


0000001A 


L00P2 


REL 


31 


00000032 


L0OP3 


REL 


SO 


00000056 


NZBIT 


REL 


36 


0000003A 


NZBYTE 


REL 


26 


00000028 


NZUORD 


REL 


48 


00000052 


OK 


REL 


53 


00000062 


REPT 


REL 


90 


0000009E 


SETCOPY 


REL 


8 7 


00000098 


SKIIPP 


REL 


115 


0O0000DC 


SP 


AREG 





00000007 


SR 


STREG 





00000006 


STRT 


REL 


80 


0O00008C 


TESTHIGH 


REL 


40 


00000040 


USP 


STREG 





00000007 


ZEROUT 


REL 


103 


000000CA 
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STRG1 



Purpose 

STRG 1 contains assembly language routines to support these Pascal routines: 

• STRLTRIM 
• STRRTRIM 
• STRRPT 

• STRMOVE 

Usage 

The Compiler emits calls to these routines. 



(c) Copyright Hewlett-Packard Company, 19 83. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PRGE 


1 [2.0] 11/4/82 


13: 


55:07 ASSEMBLY 


OF STRG1.TEXT 




pass 1 


COHPLETE. ERRORS 


: 










1 




0000 


0000 


RET 


EQU 


PO return address 




2 




0000 


0001 


SfiDDR 


EQU 


Rl source address 




3 




0000 


0002 


DfiDDR 


EQU 


R2 destination address 




4 




0000 


0003 


SRCEND 


EQU 


R3 source end 




5 
6 
7 




0000 


0004 


PJEMP 


EQU 


A4 temporary fl register 






0000 


0000 


SLEN 


EQU 


DO source length 




8 




0000 


0001 


S INDEX 


EQU 


Dl source index 




9 




0000 


0002 


CURSLEN 


EQU 


D2 current source length 




10 




0000 


0003 


DINDEX 


EQU 


D3 destination index 




11 




0000 


0004 


DMfiX 


EQU 


D4 destination max 




12 




0000 


0005 


COUNT 


EQU 


D5 




13 




0000 


0005 


INDEX 


EQU 


D5 string index 




14 




0000 


0006 


TEMPI 


EQU 


D6 temporary D register 




15 




0000 


0007 


TEMP2 


EQU 


D7 temporary D register 




16 








* 








17 










refa 


SYSGLOBRLS 




18 




FFFF 


FFFE 


ESCRPECODE EQU 


SYSGLOBRLS-2 




19 








* 








20 








* 








21 








* 








22 








* procedure ps 


ubtopsub(dsublen: integer; 




23 








* 




var dsub: paoctype; 




24 








* 




dindex: integer; 




25 








* 




ssublen: integer; 




26 








* 




var ssub: paoctype; 




27 








* 




sindex,slen: integer); 




28 








* 








29 




0000 


0000 


PSM_PSUBTOPSUB 


EQU * 




30 










def 


BSM_PSUBTOPSUB 




31 








* 








32 


00000000 


20SF 






movea. 1 


(sp)+,RET 




33 


00000002 


201F 






move .1 


sp)+,SLEN 




34 


00000004 


6E08 






bgt .5 


llLli 




35 


00000006 


DFFC 


oooo 




adda.l *24,sp 








0018 












36 


oooooooc 


4ED0 






1m 
move .1 


p (RET) 




37 


O0OO0OOE 


221F 




LLLL1 


(sp)+,SIN0EX 




38 

39 

40 


00000010 


6F00 


0088 




ble 


error 




00000014 


22SF 






movea . 1 


(sp)+, SRDDR 




41 


00000016 


24 IF 






move. 1 


sp)+, CURSLEN 
#1, CURSLEN 




42 


00000018 


D4BC 


0000 




add.l 








0001 












43 


0000001E 


2C01 






move .1 


SINDEX, TEMPI 

SLEN, TEMPI 




44 


00000020 


DC80 






add.l 




45 


00000022 


B486 






cmp. 1 


TEMPI, CURSLEN 




46 
47 
48 


00000024 


6D74 






bit .s 


error 




00000026 


261F 






move. 1 


(sp)+, DINDEX 




49 
50 
51 


00000028 


6F70 






ble.s 


error 




0000002A 


2C03 






move. 1 


DINDEX. TEMPI 
SLEN, TEMPI 




52 


0000002C 


DC80 






add.l 




53 


0000002E 


245F 






movea . 1 


(sp)+, DfiDDR 




54 


00000030 


281F 






move . 1 


sp)+, DMfiX 

#1 ,DMRX 




55 


00000032 


D8BC 


0000 




add.l 








0001 
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56 


00000038 


B886 






cmp. 1 


TEMPI, DMRX 




57 
58 
59 


0000003A 


6DSE 






bit .s 


error 




0000003C 


43F1 


10FF 




lea 


-1 (SfiDDR, SINDEX.UI) , SfiDDR 




60 


00000040 


45 F2 


30FF 




lea 


-1 DfiDDR, DINDEX. Ulj , DfiDDR 




61 


00000044 


6000 


OOfiO 




bra 


TRANSFER 




62 








* 








63 








* 








64 








* 








65 








* proc 


edure ssubtopsub [dsublen : integer; 




66 








* 




var dsub: paoctype; 




67 








* 




dindex: integer; 




68 








* 




var ssub: string; 




69 








* 




sindex.slen: integer); 




70 








* 








71 




0000 


0048 


RSM_SSUBTOPSUB 


EQU * 




72 










def 


RSM_SSUBTOPSUB 




73 








* 








74 


00000048 


205F 






movea . 1 


(sp)+,RET 




75 


0000004A 


201F 






move . 1 


sp *,SLEN 




76 


0000004C 


6E08 






bgt .s 


LLLi 




77 


0000004E 


DFFC 


0000 




adda.l #22, sp 








0016 












78 


00000054 


4ED0 






imp (RET) 




79 


00000056 


221F 




LLL1 


move . 1 


(sp)+, SINDEX 




80 
81 
82 


00000058 


6F40 






ble.s 


error 




0000005P 


225F 






movea. 1 


(sp)-f, SfiDDR 
#0, CURSLEN 
(SADDR), CURSLEN 
#1, CURSLEN 




83 


0000005C 


7400 






moveq 




84 


0000005E 


1411 






move.b 




85 


00000060 


5242 






addq .w 




86 


00000062 


2C01 






move . 1 


SINDEX. TEMPI 
SLEN, TEMPI 




87 


00000064 


DC80 






add.l 




88 


00000066 


B486 






cmp.l 


TEMPI, CURSLEN 




89 
90 
91 


00000068 


6D30 






bit .s 


error 




00000|}6A 


3C1F 






move .w 


(sp)+, TEMPI 




92 


0000006C 


261F 






move . 1 


(spj+, DINDEX 




93 
94 

95 


0000006E 


6F2A 






ble.s 


error 




00000070 


2C03 






move . 1 


DINDEX, TEMPI 
SLEN, TEMPI 




96 


00000072 


DC80 






add.l 




97 


00000074 


245F 






movea . 1 


(sp)+,DRDDR 




98 


00000076 


281F 






move . 1 


sp +, DMfiX 
#1, DMfiX 




99 


00000078 


5284 






addq . 1 




100 


0000007R 


B886 






cmp.l 


TEMPI, DMRX 




101 


0000007C 


6D1C 






bit .s 


error 




102 
















103 


0000007E 


43F1 


1000 




lea 


(SADDR, S INDEX. U), SfiDDR 
-1 (DfiDDR, DINDEX. U) ,DADDR 




104 


00000082 


45F2 


30FF 




lea 




105 


00000086 


605E 






bra . s 


TRANSFER 




106 








* 








107 








* 








108 








* 








109 








* procedure ssubtossub (var dsub: string; 




110 








* 




dindex: integer; 




111 








* 




var ssub: string; 
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112 
113 
114 
115 
116 
117 
118 
119 
120 

121 

122 
123 

124 

125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
ISO 
1S1 
1S2 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 



sindex,slen: integer) 



0000 0088 ASM SSUBTOSSUB EQU * 

def ASM..SSUBTOSSUB 



00000088 
0000008A 
OO00OO8C 

0000008E 

00000094 
00000096 
00000098 
0000009A 

OOOOOOAO 
0O00OOA2 
0OO0OOA4 
000000A6 
0OO0OOA8 
OOOOOOAA 
OOOOOOAC 
OOOOOOAE 
OOOOOOBO 



205F 

201F 

6E08 

DFFC 0000 

0014 

4ED0 

221F 

6E08 

3B7C FFF8 

FFFE 

4E4B 

22SF 

7400 

1411 

5242 

2C01 

0C30 

B486 

6DE8 



OCO0OOB2 3C1F 
00O0O0B4 261F 
000000B6 6FE2 



O0O0O0B8 
OOOOOOBA 
OOOOOOBC 
OOOOOOBE 
OOOOOOCO 
000000C2 
000000C4 
000000C6 
O000O0C8 
OOOOOOCA 



2C03 
DC80 
245F 

7800 
181F 
7E00 
3E04 
5287 
BE86 
60CE 



OOOOOOCC 7EO0 

OOOOOOCE 1E12 

00000000 5287 

000000C2 BE83 

00000004 6DC4 

00000006 BE46 

000000D8 6C04 

OOOOOOOA 5346 

OOOOOODC 1486 



movea.l (sp)*,RET 
move.l (sp)*,SLEN 
bgt.s LI 

adda.l #20, sp 



imp 
move .1 ( sp) 
bgt.s L2 

move .w 



(RET) 
-.SINDEX 

#-8,ESCAPEC0DE(aS) 



trap 
movea.l 
moveq 
move . b 
addq .w 
move . 1 
add. 1 
cmp . 1 
bit ,s 



#10 

(sp)+,SADDR 
#0, CURSLEN 
(SADDR), CURSLEN 
#1, CURSLEN 
SINDEX, TEMPI 
SLEN, TEMPI 
TEMPI, CURSLEN 



move .w 
move . 1 
ble.s 

move . 1 
add.: 
movea . 1 
moveq 
move . b 
moveq 
move .w 
addq . 1 
cmp. 1 
bit .s 



(sp)+, TEMPI 
(sp)*, DINDEX 
error 

DINDEX. TEMPI 

SLEN, TEMPI 

(sp)+, DADDR 

#0,DMAX 

(sp)*,DMAX 

#0,TEMP2 

DMAX.TEMP2 

#1,TEMP2 

TEMPI ,TEMP2 

error 



moveq #0,TEMP2 

move.b (DADDR) .TEMP2 

addq.l #1,TEMP2 

cmp.l DINDEX, TEMP2 

blt.s error 

cmp.w TEMPI, TEMP2 

bge.s L3 

Sdbq.w #1, TEMPI 

move.b TEMPI , (DADDR ) 

* 

* End of error checking. 



OOOOOOOE 43F1 1000 L3 
O0OO00E2 45F2 3000 



lea 
lea 



0(SADDR, SINDEX. U) , SADDR 
(DADDR, DINDEX. Ul), DADDR 



0000 00E6 TRANSFER equ * 
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187 


000000E6 


B5C9 




168 


O0OOO0E8 


6E08 




169 








170 








171 








172 


000000EA 


14D9 




173 


000000EC 


5380 




174 


O0O000EE 


6EFR 




175 


000000F0 


4ED0 




176 








177 








178 








179 




0000 


00F2 


180 


O000OOF2 


43F1 


0000 


181 


000000F6 


45F2 


0000 


182 


000000FA 


1521 




183 


OOOOOOFC 


5380 




184 


000000FE 


6EFA 




185 


00000100 


4ED0 




186 








187 








188 








189 








190 








191 








192 








193 








194 








195 




OOOO 


0102 


196 








197 








198 


00000102 


205F 




199 


00000104 


201F 




200 


00000106 


6EC8 




201 


00000108 


DFFC 
0016 


0000 


202 


0000010E 


4EC0 




203 


00000110 


221F 




204 


00000112 


6F86 




205 








206 


00000114 


22SF 




207 


00000116 


241F 




208 


00000118 


5282 




209 


0000011A 


2CC1 




210 


OOOOOUC 


DC80 




211 


0000011E 


B486 




212 


00000120 


6D00 


FF78 


213 








214 


00000124 


261F 




215 


00000126 


6F00 


FF72 


216 








217 


0000012A 


2C03 




218 


OO0OO12C 


DC80 




219 


0000012E 


24SF 




220 


00000130 


7800 




221 


00000132 


181 F 




222 


OC000134 


7E00 





cmpa . 1 
bgt .s 



SADDR.DPDDR 
topdown 



* Transfer from bottom to top 



move . b 
Sdbq . 1 
bgt .s 



(SPDDR) + , (DflDDR)-t 

#1,SLEN 

L4 

(RET) 



* Transfer from top to bottom 
00F2 topdown equ * 



L5 



procedure psubtossub (var dsub: string; 
dindex: integer; 
ssublen : intege r; 
var 55 Lib: paoctype; 
sindex,slen: integer) 



lea 


0(SADDR 


SLEN), SADDR 


lea 


DADDR 


SLEN .DADDR 
, -(DADDR) 


move .b 


- SADDR 


subq . 1 


#1,SLEN 




bgt . s 


L5 




jmp 


(RET) 





ASM. 


PSUBTOSSUB EQU * 

def ASM_PSUBTOSSUB 


movea.l (sp)+,RET 
move.l (sp)+,SLEN 
bgt.s LL1 

adda.l #22, sp 


LL1 


imp (RET) 
move.l (sp)*, SINDEX 
ble. s error 




movea.l (sp)*, SADDR 
move.l spit, CURSLEN 



move.l SINDEX i TEMPl 

add.l SLEN, TEMPI 

cmp.l TEMPI, CURSLEN 

bit error 



move . 1 
ble 

move . 1 
add.l 
movea . 1 
moveq 
move .b 
moveq 



(sp)*, DINDEX 
error 

DINDEX, TEMPI 
SLEN, TEMPI 
(sp)*, DADDR 
#0,0MAX 
(sp)*,DMAX 
#0,TEMP2 
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223 


00000136 


3E04 








move .w 


DMAX.TEMP2 
#1,TEMP2 




224 


00000138 


5287 








addq . 1 




225 


0000013A 


BE86 








cmp. 1 


TEMPI, TEMP2 




226 


0000013C 


6000 


FFSC 






bit 


error 




227 


















228 


00000140 


7E00 








moveq 


#0,TEMP2 

(DADDR),TEMP2 

#1,TEMP2 




229 


00000142 


1E12 








move .b 




230 


00000144 


5287 








addq . 1 




231 


00000146 


BE83 








cmp. 1 


DINDEX,TEMP2 




232 


00000148 


6D00 


FF50 






bit 


error 




233 


















234 


0000014C 


BE46 








cmp.w 


TEMPI, TEMP2 




235 


0000014E 


6C04 








bge. s 


LL2 




236 


00000150 


5346 








subq .w 


#1, TEMPI 




237 


00000152 


1486 








move .b 


TEMPI, (DAODR) 




238 


















239 


00000154 


43F1 


10FF 


LL2 


lea 


-1 (SADDR,SINDEX.LI) .SADDR 
(DAODR, DINDEX.U) , DAODR 
TRANSFER 




240 


00000158 


45F2 


3000 






lea 




241 


0000015C 


6088 








bra. s 




242 








* 










243 








* 










244 








* 










245 








* 


function strrtrim(s: stringmax): stringmax; 




246 








* 










247 








* 










248 




0000 


015E 


ASM..STRRTRIM EQU * 




249 












OEF ASM_STRRTRIM 




250 








* 










251 


0000015E 


20SF 








movea. 1 


(sp)+,RET 




252 


00000160 


22SF 








move a . 1 


(sp}+, SADDR 




253 


00000162 


245F 








movea. 1 


(spj+.DADDR 

(tO.SLEN 
(SADDR'I+.SLEN 
0(SADDR,SLEN.U) .SRCEND 




254 


00000164 


7000 








moveq 




255 


00000166 


1019 








move .b 




256 


00000168 


47F1 


0000 






lea 




257 


0000016C 


S240 








addq .w 


#1,SLEN 




258 


0000016E 


5340 




rt riml 


subq .w 


#1,SLEN 
null 




259 


00000170 


6F06 








ble.s 




260 


00000172 


0C23 


0020 






cmpi ,b 


#32, -(SRCEND) 




261 


00000176 


67F6 








beq . s 


rt riml 




262 


















263 


00000178 


14C0 




nu 


11 


move .b 


SLEN, (DADDRJ+ 




264 


0000017A 


6706 








beq . s 


ret rn 




265 


















266 


0000017C 


14D9 




rt 


rim2 


move .b 


(SADDR)+, (DADDR)+ 
#1,SLEN 




267 


0000017E 


5340 








subq .w 




268 


00000180 


6EFA 








bgt.s 


r t r irr>2 




269 


00000182 


4ED0 




ret rn 


jmp 


(RET) 




270 








* 










271 








* 










272 








* 










273 








* 


function st rlt rim(s: stringmax): stringmax; 




274 








* 










275 








* 










276 




0000 


0184 


ASM STRLTRIil EQU » 




277 












DEF ASM_STRLTRIM 




278 








* 










279 


00000184 


20SF 








movea . 1 


(sp)*,RET 
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280 


00000186 


225F 








movea . 1 


(sp)+, SADDR 




281 


00000188 


245F 








movea . 1 


sp)+,DADDR 
#0,SLEN 

( SADDR )+, SLEN 




282 


0000018A 


7000 








moveq 




283 


0000018C 


1019 








move . b 




284 


0000018E 


670C 








beq . s 


1 1 r im2 




285 


00000190 


6004 








bra.s 


It riml 




286 


















287 


00000192 


5340 




It 


rimO 


subq.w 


#1,SLEN 




288 


00000194 


6706 








beq . s 


ltrim2 




289 


















290 


00000196 


0C19 


0020 


It 


rirnl 


cmpi .b 


#32, (SADDR)* 




291 


0000019A 


67F6 








beq . s 


It rimO 




292 


















293 


0000019C 


14C0 




It 


rim2 


move .b 


SLEN, (DADDRJ+ 




294 


0000019E 


6700 








beq.s 


ret rnn 




295 


















296 


OOOOOlflO 


43E9 


FFFF 






lea 


-1 (SADDR) , SADDR 
(SADDRJ+, (DADDRJ+ 
#1,SLEN 




297 


000001A4 


14D9 




It 


rim3 


move .b 




298 


000001A6 


534-0 








subq.w 




299 


000001fl8 


6EFA 








bgt ,s 


It rim3 




300 


000001AA 


4ED0 




ret rnn 


jmp 


(RET) 




301 








* 










302 








* 










303 








* 










304 








* 


function strrpt(s: stringmax; count: integer) 




305 








* 






: stringmax; 




306 








* 










307 








* 










308 




0000 


01AC 


ASM STRRPT EQU * 




309 












DEF ASM STRRPT 




310 








* 










311 


000001AC 


205F 








movea . 1 


(sp)+,RET 




312 


000001PIE 


2fllF 








move . 1 


sp +, COUNT 




313 


OOOOOIBO 


225F 








movea . 1 


sp)+, SADDR 




314 


00O001B2 


24SF 








movea . 1 


sp)+,DAD0R 
#0,SLEN 
(SADDR)+,SLEN 
COUNT, TEMPI 
#255, TEMPI 




315 


000001B4 


7000 








moveq 




316 


000001B6 


1019 








move .b 




317 


000001B8 


2C0S 








move. 1 




318 


000001BA 


0C86 


0000 






cmpi . 1 








OOFF 














319 


000001CO 


6200 


FED8 






bhi 


error 




320 


















321 


000001C4 


CDCO 








muls 


SLEN, TEMPI 




322 


000001C6 


0C86 
OOFF 


0000 






cmpi . 1 


#255, TEMPI 




323 


000001CC 


6E00 


FECC 






bgt 


error 




324 


















325 


OOOOOIDO 


14C6 








move .b 


TEMPI, (DADDR)+ 




326 


000001D2 


670E 








beq.s 


ret rrn 




327 


















328 


000001D4 


2849 




rp 


to 


movea . 1 


SADDR, ATEMP 
SLEN, TEMPI 




329 


000001D6 


2C00 








move . 1 




330 


000001D8 


14DC 




rp 


tl 


move -b 


(ATEMP)+, (DADDR)* 
#1, TEMPI 




331 


000001DA 


5346 








subq .w 




332 


000001DC 


6EFP 








bgt.s 


rptl 




333 


000001DE 


5345 








subq .w 


#1 , count 




334 


OOOOOIEO 


6EF2 








bgt.s 


rptO 
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000001E2 4ED0 retrrn jmp (RET) 



335 
336 

PASS 1 ERRORS: 
PASS 2 ERRORS: 



]mp 
end 
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*** 68000 ASSEMBLER SYMBOL TABLE DUMP *** 
EXTERNAL SYMBOLS 



SYMBOL 


TYPE 


DEF VALUE 




SYSGLOBALS 


ABS 


17 00000002 




INTERNAL SYMBOLS 




SYMBOL 


TYPE 


DEF EQU SYM 


VALUE 


AO 


PREG 





00000000 


Al 


AREG 





00000001 


A2 


AREG 





00000002 


A3 


AREG 





00000003 


A4 


AREG 





00000004 


A5 


AREG 





00000005 


A6 


RREG 





00000006 


A7 


PREG 





00000007 


ASM PSUBTOPSUB 


REL 


29 


00000000 


ASM PSUBTOSSUB 


REL 


195 


00000102 


ASM~SSUBTOPSUB 


REL 


71 


00000048 


ASM SSUBTOSSUB 


REL 


114 


00000088 


ASM~STRLTRIM 


REL 


276 


00000184 


ASM STRRPT 


REL 


308 


000001AC 


ASM STRRTRIM 


REL 


248 


0000015E 


ATEfiP 


AREG 


5 


00000004 


CCR 


STREG 





00000005 


COUNT 


DREG 


12 


00000005 


CURSLEN 


DREG 


9 


00000002 


DO 


DREG 





00000000 


Dl 


DREG 





00000001 


D2 


DREG 





00000002 


D3 


DREG 





00000003 


D4 


DREG 





00000004 


DS 


DREG 





00000005 


D6 


DREG 





00000006 


D7 


DREG 





00000007 


DADDR 


RREG 


3 


00000002 


D INDEX 


DREG 


10 


00000003 


DMAX 


DREG 


11 


00000004 


ERROR 


REL 


124 


0000009A 


ESCAPECODE 


ABS 


18 SYSGLOBALS 


* FFFFFFFE 


INDEX 


DREG 


13 


00000005 


LI 


REL 


122 


00000096 


L2 


REL 


126 


000000A2 


L3 


REL 


163 


OOOOOODE 


L4 


REL 


172 


OOOOOOEA 


L5 


REL 


182 


OOOOOOFA 


LL1 


REL 


203 


00000110 


LL2 


REL 


239 


00000154 


LLL1 


REL 


79 


00000056 


LLLL1 


REL 


37 


OOOOOOOE 


LTRIMO 


REL 


287 


00000192 


LTRIM1 


REL 


290 


00000196 


LTRIM2 


REL 


293 


0000019C 


LTRIM3 


REL 


297 


000001A4 
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NULL 


REL 


263 


RET 


AREG 


1 


RETRN 


REL 


269 


RETRNN 


REL 


300 


RETRRN 


REL 


335 


RPTO 


REL 


328 


RPT1 


REL 


330 


RTRIM1 


REL 


258 


RTRIM2 


REL 


266 


SFIDDR 


flREG 


2 


SINDEX 


DREG 


8 


SLEN 


DREG 


7 


SP 


flREG 





SR 


STREG 





SRCENO 


flREG 


4 


TEMPI 


DREG 


14 


TEMP2 


DREG 


15 


TOPDOUN 


REL 


179 


TRANSFER 


REL 


166 


USP 


STREG 






00000178 
OOOOOOOO 
00000182 
000001AA 
000001E2 
000001D4 
000001D8 
0000016E 
0000017C 
00000001 
00000001 
OOOOOOOO 
00000007 
00000006 
00000003 
00000006 
00000007 
OOOO0OF2 
OO0O0OE6 
00000007 
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STRG2 



Purpose 

STRG2 contains assembly language routines to support these Pascal routines: 

• STRAPPEND 

• STRINSERT 

• STRDELETE 

• APPEND 

• INSERT 

• DELETE 

• COPY 

• CONCAT 

Usage 

The Compiler emits calls to these routines. 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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PASS 1 


COMPLETE. ERRORS 


: 










1 


0000 


0000 


RET 


EQU 


AO return address 




2 


0000 


0001 


SADDR 


EQU 


Al source address 




3 


0000 


0002 


DADDR 


EQU 


A2 destination address 




4 


0000 


0003 


SRCEND 


EQU 


A3 source end 




5 
6 
7 


0000 


0004 


ATEMP 

* 

SLEN 


EQU 


A4 temporary A register 




oooo 


0000 


EQU 


DO source length 




8 


0000 


0001 


SINOEX 


EQU 


Dl source index 




9 


0000 


0002 


CURSLEN 


EQU 


D2 current source length 




10 


0000 


0003 


DINDEX 


EQU 


D3 destination index 




11 


0000 


0004 


DMAX 


EQU 


D4 destination max 




12 


0000 


0005 


COUNT 


EQU 


DS 




13 


0000 


0005 


INDEX 


EQU 


D5 string index 




14 


0000 


0006 


TEMPI 


EQU 


D6 temporary D register 




15 


0000 


0007 


TEMP2 


EQU 


D7 temporary register 




16 






* 








17 








ref a 


SYSGLOBALS 




18 


FFFF 


FFFE 


ESCAPECODE EQU 


SYSGLOBALS-2 




19 






* 








20 






* 








21 






* proc 


edure sa 


ppend(var dest: string; 




22 






* 




src: stringmax); 




23 






* 








24 






* 








25 


0000 


0000 


ASM_SAPPEND EQU * 




26 








DEF ASM_SAPPEND 




27 






* 








28 


00000000 205F 






movea . 1 


(sp)+,RET 




29 


00000002 225F 






movea . 1 


sp W, SADDR 




30 


00000004 24SF 






movea . I 


spj+, DADDR 
tO.DMAX 




31 


00000006 7800 






moveq 




32 


00000008 181F 






move .b 


(sp)+,DMAX 
#0, SLEN 
(SADDR)+,SLEN 




33 


OOOOOOOR 7000 






moveq 




34 


OOOOOOOC 1019 






move .b 




35 


OOOOOOOE 6718 






beq.s 


ret rrnn 




36 


00000010 7C00 






moveq 


#0, TEMPI 
(DADDR), TEMPI 
TEMPI, TEMP2 
SLEN,TEMP2 




37 


00000012 1C12 






move .b 




38 


00000014 3E06 




apendO 


move .w 




39 


00000016 DE40 






add .w 




40 


00000018 BE44 






cmp.w 


DMAX.TEMP2 




41 


0000001R 6ES6 






bgt .s 


error 




42 


0000001C 14C7 






move .b 


TEMP2, (DADDR)+ 
OjDADDR, TEMPI .U) , DADDR 
(SADDR)*, (0ADDRJ+ 
tl.SLEN 




43 


0000001E 45F2 


6000 




lea 




44 


00000022 1409 




apendl 


move .b 




45 


00000024 5340 






subq .w 




46 


00000026 6EFA 






bgt .s 


apendl 
(RET) 




47 


00000028 4E00 




ret rrnn 


jmp 




48 






* 








49 






* 








SO 






* 








51 






* proc 


edure insert(src: stringmax; 




52 






* 




var dest: string; index: integer); 




S3 






* 








54 






* 








55 


0000 


002A 


ASM_INSERT EQU * 




56 








DEF ASM_INSERT 




57 






* 








58 


0000002A 205F 






movea . 1 


(sp)+,RET 




PAGE 


2 [2.0] 11/4/82 


13 : 


54:38 ASSEMBLY 
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59 


0000002C 2A1F 






move . 1 


(sp)*, INDEX 




60 


0000002E 245F 






movea . 1 


sp}+, DADDR 
#0,DMAX 




61 


00000030 7800 






moveq 




62 


00000032 181F 






move .b 


(sp)*,DMAX 




63 


00000034 225F 






movea . 1 


sp]+, SADDR 




64 


00000036 7C0O 






moveq 


#0, TEMPI 
(DADDR), TEMPI 
#0,SLEN 
(SADDR)+,SLEN 




65 


00000038 1C12 






move .b 




66 


0000003A 7000 






moveq 




67 


0000003C 1019 






move . b 




68 
69 
70 


0000003E 6730 






beq . s 


ret t rn 




00000040 2E06 






move . 1 


TEMPI, TEMP2 




71 


00000042 5287 






addq.l 


#1 .TEMP2 
INDEX, TEMP2 
apendO 




72 


00000044 BE85 






cmp.l 




73 


00000046 67CC 






beq. 5 




74 


00000048 6D28 






bit .s 


er ror 




75 


0000004P, 3E06 






move .w 


TEMPI. TEMP2 
SLEN.TEMP2 




76 


0000004C DE40 






add .w 




77 


0000004E BE44 






cmp.w 


DMAX.TEMP2 




78 


00000050 6E20 






bgt .s 


er ror 




79 


00000052 14C7 






move .b 


TEMP2. (DADDR)+ 
0(DADDR, TEMPI .Id), DADDR 
0]DADDR,SLEN.U),ATEMP 
TEMPI, TEMP2 




80 


00000054 45F2 


6000 




lea 




81 


00000058 49F2 


oooo 




lea 




82 


0000005C 3E06 






move .w 




83 


0000005E 9E45 






sub .w 


INDEX. TEMP2 
-(DADDR), -(ATEMP) 

#1,TEMP2 




84 


00000060 1922 




insertl 


move.b 




85 


00000062 5347 






subq ,w 




86 


00000064 6CFPI 






bge . s 


insertl 




87 


00000066 43F1 


oooo 




lea 


0(SADDR,SLEN.ld),SADDR 
-(SADDR), -(ATEMP) 




88 


0000006A 1921 




insert2 


move . b 




89 


0000006C 5340 






subq .w 


#1,SLEN 




90 


0000C06E 6EFB 






bgt .s 


insert2 




91 


00000070 4ED0 




ret t rn 


jmp 


(RET) 




92 






* 








93 






* 








94 


00000072 3B7C 

FFFE 

00000078 4E4A 


FFF8 


error 


move.w #-8,ESCAPEC0DE(aS) 




95 






trap #10 




96 






* 








97 






* 








98 






* 








99 






* procedure scopyfvar dest: string; 




100 






* 




src: stringmax; 




101 






« 




index, length : integer); 




102 






* 








103 






* 








104 


0000 


007A 


ASM_SCOPY EQU * 




105 








DEF ASM SCOPY 




106 






* 








107 


0000007A 20SF 






movea . 1 


(sp)*,RET 




108 


0000007C 201F 






move . 1 


(sp)*,SLEN 




109 


0000007E 6E0C 






bgt . s 


copyO 




110 


00000080 DFFC 


OOOO 




adda.l #8,sp 






0008 












111 


00000086 245F 






movea. 1 (sp)+. DADDR 




112 


00000088 4212 






cl 


r.b OADDR) 




113 


0000008A 4ED0 






jm 


P (RET) 
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137 
138 
139 
140 
141 
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143 
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145 
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148 
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copyO 



0000008C 2B1F 
0000008E 6FE2 

00000090 22SF 

00000092 245F 

00000094 7400 

00000096 1411 

00000098 5242 

0000009B 9485 

0000009C 6D04 

0000009E B042 
OOOOOOBO 6ED0 

000000B2 14C0 
000000B4 43F1 
000000B8 14D9 
OOOOOOBA 5340 
OOOOOOBC 6EFB 
OOOOOORE 4ED0 



move .1 
ble.s 



(sp)+, INDEX 
error 



movea.I (sp)+,SHDDR 
movea.I (sp + . DBDDR 
#0, CURSLEN 



copyl 



moveq 
move -b 
addq.w 
sub.l 
bit .s 

cmp.w 
bgt .5 

move .b 
lea 

move .b 
subq .w 
bgt . s 
jmp 



(SflDDR), CURSLEN 
#1. CURSLEN 
INDEX, CURSLEN 
error 

CURSLEN, SLEN 
error 

SLEN. (DBDOR)+ 

OfSADDR, INDEX. Ul) ,SADDR 

(SBDDRJ+, (DADDRJ+ 

#1,SLEN 

copyl 

(RET) 



procedure delete(var dest : string; 

index, length: integer) 



OOBO RSn DELETE 
DEF 



EQU * 

ASM DELETE 



OOOOOOBO 20SF 
000000B2 201F 
000000B4 6E08 
O0O000B6 DFFC 0000 

0008 
OOOOOOBC 4ED0 
OOOOOOBE 2B1F 
OOOOOOCO 6FB0 

O0O0OOC2 245F 
O0OOOOC4 7400 
000000C6 1412 
00OOOOC8 9480 
OOOOOOCfl 6DB6 

OOOOOOCC 3C02 
OOOOOOCE 5246 
OOOOOODO 9C45 
OOO00OD2 6D9E 

00000004 1482 
O0OOOOD6 45F2 5000 
OOOOOODB 43F2 0000 
OOOOOODE 14D9 
OOOOOOEO 5346 
O0OOOOE2 6EFfl 
O0OOOOE4 4ED0 



movea. 1 
move . 1 
bgt .s 

adda 



de 



imp 



(sp)* 
error 



,RET 
,SLEN 

#8,sp 

(RET) 
.INDEX 



movea.I (spl+.DBDDR 
#0,CURSL 



LEN 



(dAdDR), CURSLEN 
SLEN, CURSLEN 



moveq 

move .b 

sub.l 

bit . s error 

move.w CURSLEN, TEMPI 

addq #1. TEMPI 

sub.w INDEX, TEMPI 

blt.s error 



dell 



move ,b 
lea 
lea 

move .b 
subq .w 
bgt .s 
jmp 



CURSLEN, (DADDR) 

(DBDDR, INDEX.U) .DBDDR 

(DBDDR, SLEN. U), SflDDR 



(SADDR)_+, (DADDR)-' 



„*, TEMPI 
dell 

(RET) 
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170 

171 
PASS 1 ERRORS: 
PASS 2 ERRORS: 
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**• 68000 ASSEMBLER SYMBOL TABLE DUMP «** 
EXTERNAL SYMBOLS 



SYMBOL 


TYPE 


DEF VALUE 




SYSGLOBALS 


ABS 


17 00000002 






INTERNAL SYMBOLS 




SYMBOL 


TYPE 


DEF EQU SYM 


VALUE 


AO 


AREG 





00000000 


Al 


AREG 





00000001 


A2 


AREG 





00000002 


A3 


AREG 





00000003 


A4 


AREG 





00000004 


AS 


AREG 





00000005 


A6 


AREG 





00000006 


A7 


AREG 





00000007 


APENDO 


REL 


38 


00000014 


APEND1 


REL 


44 


00000022 


ASM DELETE 


REL 


141 


OOOOOOBO 


ASM INSERT 


REL 


SS 


0000002A 


ASM~SAPPEND 


REL 


25 


00000000 


ASM SCOPY 


REL 


104 


0000007A 


ATEflP 


AREG 


S 


00000004 


CCR 


STREG 





00000005 


COPYO 


REL 


114 


0000008C 


C0PY1 


REL 


130 


O00O0OA8 


COUNT 


DREG 


12 


00000005 


CURSLEN 


DREG 


9 


00000002 


DO 


DREG 





00000000 


Dl 


DREG 





00000001 


D2 


DREG 





00000002 


03 


DREG 





00000003 


04 


DREG 





00000004 


D5 


DREG 





00000005 


D6 


DREG 





00000005 


D7 


DREG 





00000007 


DADDR 


AREG 


3 


00000002 


DELO 


REL 


149 


OOOOOOBE 


DELI 


REL 


166 


OOOOOODE 


DINDEX 


DREG 


10 


00000003 


DMAX 


DREG 


11 


00000004 


ERROR 


REL 


94 


00000072 


ESCAPECODE 


ABS 


18 SYSGLOBALS 


<■ FFFFFFFE 


INDEX 


DREG 


13 


00000005 


INSERT1 


REL 


84 


00000060 


INSERT2 


REL 


88 


0000006A 


RET 


AREG 


1 


00000000 


RETRRNN 


REL 


47 


00000028 


RETTRN 


REL 


91 


00000070 


SADDR 


AREG 


2 


00000001 


SINDEX 


DREG 


8 


00000001 


SLEN 


DREG 


7 


00000000 


SP 


AREG 





00000007 


SR 


STREG 





00000006 
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00000003 
00000006 
00000007 
00000007 



SRCENO 


AREG 


4 


TEMPI 


DREG 


14 


TEMP2 


OREG 


lb 


USP 


STREG 
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STRINT 



Purpose 

STRINT implements the conversion of an integer to a string of digits. 

Usage 

The Compiler emits a call to this procedure for STRWRITE of an integer. 



(c) Copyright Hewlett-Packard Company, 198 3. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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OF STRINT.TEXT 






PASS 1 


COMPLETE. ERRORS 


: 












1 










def fs 


fwritest rint 






2 
3 
4 










refa sy 


sglobals 








FFFF 


FFEfl 


ioresult 


equ sysglobals- 
equ 28 


22 




S 
6 

7 




0000 


001C 


istrovfl 








0000 


0000 


sign 




equ dO 






8 

9 

10 




0000 


0001 


digits 




equ dl 








0000 


0002 


int 




equ d2 






11 




0000 


0003 


high 




equ d3 






12 




0000 


0004 


extend 




equ d4 






13 




0000 


0005 


ten 




equ d5 






14 




0000 


0006 


zero 




equ d6 






IS 
16 
17 
18 
19 




0000 


0007 


fieldwidth 


equ d7 








0000 


0000 


maxst rl 


en 


equ dO 








0000 


0002 


intlen 




equ d2 






20 




0000 


0003 


strlen 




equ d3 






21 




0000 


0004 


temp 




equ d4 






22 




0000 


0005 


newinde 


X 


equ d5 






23 
24 
25 




0000 


0006 


index 




equ d6 








0000 


0000 


return 




equ aO 






26 




0000 


0001 


st raddr 




equ al 






27 




0000 


0002 


dindex 




equ a2 






28 




0000 


0003 


s index 




equ a3 






29 
30 
31 




0000 


0004 


aindex 




equ a4 






00000000 


84C5 




10 


divu 


ten, int 






32 


00000002 


4842 






swap 


int 






33 


00000004 


D446 






add.w 


zero, int 






34 


00000006 


1502 






move.b 


int, -(dindex) 






35 


00000008 


5241 






addq 


#1, digits 






36 


OOOOOOOfl 


4242 






clr .w 


int 






37 


OOOOOOOC 


4842 






swap 


int 






38 




0000 


OOOE 


get_dig 


its 


equ * 






39 


OOOOOOOE 


B485 






cmp.l 


ten, int 






40 


00000010 


64EE 






bcc. s 


10 






41 


00000012 


D446 






add.w 


zero, int 






42 


00000014 


1502 






move.b 


int .-(dindex) 






43 


00000016 


5241 






addq 


#1, digits 






44 
4S 
46 


00000018 


4E7S 






rts 










0000 


001ft 


fs_fwritest rint 


equ * 






47 


0000001ft 


205F 






move a. J 


(sp)+, return 






48 


0000001C 


3E1F 






move 


(spj+.fieldwidth integer is to be right justified 




49 


0000001E 


241F 






move.l 


(spj*,int 


integer to be converted 




SO 


00000020 


28SF 






movea. 1 


jsp)*, aindex 


address of index into string 




51 


00000022 


22SF 






move a. 1 


(sp) + , st raddr 


address of string 




52 


00000024 


7000 






moveq 


#0, maxst rlen 






53 
54 
55 


00000026 


101F 






move.b 


(sp)+, maxst rlen 


dimensioned size of string 




00000028 


4ES6 


FFF4 




link 


a6,#-12 


allocate space for local string 




56 


0000002C 


1E80 






move.b 


maxst rlen, (sp) 


save maxstrlen in local string 




57 


0000002E 


4SD6 






lea 


(a6) .dindex 
#0, digits 


index to tail of local string 




58 


00000030 


7200 






moveq 
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OF STRINT.TEXT 






59 


00000032 


7A0PI 






moveq 


#10. ten 






60 
61 
62 


00000034 


7C30 






moveq 


*'0 ! ,zero 






00000036 


4A82 






tst.l 


int 






63 


00000038 


5DC0 






sit 


sign 


remember whether negative 




64 


0000003H 


6C02 






bge.s 


positive 






65 


OO00O03C 


4482 






neg.l 


int 






66 


0000003E 


7600 




positive mdveq 


♦O.high 
#100000, int 






67 


00000040 


B4BC 


0001 




cmp.l 










86fl0 














68 
69 

70 
71 
72 


00000046 


6512 






bcs .5 


small 


unsigned integer is less than 100000 










» divid 


e intege 


r by 100000, save high part, keep low part in integer: 




00000048 


E28B 






lsr.l 


#l,int 


divide by 2 




73 


oooooo4fl 


40C4 






move 


sr, extend 
#50000, int 


remainder in extend bit 




74 


0000004C 


84FC 


C350 




divj 


divide by 50000 




75 


00000050 


3602 






move .w 


int ,high 


quotient is high part 




76 


00000052 


4242 






clr .w 


int 


zap quotient 




77 


00000054 


4842 






swap 


int 


get remainder 




78 


00000056 


44C4 






move 


extend, ccr 


reconstruct full remainder 




79 
80 
81 
82 
83 


00000058 


E392 






roxl.l 


#l,int 


integer is now mod 100000 




0000005A 


61B2 




small 


b5r.s 


get_digit s 


extract low order digits 




0000005C 


4R43 






tst .w 


high 


check for any high order digits 




84 


0000005E 


6710 






beq.s 


finish 






85 


00000060 


B27C 


0005 


11 


cmp 


#5, digits 


there should be at least 5 digits 




86 


00000064 


6706 






beq.s 


12 






87 


00000066 


1506 






move.b 


zero, -(dindex) 






88 


00000068 


5241 






addq 


#1, digits 






89 


0000006ft 


60 F4 






bra.s 


11 






90 


0000006C 


3403 




12 


move 


high, int 






91 
92 
93 
94 


0000006E 


619E 






bsr .s 


get_diglts 


get high order digits 






0000 


0070 


finish 


equ * 








95 


00000070 


2C14 






move . 1 


(aindex) .index 






96 
97 
98 


00000072 


6F60 






ble.s 


error 


error if index < 1 




00000074 


7600 






moveq 


#0, strlen 






99 


00000076 


1611 






move.b 


(straddr) , strlen current length of string 




100 


















101 


00000078 


2803 






move . 1 


strlen, temp 






102 


0000007ft 


5284 






addq. 1 


#1 , temp 






103 


0000007C 


BC84 






cmp. 1 


temp, index 






104 


0000007E 


6E54 






bgt .s 


error 


error if index > strlen(s)+l 




105 


















106 


00000080 


3401 






move 


digits, intlen 


compute minimum size of new integer 




107 


00000082 


4fi00 






tst .b 


sign 






108 


00000084 


6702 






beq. s 
addq 


nosign 






109 


00000086 


5242 






#1 , intlen 


add 1 for minus sign 




110 




0000 


0088 


nosign 


equ * 








111 


















112 


00000088 


4fl47 






tst 


fieldwidth 


field width is 12 if passed negative 




113 


0000008ft 


6C02 






bge . s 


nodefault 






114 


0000008C 


7E0C 






moveq 


#12, fieldwidth 




1-379 



cmp 


intlen,fieldwidth 


bge.s 


bigger 

intlen, f ieldwidt h 


move 


equ * 




move . 1 


index, newindex 


add 


f ieldwidt h, newindex 


move 


newindex , temp 


subq 


#1 , temp 


cmp 


temp, st rlen 


bge . s 


longer 


move 


temp, st rlen 
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115 0000 008E nodefault equ « 
116 

117 0000008E BE42 cmp int len , f ieldwidt h fieldwidth is at least size of integer 

118 00000090 6C02 ' . . .. . ■ . ' 

119 00000092 3E02 

120 0000 0094 bigger 
121 

122 00000094 2A06 move.l index , newindex compute new index 

123 00000096 DA47 

124 

125 00000098 3805 move newindex , temp string length is maximum of 

126 0000009A 5344 subq tl.temp old length, newindex-1 

127 0000009C B644 ..._.....,. 

128 0000009E 6C02 

129 OOOOOOAO 3604 

130 0000 0OA2 longer equ 
131 

132 O0OOO0P2 4244 clr temp 

133 OOO0O0B4 1817 move.b (sp).temp retrieve strmax 

134 OO00O0A6 B644 cmp temp, st rlen 

135 0O00OOA8 6E2A bgt.s error error if new length > strmax(s) 
136 

137 OOOOOOAA 1283 move.b st rlen, (st raddr ) set new string length 

138 OOOOOOAC 2885 move.l newindex ,( aindex ) set new index 
139 

140 OOOOOOAE 47F1 6000 lea ( st raddr , index) , sindex 
141 

142 00000062 9E42 sub int len , f ieldwidt h 

143 00OO0OB4 6708 beq.s nospaces 

144 000000B6 16FC 0020 space move.b #' ',(sindex)+ 

145 000000BA 5347 subq #1 , f ieldwidt h 

146 OOOOOOBC 6EF8 bgt.s space 

147 0000 0O8E nospaces equ * 
148 

149 OOOOOOBE 4A00 tst.b sign 

150 OOOOOOCO 6704 beq.s nosgn 

151 000000C2 16FC 002D move.b #' -* , (sindex)+ 

152 0000 00C6 nosgn equ * 
153 

154 OO00OOC6 16DA digit move.b (dindex)+, (sindex)* 

155 0OO0OOC8 5341 subq #1, digits 

156 OOOOOOCA 6EFA bgt.s digit 
157 

158 O0O0OOCC 42AD FFEfi clr.l ioresult(aS) 

159 000000D0 4ESE ok unlk a6 

160 O0O0OOD2 4ED0 imp (return) 
161 

162 000000D4 701C error moveq #ist rovfl.dO 

163 00O0OOD6 2B40 FFEfi move.l dO , io result (aS ) 

164 000000DA 60F4 bra.s ok 
165 

166 nosyms 

167 end 
PASS 1 ERRORS: 
PASS 2 ERRORS: 
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SYSDEF 



Purpose 

SYSDEF provides the symbol table for SYSTEM_P. 

Usage 

SYSDEF is accessed by the loader. 

Notes 

(This file was generated programatically!) 



(c) Copyright Hewlett-Packard Company, 1983. This document contains proprietary computer 
software which is protected by copyright. All rights are reserved. Copying or other reproduction 
of this program except for archival purposes is prohibited without the prior written consent of 
Hewlett-Packard Company. 



Restricted Rights Legend 

Use, Duplication, or disclosure by the Government is subject to restrictions as set forth in 
paragraph (b) (3) (B) of the Rights in Technical Data and Computer Software clause in DAR 
7- 104.9(a). 
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OF SYSDEF.TEXT 


PASS 1 


COMPLETE. ERRORS: 








1 
2 

3 
4 

5 


00000000 






rorg 










def sysdeftable 


0000 


0000 


sysdeftable equ 


* 


6 


00000000 0000 


0000 




del 





7 


00000004 00 






dc.b 





8 


00000006 0000 


0028 




del 


def addr 


g 


oooooooa oooo 


060C 




del 


endd-defaddr 


10 


OOOOOOOE 01 






dc.b 


1 


11 


00000010 0000 


0000 




del 





12 


00000014 OB 






deb 


11, 'SYSDEFTABLE 


12 


00000015 S3 










12 


00000016 59 










12 


00000017 53 










12 


00000018 44 










12 


00000019 45 










12 


0000001P 46 










12 


0000001B 54 










12 


0000001C 41 










12 


0000001D 42 










12 


0000001E 4C 










12 


0000001F 45 










12 


00000020 20 










12 


00000021 20 










12 


00000022 20 










12 


00000023 20 










12 


00000024 20 










13 


00000025 00 




X 


deb 


0,1 


13 


00000026 01 










14 












IS 


0000 


1206 


GVR 


equ 


S1206 


16 












17 


0000 


0028 


defaddr 


equ * 




18 












19 








include 


SYSTABLE 


20 






REFR 


ALPHALIST 


21 


00000028 09 




DC.B 


9, 'ALPHALIST' 


21 


00000029 41 










21 


0000002A 4C 










21 


0000002B 50 










21 


0000002C 48 










21 


0000002D 41 










21 


0000002E 4C 










21 


0000002F 49 










21 


00000030 53 










21 


00000031 54 










22 


00000032 1206 




DC.U 


GVR 




23 


00000034 0000 


0000 


DC.L 


ALPHALIST 


24 






REFR 


ASM fiSM 


25 


00000038 07 




DC.B 


7,'ffsn 


_ASM' 


25 


00000039 41 










25 


0000003A 53 










25 


0000003B 4D 










2S 


0000003C 5F 










25 


0000003D 41 










25 


0000003E 53 










25 


0000003F 4D 











module descriptor: 
link x NIL 
patchmod * false 
address of DEF table 
defsize 

resolved - true 
startaddress 

' progname 



abs, sint, value extend, 6 bytes 
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26 


00000040 


1206 


DC.U 


GVR 


27 


00000042 


0000 0000 


DC.L 


ASM ASM 


28 






REFR 


ASM ASSIGN 


29 


00000046 


OR 


DC.B 


10, T ASM_ASSIGN' 


29 


00000047 


41 






29 


00000048 


S3 






29 


00000049 


4D 






29 


0000004A 


5F 






29 


0000004B 


41 






29 


0000004C 


53 






29 


0000004D 


53 






29 


0000004E 


49 






29 


0000004F 


47 






29 


00000050 


4E 






30 


00000052 


1206 


DC.U 


GVR 


31 


00000054 


0000 0000 


DC.L 


ASM ASSIGN 


32 






REFR 


ASM CI SUITCH 


33 


000000S8 


OD 


DC.B 


13, T ASFI_CI_SUITCH' 


33 


00000059 


41 






33 


0000005A 


53 






33 


0000005B 


40 






33 


0000005C 


5F 






33 


0000005D 


43 






33 


0000005E 


49 






33 


0000005F 


SF 






33 


00000060 


53 






33 


00000061 


57 






33 


00000062 


49 






33 


00000063 


54 






33 


00000064 


43 






33 


00000065 


48 






34 


00000066 


1206 


DC.U 


GVR 


35 


00000068 


0000 0000 


DC.L 


ASM CI SUITCH 


36 






REFR 


ASM~CPVMSG 


37 


0000006C 


OB 


DC.B 


10, T ASM_CPYMSG' 


37 


0000006D 


41 






37 


0000006E 


53 






37 


0000006F 


4D 






37 


00000070 


SF 






37 


00000071 


43 






37 


00000072 


SO 






37 


00000073 


59 






37 


00000074 


4D 






37 


00000075 


53 






37 


00000076 


47 






38 


00000078 


1206 


DC.U 


GVR 


39 


0000007A 


OOOO 0000 


DC.L 


ASM CPYMSG 


40 






REFR 


ASM DIFFERENCE 


41 


0000007E 


OE 


DC.B 


14, T ASM DIFFERENCE 


41 


0000007F 


41 






41 


00000080 


S3 






41 


00000081 


4D 






41 


00000082 


5F 






41 


00000083 


44 






41 


00000084 


49 






41 


00000085 


46 






41 


00000086 


46 
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41 


00000087 


45 






41 


00000088 


52 






41 


00000089 


45 






41 


0000008A 


4E 






41 


0000008B 


43 






41 


0000008C 


45 






42 


0000008E 


1206 


DC.U 


GVR 


43 


00000090 


0000 0000 


DC.L 


ASM DIFFERENCE 


44 






REFR 


ASM DIV 


45 


00000094 


07 


DC.B 


7,'ffSM_DIV 


45 


00000095 


41 






45 


00000096 


53 






45 


00000097 


4D 






45 


OOCC0098 


5F 






45 


00000099 


44 






45 


0000009A 


49 






45 


0000009B 


56 






46 


0000009C 


1206 


DC.U 


GVR 


47 


0000009E 


0000 0000 


DC.L 


ASM DIV 


48 






REFR 


ASM EQUAL 


49 


O000O0A2 


09 


DC.B 


9, 'A"SM_EQUAL' 


49 


000000A3 


41 






49 


000000A4 


53 






49 


OOOOOOAS 


to 






49 


OOO0OOA6 


5F 






49 


OOO0OOA7 


45 






49 


OOO0OOR8 


51 






49 


OOO0OOR9 


55 






49 


OOOOOOflft 


41 






49 


OOOOOOAB 


4C 






SO 


OOOOOOAC 


1206 


DC.U 


GVR 


51 


OOOOOOAE 


0000 0000 


DC.L 


ASM EQUAL 


52 






REFR 


ASM ERRMSG 


S3 


000000B2 


OA 


DC.B 


10, T ASM_ERRMSG' 


53 


OOO0OOB3 


41 






S3 


OO00O0B4 


S3 






53 


00000085 


4D 






S3 


000000B6 


5F 






S3 


00000087 


45 






S3 


00000088 


52 






S3 


00000089 


52 






S3 


OOOOOOBfl 


4D 






53 


OOOOOOBB 


53 






53 


OOOOOOBC 


47 






54 


OOOOOOBE 


1206 


DC.U 


GVR 


55 


OOOOOOCO 


0000 0000 


DC.L 


ASM ERRMSG 


S6 






REFR 


ASM~FASTMOVE 


57 


O0OOOOC4 


OC 


DC.B 


12, T ASM FASTMOVE' 


57 


OOOOOOCS 


41 






57 


O0OOOOC6 


S3 






57 


000000C7 


40 






57 


O0OOOOC8 


SF 






57 


O0OOOOC9 


46 






57 


OOOOOOCA 


41 






57 


OOOOOOCB 


53 






57 


OOOOOOCC 


54 






57 


OOOOOOCD 


40 
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57 


OOOOOOCE 


4F 






57 


OOOOOOCF 


56 






57 


OOOOOODO 


45 






58 


000000D2 


1206 


DC.U 


GVR 


59 


000000D4 


0000 0000 


DC.L 


ASM FASTMOVE 


60 






REFR 


ASM~FINDROMS 


61 


00000008 


OC 


OC.B 


12, T ASM_FINDR0MS' 


61 


O000O0D9 


41 






61 


OOOOOODA 


S3 






61 


OOOOOODB 


4D 






61 


OOOOOODC 


5F 






61 


OOOOOODD 


46 






61 


OOOOOODE 


49 






61 


OOOOOODF 


4E 






61 


OOOOOOEO 


44 






61 


O0OOOOE1 


S2 






61 


O0OO00E2 


4F 






61 


O0OOOOE3 


4D 






61 


00O00OE4 


S3 






62 


O0OO0OE6 


1206 


DC.U 


GVR 


63 


OO0OO0E8 


0000 0000 


DC.L 


ASM FINDROMS 


64 






REFR 


ASM~FLPYINIT 


65 


OOOOOOEC 


OC 


DC.B 


12, T ASM_FLPYINIT' 


65 


OOOOOOED 


41 






65 


OOOOOOEE 


S3 






65 


OOOOOOEF 


4D 






65 


OOOOOOFO 


5F 






65 


O0OOOOF1 


46 






65 


O0OOOOF2 


4C 






65 


O0O00OF3 


50 






65 


000000 F4 


59 






65 


O0O0OOF5 


49 






65 


O0O0OOF6 


4E 






65 


OOO0OOF7 


49 






65 


O0OOOOF8 


54 






66 


OOOOOOFA 


1206 


DC.U 


GVR 


67 


OOOOOOFC 


0000 0000 


DC.L 


ASM FLPYINIT 


68 






REFR 


ASM~FLPYMREAD 


69 


00000100 


OD 


DC.B 


13, T ASM_FLPYMREAD' 


69 


00000101 


41 






69 


00000102 


S3 






69 


00000103 


4D 






69 


00000104 


5F 






69 


00000105 


46 






69 


00000106 


4C 






69 


00000107 


50 






69 


00000108 


59 






69 


00000109 


4D 






69 


0000010A 


52 






69 


0000010B 


45 






69 


0000010C 


41 






69 


0000010D 


44 






70 


0000010E 


1206 


DC.U 


GVR 


71 


00000110 


0000 0000 


DC.L 


ASM FLPYMREAD 


72 






REFR 


ASM"FLPYMURITE 


73 


00000114 


OE 


DC.B 


14, T ASM FLPYMURITE 


73 


00000115 


41 
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73 


00000116 


53 






73 


00000117 


40 






73 


00000118 


SF 






73 


00000119 


46 






73 


00000110 


4C 






73 


0000011B 


SO 






73 


0000011C 


59 






73 


0000011D 


4D 






73 


OOOOOUE 


57 






73 


0000011F 


52 






73 


00000120 


49 






73 


00000121 


54 






73 


00000122 


45 






74 


00000124 


1206 


DC.U 


GVR 


75 


00000126 


0000 0000 


DC.L 


RSM FLPYMURITE 


76 






REFR 


ASM FLPYREflO 


77 


0000012ft 


oc 


DC.B 


12, x fiSM_FLPYREAD 


77 


0000012B 


41 






77 


0000012C 


53 






77 


0000012D 


4D 






77 


0000012E 


5F 






77 


0000012F 


46 






77 


00000130 


4C 






77 


00000131 


SO 






77 


00000132 


59 






77 


00000133 


52 






77 


00000134 


45 






77 


00000135 


41 






77 


00000136 


44 






78 


00000138 


1206 


DC.U 


GVR 


79 


0000013ft 


0000 0000 


DC.L 


ASM FLPYREP.D 


80 






REFR 


ASM FLPY URT 


81 


0000013E 


oc 


DC.B 


12, T flSM_FLPY_URT 


81 


0000013F 


41 






81 


00000140 


53 






81 


00000141 


4D 






81 


00000142 


5F 






81 


00000143 


46 






81 


00000144 


4C 






81 


00000145 


SO 






81 


00000146 


59 






81 


00000147 


5F 






81 


00000148 


57 






81 


00000149 


52 






81 


0000014ft 


54 






82 


0000014C 


1206 


DC.U 


GVR 


83 


0000014E 


0000 0000 


DC.L 


ASM FLPY URT 


84 






REFR 


ASM F PUR" ON 


85 


00000152 


OC 


DC.B 


12, X A5"M F~PUR ON 


85 


00000153 


41 






85 


00000154 


53 






85 


00000155 


4D 






85 


00000156 


5F 






85 


00000157 


46 






85 


00000158 


5F 






85 


00000159 


SO 






85 


0000015ft 


57 
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DC.U GVR 

DC.L ASM_F PUR ON 

REFR ASM IN 

DC.B 6,'ft~SM IN' 



DC.U GVR 

DC.L ASM_IN 

REFR ASM INCLUSION 

DC.B 13, T fiSM INCLUSION' 



85 


0000015B 


52 


85 


0000015C 


5F 


85 


0000015D 


4F 


85 


0000015E 


4E 


86 


00000160 


1206 


87 


00000162 


0000 0000 


88 






89 


00000166 


06 


89 


00000167 


41 


89 


00000168 


53 


89 


00000169 


40 


89 


0000016ft 


5F 


89 


0000016B 


49 


89 


0000016C 


4E 


90 


0000016E 


1206 


91 


00000170 


0000 0000 


92 






93 


00000174 


00 


93 


00000175 


41 


93 


00000176 


53 


93 


00000177 


40 


93 


00000178 


5F 


93 


00000179 


49 


93 


0000017ft 


4E 


93 


0000017B 


43 


93 


0000017C 


4C 


93 


0000017D 


55 


93 


0000017E 


53 


93 


0000017F 


49 


93 


00000180 


4F 


93 


00000181 


4E 


94 


00000182 


1206 


95 


00000184 


0000 0000 


96 






97 


00000188 


OD 


97 


00000189 


41 


97 


0000018ft 


53 


97 


0000018B 


4D 


97 


0000018C 


5F 


97 


0000018D 


49 


97 


0000018E 


4E 


97 


0000018F 


54 


97 


00000190 


45 


97 


00000191 


52 


97 


00000192 


53 


97 


00000193 


45 


97 


00000194 


43 


97 


00000195 


54 


98 


00000196 


1206 


99 


00000198 


0000 0000 


100 






101 


0000019C 


OC 


101 


0000019D 


41 


101 


0000019E 


53 


101 


0000019F 


40 


101 


OOOOOlftO 


SF 


101 


OOOOOlfll 


4D 



DC.U GVR 

DC.L ASM INCLUSION 

REFR ftSM INTERSECT 

DC.B 13, T flSM INTERSECT' 



DC.U GVR 

DC.L ASM_INTERSECT 

REFR ASM MEMfiVAIL 

DC.B 12, T fiSM MEMAVAIL' 



1-385 



PAGE 7 [2.0] 11/4/82 13:16:52 ASSEMBLY OF SYSDEF.TEXT 



101 


000001P2 


45 






101 


000001A3 


4D 






101 


000001S4 


41 






101 


000001A5 


56 






101 


000001R6 


41 






101 


000001A7 


49 






101 


000001A8 


4C 






102 


000001AA 


1206 


DC. (J 


GVR 


103 


000001AC 


0000 0000 


DC.L 


ASM MEMAVAIL 


104 






REFR 


ASM MOD 


105 


000001B0 


07 


DC.B 


7,'Hsn_M0D' 


105 


000001B1 


41 






105 


000001B2 


S3 






105 


000001B3 


4D 






105 


000001B4 


5F 






105 


000001B5 


4D 






105 


000001B6 


4F 






105 


000001B7 


44 






106 


000001B8 


1206 


DC.U 


GVR 


107 


000001BA 


OOOO 0000 


DC.L 


ASM MOD 


108 






REFR 


ASM MOVEL 


109 


000001BE 


09 


DC.B 


9, 'ffSM_MOVEL' 


109 


OOOOOIBF 


41 






109 


000001CO 


53 






109 


000001C1 


4D 






109 


000001C2 


5F 






109 


000001C3 


4D 






109 


000001C4 


4F 






109 


000001C5 


S6 






109 


000001C6 


45 






109 


000001C7 


4C 






110 


000001C8 


1206 


DC.U 


GVR 


111 


000001CA 


0000 0000 


DC.L 


ASM MOVEL 


112 






REFR 


ASM MOVELEFT 


113 


000001CE 


OC 


DC.B 


12, T ASM MOVELEFT 


113 


OOOOOICF 


41 






113 


000001DO 


53 






113 


000001D1 


4D 






113 


00000102 


5F 






113 


000001D3 


4D 






113 


000001D4 


4F 






113 


000001D5 


56 






113 


000001D6 


45 






113 


000001D7 


4C 






113 


000001D8 


45 






113 


000001D9 


46 






113 


000001DA 


54 






114 


000001DC 


1206 


DC.U 


GVR 


115 


OOO0O1OE 


0000 0000 


DC.L 


ASM MOVELEFT 


116 






REFR 


ASM MOVER 


117 


0OO0O1E2 


09 


DC.B 


9, 'HSM MOVER' 


117 


000001E3 


41 






117 


000001E4 


53 






117 


000001E5 


4D 






117 


000001E6 


SF 






117 


000001E7 


4D 






117 


000001E8 


4F 
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117 


000001E9 


56 






117 


OOOOOIEA 


45 






117 


000001EB 


52 






118 


000001EC 


1206 


DC.U 


GVR 


119 


000001EE 


0000 0000 


DC.L 


ASM MOVER 


120 






REFR 


ASM MOVERIGHT 


121 


000001F2 


OD 


DC.B 


13," r ASM_M0VERIGHT 


121 


000001F3 


41 






121 


000001F4 


53 






121 


000001F5 


4D 






121 


000001F6 


SF 






121 


000001F7 


40 






121 


000001F8 


4F 






121 


000001F9 


56 






121 


000001FA 


45 






121 


000001FB 


52 






121 


000001FC 


49 






121 


000001FD 


47 






121 


000001FE 


48 






121 


000001FF 


54 






122 


00000200 


1206 


DC.U 


GVR 


123 


00000202 


0000 0000 


DC.L 


ASM MOVERIGHT 


124 






REFR 


ASM MPY 


125 


00000206 


07 


DC.B 


7, 'HSMJIPY' 


125 


00000207 


41 






125 


00000208 


S3 






125 


00000209 


4D 






125 


0000020A 


SF 






125 


0000020B 


40 






125 


0000020C 


SO 






125 


0000020D 


59 






126 


0000020E 


1206 


DC.U 


GVR 


127 


00000210 


0000 0000 


DC.L 


ASM MPY 


128 






REFR 


ASM NEQUAL 


129 


00000214 


OA 


DC.B 


10, T ASM_NEQUAL' 


129 


00000215 


41 






129 


0000021$ 


53 






129 


00000217 


4D 






129 


00000218 


5F 






129 


00000219 


4E 






129 


000002m 


45 






129 


00C0021B 


51 






129 


0000021C 


55 






129 


O0OOO21D 


41 






129 


0000021E 


4C 






130 


00000220 


1206 


DC.U 


GVR 


131 


00000222 


0000 OOOO 


DC.L 


ASM NEQUAL 


132 






REFR 


ASM NEUBYTES 


133 


00000226 


OC 


DC.B 


12, T ASM NEUBYTES' 


133 


00000227 


41 






133 


00000228 


53 






133 


00000229 


40 






133 


0000022A 


SF 






133 


0000022B 


4E 






133 


0000022C 


45 






133 


0000022D 


57 






133 


0000022E 


42 
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133 


0000022F 


59 


133 


00000230 


54 


133 


00000231 


45 


133 


00000232 


53 


134 


00000234 


1206 


135 


00000236 


0000 0000 


136 






137 


0000023A 


oc 


137 


00000238 


41 


137 


0000023C 


53 


137 


0000023D 


40 


137 


0000023E 


5F 


137 


0000023F 


4E 


137 


00000240 


45 


137 


00000241 


57 


137 


00000242 


57 


137 


00000243 


4F 


137 


00000244 


52 


137 


00000245 


44 


137 


00000246 


S3 


138 


00000248 


1206 


139 


0000024A 


0000 0000 


140 






141 


0000024E 


07 


141 


0000024F 


41 


141 


00000250 


S3 


141 


00000251 


4D 


141 


00000252 


SF 


141 


00000253 


SO 


141 


00000254 


4F 


141 


00000255 


S3 


142 


OOO0O2S6 


1206 


143 


00000258 


0000 0000 


144 






145 


0000025C 


OB 


145 


0000025D 


41 


145 


0000025E 


53 


145 


0000025F 


4D 


145 


00000260 


SF 


145 


00000261 


SO 


145 


00000262 


4F 


145 


00000263 


57 


145 


00000264 


4S 


145 


00000265 


52 


145 


00000266 


55 


145 


00000267 


SO 


146 


00000268 


1206 


147 


0000026A 


0000 0000 


148 






149 


0000026E 


OH 


149 


0000026F 


41 


149 


00000270 


S3 


149 


00000271 


4D 


149 


00000272 


5F 


149 


00000273 


52 


149 


00000274 


40 


149 


00000275 


4F 
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DC.W GVR 

DC.L ASM NEWBYTES 

REFR ASM NEUUORDS 

DC.B 12, T ASM NEUUORDS' 



DC.W GVR 

DC.L ASM NEUUORDS 

REFR ASM POS 

DC.B 7, 'A"SM POS' 



DC.U GVR 

DC.L ASM POS 

REFR ASM POUERUP 

DC.B 11, T ASM POUERUP' 



DC.U GVR 

DC.L ASM_P0UERUP 

REFR ASM RMOVEL 

DC.B 10, T ASM RMOVEL' 
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DC.U GVR 

DC.L ASM RMOVEL 

REFR ASM RMOVER 

DC.B 10, X ASM RMOVER' 



149 


00000276 


56 


149 


00000277 


45 


149 


00000278 


4C 


150 


0000027A 


1206 


151 


0000027C 


0000 0000 


152 






153 


00000280 


OA 


163 


00000281 


41 


153 


00000282 


53 


153 


00000283 


4D 


153 


00000284 


SF 


153 


00000285 


52 


153 


00000286 


4D 


153 


00000287 


4F 


153 


00000288 


56 


153 


00000289 


45 


153 


0000028A 


52 


154 


0000028C 


1206 


155 


0000028E 


0000 0000 


156 






157 


00000292 


09 


157 


00000293 


41 


157 


00000294 


53 


157 


00000295 


4D 


157 


00000296 


5F 


157 


00000297 


55 


157 


00000298 


4E 


157 


00000299 


49 


157 


0000029A 


4F 


157 


0000029B 


4E 


158 


0000029C 


1206 


159 


0000029E 


0000 0000 


160 






161 


000002A2 


OF 


161 


000002A3 


41 


161 


000002A4 


53 


161 


000002B5 


4D 


161 


000002A6 


5F 


161 


000002A7 


55 


161 


000002A8 


S3 


161 


000002A9 


45 


161 


000002AA 


52 


161 


000002AB 


50 


161 


000002AC 


52 


161 


000002AD 


4F 


161 


000002AE 


47 


161 


000002HF 


52 


161 


000002BO 


41 


161 


000002B1 


4D 


162 


000002B2 


1206 


163 


000002B4 


0000 0000 


164 






165 


000002B8 


OD 


165 


000002B9 


42 


165 


000002BA 


4F 


165 


000002BB 


4F 


165 


000002BC 


54 



DC.U GVR 

DC.L ASM RMOVER 

REFR ASM UNION 

DC.B 9,'RSM UNION' 



DC.U GVR 

DC.L ASM UNION 

REFR ASM USERPROGRAM 

DC.B 15, X ASM USERPROGRAM' 



DC.U GVR 

DC.L ASM USERPROGRAM 

REFR BOOTDAMMODULE 

DC.B 13,'B00TDArlM0DULE' 
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165 


000002BD 44 




165 


000002BE 41 




165 


000002BF 4D 




165 


000002CO 4D 




165 


000002C1 4F 




165 


O00O02C2 44 




165 


OO0O02C3 55 




165 


000002C4 4C 




165 


000002C5 45 




166 


OO0OO2C6 1206 


DC.U 


167 


000002C8 0000 0000 


DC.L 


168 




REFR 


169 


000002CC 15 


DC.B 


169 


000002CD 42 




169 


00C002CE 4F 




169 


000002CF 4F 




169 


000002D0 54 




169 


000002D1 44 




169 


00000202 41 




169 


000002D3 40 




169 


000002D4 40 




169 


000O02D5 4F 




169 


000002D6 44 




163 


000002D7 SS 




169 


000002D8 4C 




169 


00000209 45 




169 


000002DA SF 




169 


000002DB 42 




169 


000002DC 4F 




169 


000002DD 4F 




169 


000002DE 54 




169 


000002DF 44 




169 


000002EO 41 




169 


000002E1 4D 




170 


000002E2 1206 


DC.U 


171 


000O02E4 0000 0000 


DC.L 


172 




REFR 


173 


000002E8 18 


DC.B 


173 


000002E9 42 




173 


000002EA 4F 




173 


000002EB 4F 




173 


000002EC 54 




173 


000002ED 44 




173 


000002EE 41 




173 


000002EF 4D 




173 


000002F0 4D 




173 


000002F1 4F 




173 


000002F2 44 




173 


000002F3 55 




173 


000002F4 4C 




173 


000O02F5 45 




173 


000002F6 SF 




173 


000002F7 42 




173 


000002F8 4F 




173 


000002F9 4F 




173 


000002FA 54 




173 


000002FB 44 





GVR 

BOOTDAMMODULE 

BOOTDAMMODULE BOOTDAM 

21 , 'BOOTDAnnOBULE_BOOTDAM' 



GVR 

BOOTDAMMODULE BOOTDAM 

BOOTDAHMODULE BOOTDAMMODULE 

27, 'B00TDAMM0D"ULE_B0OTDAMMODULE' 
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173 


000002FC 


41 




173 


000002FD 


4D 




173 


000002FE 


40 




173 


000002FF 


4F 




173 


00000300 


44 




173 


00000301 


55 




173 


00000302 


4C 




173 


00000303 


45 




174 


00000304 


1206 


DC.U 


175 


00000306 


0000 0000 


DC.L 


176 






REFR 


177 


0000030A 


16 


DC.B 


177 


OO00O30B 


42 




177 


0000030C 


4F 




177 


0000030D 


4F 




177 


0000030E 


54 




177 


0000030F 


44 




177 


00000310 


41 




177 


00000311 


40 




177 


00000312 


4D 




177 


00000313 


4F 




177 


00000314 


44 




177 


00000315 


55 




177 


00000316 


4C 




177 


00000317 


45 




177 


00000318 


SF 




177 


00000319 


42 




177 


0000031A 


4F 




177 


0000031B 


4F 




177 


0000031C 


54 




177 


0000031D 


4E 




177 


OO0OO31E 


4F 




177 


0000031F 


44 




177 


00000320 


45 




178 


00000322 


1206 


DC.U 


179 


00000324 


0000 0000 


DC.L 


180 






REFR 


181 


00000328 


14 


DC.B 


181 


00000329 


42 




181 


0000032A 


4F 




181 


0O00O32B 


4F 




181 


0000032C 


54 




181 


0000032D 


44 




181 


0000032E 


41 




181 


0000032F 


4D 




181 


00000330 


4D 




181 


00000331 


4F 




181 


00000332 


44 




181 


00000333 


55 




181 


00000334 


4C 




181 


00000335 


45 




181 


00000336 


SF 




181 


00000337 


42 




181 


00000338 


4F 




181 


00000339 


4F 




181 


OO0OO33A 


54 




181 


0000033B 


54 





BOOTDAMMODULE BOOTDAMMODULE 

BOOTDAMMOOULE BOOTNODE 

22, 'BOOTDAMMOUULE BOOTNODE' 



GVR 

BOOTDAMMODULE BOOTNODE 
BOOTDAMMODULE BOOTTM 
20,'B00TDAMM0D~ULE BOOTTM' 



1-388 
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DC.U GVR 

DC.L BO0TDAMMODULE_BOOTTM 

REFR BOOTDAMMODULE INITBOOTDAM 

DC.B 25, 'BOOTDAMMOD~ULE_INITBOOTDAM' 



181 


0000033C 


4D 


182 


0000033E 


1206 


183 


00000340 


0000 0000 


184 






185 


00000344 


19 


185 


00000345 


42 


185 


00000346 


4F 


185 


00000347 


4F 


185 


00000348 


54 


185 


00000349 


44 


185 


0000034 PI 


41 


185 


0000034B 


4D 


185 


0000034C 


4D 


185 


0000034D 


4F 


185 


0000034E 


44 


18S 


0000034F 


55 


185 


00000350 


4C 


185 


00000351 


45 


185 


00000352 


SF 


185 


00000353 


49 


185 


00000354 


4E 


185 


00000355 


49 


185 


000003S6 


54 


185 


00000357 


42 


185 


00000358 


4F 


185 


00000359 


4F 


185 


0000035A 


54 


185 


0000035B 


44 


185 


0000035C 


41 


185 


0000035D 


4D 


186 


000003SE 


1206 


187 


00000360 


0000 0000 


188 






189 


00000364 


15 


189 


00000365 


42 


189 


00000366 


4F 


189 


00000367 


4F 


189 


00000368 


54 


189 


00C00369 


44 


189 


0000036A 


41 


189 


0000036B 


4D 


189 


0000036C 


4D 


189 


0000036D 


4F 


189 


0000036E 


44 


189 


0000036F 


55 


189 


00000370 


4C 


189 


00000371 


45 


189 


00000372 


5F 


189 


00000373 


53 


189 


00000374 


52 


189 


00000375 


4D 


189 


00000376 


4E 


189 


00000377 


4F 


189 


00000378 


44 


189 


00000379 


45 


190 


0000037A 


1206 


191 


0000037C 


0000 0000 



DC.U GVR 

DC.L B00TDAMM0DULE_INITB00TDAM 

REFR BOOTDAMMODULE SRMNODE 

DC.B 21,'BOOTDAMMOtJULE SRMNODE' 



DC.U GVR 

DC.L BOOTDAMMODULE SRMNODE 



PAGE 
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192 






193 


00000380 


13 


193 


00000381 


42 


193 


00000382 


4F 


193 


00000383 


4F 


193 


00000384 


54 


193 


00000385 


44 


193 


00000386 


41 


193 


00000387 


4D 


193 


00000388 


4D 


193 


00000389 


4F 


193 


0000038A 


44 


193 


00O0038B 


55 


193 


00O0038C 


4C 


193 


0000038D 


45 


193 


0000038E 


5F 


193 


0000038F 


SF 


193 


00000390 


42 


193 


00000391 


41 


193 


00000392 


53 


193 


00000393 


45 


194 


00000394 


1206 


195 


00000396 


0000 0000 


196 






197 


0000039A 


OD 


197 


0000039B 


42 


197 


0000039C 


4F 


197 


0000039D 


4F 


197 


0000039E 


54 


197 


0000039F 


5F 


197 


000003AO 


46 


197 


000003B1 


49 


197 


000003B2 


4E 


197 


000003B3 


44 


197 


000003B4 


46 


197 


000003BS 


49 


197 


000003A6 


4C 


197 


000003A7 


45 


198 


000003A8 


1206 


199 


000003AA 


0000 0000 


200 






201 


000003AE 


oc 


201 


000003AF 


42 


201 


000003BO 


4F 


201 


000003B1 


4F 


201 


000003B2 


54 


201 


000003B3 


5F 


201 


000003B4 


4C 


201 


000003BS 


49 


201 


000003B6 


46 


201 


000003B7 


48 


201 


000003B8 


45 


201 


000003B9 


41 


201 


000003BA 


44 


202 


000003BC 


1206 


203 


000003BE 


0000 0000 


204 







.6:52 ASSEMBLY OF SYSDEF.TEXT 

REFR BOOTDAMrlODULE BASE 

DC. 8 19, 'BOOTDAMMODTJLE BASE' 



DC.U GVR 

DC.L BOOTDAMMODULE BASE 

REFR BOOT FINDFILE 

DC.B 13, 'SOOT FINDFILE' 



DC.UI GVR 

DC.L BOOT FINDFILE 

REFR BO0T~LIFHEAD 

DC.B 12,'BOOT LIFHEAD' 



DC.U GVR 

DC.L BOOT LIFHEAD 

REFR B00T~MFCL0SE 



1-389 
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205 


000003C2 


OC 




DC.B 


12,'B00T_MFCL0SE* 




205 


000003C3 


42 










205 


000003C4 


4F 










205 


000003C5 


4F 










205 


000003C6 


54 










205 


000003C7 


5F 










205 


000003C8 


4D 










205 


000003C9 


46 










205 


000003CA 


43 










205 


000003CB 


4C 










205 


000003CC 


4F 










205 


000003CD 


53 










205 


000003CE 


45 










206 


000003DO 


1206 




DC.U 


GVR 




207 


000003D2 


0000 


0000 


DC.L 


BOOT MFCLOSE 




208 








REFR 


BOOT MFOPEN 




209 


000003D6 


OB 




DC.B 


11, 'B"00T_MFOPEN' 




209 


000003D7 


42 










209 


000003D8 


4F 










209 


000003D9 


4F 










209 


000003DA 


54 










209 


000003DB 


5F 










209 


000003DC 


4D 










209 


0000030D 


46 










209 


000003DE 


4F 










209 


000003DF 


50 










209 


000003EO 


45 










209 


000003E1 


4E 










210 


000003E2 


1206 




DC.U 


GVR 




211 


000003E4 


0000 


0000 


DC.L 


BOOT MFOPEN 




212 








REFR 


BOOT MINIT 




213 


000003E8 


OR 




DC.B 


10,'B"OOT_MINIT' 




213 


000003E9 


42 










213 


000003EA 


4F 










213 


000003EB 


4F 










213 


000003EC 


S4 










213 


000003ED 


SF 










213 


000003EE 


4D 










213 


000003EF 


49 










213 


000003F0 


4E 










213 


000003F1 


49 










213 


000003F2 


54 










214 


0O0OO3F4 


1206 




DC.U 


GVR 




215 


000003F6 


0000 


0000 


DC.L 


BOOT MINIT 




216 








REFR 


BOOT MREAD 




217 


000003FA 


OA 




DC.B 


10,'B~00T_MREA0' 




217 


000003FB 


42 










217 


000003FC 


4F 










217 


000003FD 


4F 










217 


000003FE 


54 










217 


000003FF 


SF 










217 


00000400 


4D 










217 


00000401 


52 










217 


00000402 


45 










217 


00000403 


41 










217 


00000404 


44 










218 


00000406 


1206 




DC.U 


GVR 




PAGE 


16 [2.0] 1 


/4/8Z 


13:16 


52 ASSEMBLY OF SYSDEF.TEXT 




219 


00000408 


0000 


0000 


DC.L 


BOOT MREAO 




220 








REFR 


EVALSVR 




221 


0000040C 


07 




DC.B 


7,'EVALGVR' 




221 


0000040D 


45 










221 


0000040E 


56 










221 


0000040F 


41 










221 


00000410 


4C 










221 


00000411 


47 










221 


00000412 


56 










221 


00000413 


52 










222 


00000414 


1206 




DC.U 


GVR 




223 


00000416 


0000 


0000 


DC.L 


EVALGVR 




224 








REFR 


FS FURITESTRINT 




225 


0000041A 


OF 




DC.B 


15,'FS_FURITESTRINT- 




225 


0000041B 


46 










225 


0000041C 


53 










225 


00000410 


SF 










225 


0000041E 


46 










225 


0000041 F 


57 










225 


00000420 


52 










22S 


00000421 


49 










225 


00000422 


54 










225 


00000423 


45 










225 


00000424 


53 










225 


00000425 


54 










225 


00000426 


52 










225 


00000427 


49 










225 


00000428 


4E 










225 


00000429 


54 










226 


0000042A 


1206 




DC.U 


GVR 




227 


0000042C 


0000 


0000 


DC.L 


FS FURITESTRINT 




228 








REFR 


G UOLLAR 




229 


00000430 


08 




DC.B 


8, 'G_DOLLAR' 




229 


00000431 


47 










229 


00000432 


SF 










229 


00000433 


44 










229 


00000434 


4F 










229 


0000043S 


4C 










229 


00000436 


4C 










229 


00000437 


41 










229 


00000438 


52 










230 


0000043A 


1206 




DC.U 


GVR 




231 


0000043C 


0000 


0000 


DC.L 


G DOLLAR 




232 








REFR 


IRITLOAD 




233 


00000440 


08 




DC.B 


8, 'INITLOAD' 




233 


00000441 


49 










233 


00000442 


4E 










233 


00000443 


49 










233 


00000444 


54 










233 


0000044S 


4C 










233 


00000446 


4F 










233 


00000447 


41 










233 


00000448 


44 










234 


0000044A 


1206 




DC.U 


GVR 




235 


0000044C 


0000 


0000 


DC.L 


INITLOAD 




236 








REFR 


INITLOAD INITLOAD 




237 


00000450 


11 




DC.B 


17,'INITUOAD INITLOAD' 


1-390 
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237 


00000451 49 




237 


00000452 4E 




237 


00000453 49 




237 


00000454 54 




237 


00000455 4C 




237 


00000456 4F 




237 


00000457 41 




237 


00000458 44 




237 


00000459 5F 




237 


0000045ft 49 




237 


0000045B 4E 




237 


0000045C 49 




237 


0000045D 54 




237 


0000045E 4C 




237 


0000045F 4F 




237 


00000460 41 




237 


00000461 44 




238 


00000462 1206 


DC.U 


239 


00000464 0000 0000 


OC.L 


240 




REFR 


241 


00000468 12 


DC.B 


241 


O0OC0469 49 




241 


0000046A 4E 




241 


0000046B 49 




241 


0000046C 54 




241 


0000046D 4C 




241 


0000046E 4F 




241 


0000046F 41 




241 


00000470 44 




241 


00000471 SF 




241 


00000472 53 




241 


00000473 59 




241 


00000474 53 




241 


00000475 SO 




241 


00000476 52 




241 


00000477 45 




241 


00000478 46 




241 


00000479 49 




241 


0000G47R 58 




242 


0000047C 1206 


DC.U 


243 


0000047E 0000 0000 


DC.L 


244 




REFR 


245 


00000482 OE 


DC.B 


245 


00000483 49 




245 


00000484 4E 




245 


00000485 49 




245 


00000486 54 




245 


00000487 4C 




245 


00000488 4F 




245 


00000489 41 




245 


0000048ft 44 




245 


0000048B 5F 




24 5 


0000048C 5F 




245 


00000480 42 




245 


0000048E 41 




245 


0000048F S3 




245 


00000490 45 





GVR 

INITL0fiD_INITLORD 

INITLOflD SYSPREFIX 

18, 'INnTOflD_SYSPREFIX' 



GVR 

INITLOflD SYSPREFIX 

INITLOflD BASE 

14 'INITUJftD BASE' 
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246 
247 
248 
249 
249 
249 
249 
249 
249 
249 
250 
251 
252 
253 
253 
253 
253 
253 
253 
253 
253 
253 
253 
253 
253 
253 
253 
253 
253 
254 
255 
256 
257 
257 
257 
257 
257 
257 
257 
257 
257 
257 
257 
257 
257 
257 
257 
257 
257 
257 
258 
259 
260 
261 
261 
261 
261 



00000492 1206 
00000494 0000 0000 

00000498 06 

00000499 4C 
0000049A 4F 
0000049B 41 
0000049C 44 
0000049D 45 
0000049E 52 
000004R0 1206 
000004A2 0000 0000 

000004A6 OF 
000004A7 4C 
000004A8 4F 
000004A9 41 
000004AR 44 
000004AB 45 
000004RC 52 
000004AD 5F 
000004AE 43 
000004AF 48 
000004BO 45 
000004B1 43 
000004B2 4B 
000004B3 52 
000004B4 45 
000004B5 56 
00OOO4B6 1206 
000004B8 0000 0000 

000004BC 11 
000004BD 4C 
000004BE 4F 
000004BF 41 
000004CO 44 
000004C1 45 
000004C2 52 
000004C3 5F 
000004C4 43 
000004CS 4C 
000004C6 4F 
000004C7 S3 
000004C8 45 
000004C9 46 
000004CA 49 
000004CB 4C 
000004CC 45 
000004CD S3 
000004CE 1206 
000004DO 0000 0000 

000004D4 10 
000004D5 4C 
000004D6 4F 
000004D7 41 



DC.U 
DC.L 
REFR 
DC.B 



GVR 

INITLOAD 

LOADER 

6, 'LOADER' 



BASE 



DC.U GVR 

DC.L LOADER 

REFR LOADER CHECKREV 

DC.B IS, 'LOADER CHECKREV 



DC.U GVR 

DC.L LOADER CHECKREV 

REFR LOADER~CL0SEFILES 

DC.B 17,'LORDER CLOSEFILES' 



DC.U GVR 

DC.L LORDER_CLOSEFILES 

REFR LOADER COUNTCODE 

DC.B 16, 'LOffDER COUNTCODE' 



1-391 
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261 


000004D8 44 


261 


000004D9 45 


261 


000004DA 52 


261 


000004DB SF 


261 


000004DC 43 


261 


0000040D 4F 


261 


000004DE 55 


261 


0000040F 4E 


261 


000004E0 54 


261 


000004E1 43 


261 


000004E2 4F 


261 


000004E3 44 


261 


000004E4 45 


262 


0C0004E6 1206 


263 


000004E8 0000 0000 


264 




265 


OO0OO4EC OF 


265 


000004ED 4C 


265 


000004EE 4F 


265 


000004EF 41 


265 


000004FO 44 


265 


000004F1 45 


265 


000004F2 52 


265 


000004F3 5F 


265 


000004F4 47 


265 


000004F5 45 


265 


000004F6 54 


265 


000004F7 42 


265 


000004F8 59 


265 


000004F9 54 


265 


000004FA 45 


265 


OO0OO4FB S3 


266 


000004FC 1206 


267 


000004FE 0000 0000 


268 




268 


00000502 11 


269 


00000503 4C 


269 


00000504 4F 


269 


0O0O0SO5 41 


269 


00000506 44 


269 


00000507 45 


269 


00000508 52 


269 


00000509 5F 


269 


0000050A 49 


269 


0000050B 4E 


269 


0000050C 49 


269 


00000500 54 


269 


0000050E 4C 


269 


0000050F 4F 


269 


00000510 41 


269 


00000511 44 


269 


00000512 45 


269 


00000513 52 


270 


00000514 1206 


271 


00000516 0000 0000 


272 




273 


00000519 OD 



DC. LI GVR 

DC.L LOADER_COUNTCODE 

REFR LOADER GETBYTES 

DC.B 15, 'LOADER GETBYTES' 



DC.U GVR 

DC.L LOADER GETBYTES 

REFR LOADER INITLOADER 

DC.B 17,'LOffDER INITLOADER' 



DC.U GVR 

DC.L LOADER INITLOADER 

REFR LOADER LOADER 

DC.B 13, 'LORDER LOADER' 
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273 


0000051B 


4C 


273 


0000051C 


4F 


273 


0000051D 


41 


273 


0000051E 


44 


273 


OOOOOSIF 


45 


273 


00000520 


52 


273 


00000521 


5F 


273 


00000522 


4C 


273 


00000523 


4F 


273 


00000524 


41 


273 


00000525 


44 


273 


00000S26 


45 


273 


00000527 


52 


274 


00000528 


1206 


275 


0O0O0S2A 


0000 0000 


276 






277 


0000052E 


OF 


277 


0000052F 


4C 


277 


00000530 


4F 


277 


00000531 


41 


277 


0O0O0S32 


44 


277 


00000533 


45 


277 


00000534 


52 


277 


00000535 


5F 


277 


00000536 


4C 


277 


0OOOOS37 


4F 


277 


0Q000S38 
00000539 


41 


277 


44 


277 


0000053A 


49 


277 


0000053B 


4E 


277 


0000053C 


46 


277 


0000053D 


4F 


278 


0000053E 


1206 


279 


00000540 


0000 0000 


280 






281 


00000544 


OC 


281 


00000545 


4C 


281 


00000546 


4F 


281 


00000547 


41 


281 


00000548 


44 


281 


00000549 


45 


281 


0000054A 


52 


281 


0000054B 


5F 


281 


0000054C 


4C 


281 


0000054D 


4F 


281 


0000054E 


41 


281 


0000054F 


44 


281 


00000550 


51 


282 


00000552 


1206 


283 


00000554 


0000 0000 


284 






285 


00000558 


OF 


285 


00000559 


4C 


285 


000005SA 


4F 


285 


000005SB 


41 


285 


0000055C 


44 


285 


0000055D 


45 



DC.U GVR 

DC.L LOADER LOADER 

REFR LOADER LOADINFO 

DC.B 15, 'LOADER LOADINFO' 



DC.U GVR 

DC.L LOADER LOADINFO 

REFR LOADER LOADQ 

DC.B 12,'LOffDER LOADQ' 



DC.U GVR 

DC.L LOADER LOADQ 

REFR LOADER~LOADTEXT 

DC.B 15, 'LOADER LOADTEXT' 
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285 


00O00S5E 


52 


285 


00000S5F 


SF 


285 


00000560 


4C 


285 


00000561 


4F 


285 


00000562 


41 


285 


00000563 


44 


285 


00000564 


54 


285 


00000565 


4S 


285 


00000566 


58 


285 


00000567 


54 


286 


00000568 


1206 


287 


00000S6B 


0000 0000 


288 






289 


0000056E 


OF 


289 


0000OS6F 


4C 


289 


00000570 


4F 


289 


00000571 


41 


289 


00000572 


44 


289 


00000573 


45 


289 


00000574 


52 


289 


00000575 


5F 


289 


00000576 


4D 


289 


00000577 


41 


289 


00000578 


52 


289 


00000579 


4B 


289 


0000057B 


55 


289 


0000057B 


53 


289 


0000057C 


45 


289 


0000057D 


52 


290 


0000057E 


1206 


291 


00000580 


0000 0000 


292 






293 


00000584 


10 


293 


00000585 


4C 


293 


00000586 


4F 


293 


00000587 


41 


293 


00000588 


44 


293 


00000589 


45 


293 


0000058B 


52 


293 


00000S8B 


SF 


293 


0000058C 


4D 


293 


00O0OS8D 


41 


293 


0000058E 


54 


293 


0000058F 


43 


293 


00000590 


48 


293 


00000591 


46 


293 


00000592 


49 


293 


00000593 


4C 


293 


00000594 


45 


294 


00000596 


1206 


295 


00000598 


0000 0000 


296 






297 


00000S9C 


OF 


297 


0000059D 


4C 


297 


00000S9E 


4F 


297 


0000059F 


41 


297 


000005AO 


44 



DC.U GVR 

DC.L L0ADER_LOBDTEXT 

REFR LOADER MARKUSER 

DC.B 15, 'LOADER MARKUSER' 



DC.U GVR 

DC.L LOADER MARKUSER 

REFR LOADER MATCHFILE 

DC.B 16, 'LOADER MATCHFILE' 



DC.U GVR 

DC.L LOADER MATCHFILE 

REFR LOADER MOVEDEFS 

DC.B 15, 'LOADER MOVEDEFS' 
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297 
297 
297 
297 
297 
297 
297 
297 
297 
297 
297 
298 
299 
300 
301 
301 
301 
301 
301 
301 
301 
301 
301 
301 
301 
301 
301 
301 
301 
301 
301 
302 
303 
304 
305 
305 
305 
3C5 
305 
305 
305 
305 
305 
305 
305 
305 
305 
305 
305 
3C5 
305 
305 
305 
306 
307 
308 
309 



000005A1 45 
000005A2 52 
000005A3 5F 
000005A4 4D 
00000SA5 4F 
000005A6 56 
000005A7 45 
000005A8 44 
000005A9 45 
000005AA 46 
000005AB 53 
000005AC 1206 
000005AE 0000 0000 



000005B2 
000005B3 
00000584 
O0OO05B5 
000005B6 
000005B7 
000005B8 
000005B9 
000005BA 
000005BB 
000005BC 
000005BD 
000005BE 
000005BF 
000005C0 
000005C1 
000005C2 
000005C4 
00O00SC6 

000005CA 
000005CB 
000005CC 
000005CD 
000005CE 
000005CF 
00000500 
000005D1 
00O005D2 
00000503 
000005D4 
00000SD5 
00000SD6 
000005D7 
000005D8 
00O00SD9 
000005DA 
000005DB 
000005DC 
000005DE 
000005EO 



10 

4C 

4F 

41 

44 

45 

52 

SF 

4F 

SO 

45 

4E 

4C 

49 

4E 

4B 

46 

1206 

0000 0000 

12 

4C 

4F 

41 

44 

45 

52 

5F 

52 

45 

4C 

45 

41 

S3 

45 

55 

53 

45 

S2 

1206 

0000 0000 



DC.U GVR 

DC.L LOADER MOVEDEFS 

REFR LOADER OPENLINKF 

DC.B 16, 'LOADER OPENLINKF' 



DC.U GVR 

DC.L LOADER_OPENLINKF 

REFR LOADER RELEBSEUSER 

DC.B 18, 'LOADER RELEBSEUSER' 



000005E4 OE 



DC.U GVR 

DC.L LOADER RELEBSEUSER 

REFR LOADER ZEROMEM 

DC.B 14,' LOADER ZEROMEM' 
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309 
309 
309 
309 
309 
309 
309 
309 
309 
309 
309 
309 
309 
309 
310 
311 
312 
313 
313 
313 
313 
313 
313 
313 
313 
313 
313 
313 
313 
313 
314 
315 
316 
317 
317 
317 
317 
317 
317 
317 
317 
317 
317 
317 
317 
318 
319 
320 
321 
321 
321 
321 
321 
322 
323 
324 
325 



000005E5 4C 

OO00O5E6 4F 

000005E7 41 

000005E8 44 

000005E9 45 

000005EB 52 

000005EB 5F 

000005EC SB 

OOOOOSED 45 

000005EE 52 

OO0C05EF 4F 

O00O05F0 4D 

000005F1 45 

000O05F2 40 

000005F4 1206 

000005F6 0000 0000 

000005FB OC 
000005FB 4C 
000005FC 4F 
OOOOOSFD 41 
000005FE 44 
000005FF 45 

00000600 52 

00000601 5F 

00000602 5F 

00000603 42 

00000604 41 

00000605 53 

00000606 45 
00000608 1206 
0000060R 0000 0000 

0000060E OB 
0000060F 40 

00000610 41 

00000611 54 

00000612 43 

00000613 48 

00000614 44 

00000615 45 

00000616 46 

00000617 45 

00000618 58 

00000619 54 
0000061A 1206 
0000061C 0000 0000 

00000620 04 

00000621 4D 

00000622 49 

00000623 4E 

00000624 49 
00000626 1206 
00000628 0000 0000 

0000062C OB 



DC.U GVR 

DC.L LOADER ZEROMEM 

REFR LOADER BASE 

DC.B 12,'LOHTJER BASE' 



DC.U GVR 

DC.L LOAOER BASE 

REFR MATCHDETEXT 

DC.B 11 ,'MATCHDEFEXT' 



DC.U GVR 

DC.L MBTCHDEFEXT 

REFR MINI 

DC.B 4, 'MINI* 



DC.U GVR 

DC.L MINI 

REFR MINI IORESC 

DC.B 11,'HINI IORESC 
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325 


0000062D 


4D 


32S 


0000062E 


49 


325 


0000062F 


4E 


325 


00000630 


49 


325 


00000631 


SF 


325 


00000632 


49 


325 


00000633 


4F 


325 


00000634 


52 


325 


00000635 


45 


325 


00000636 


S3 


325 


00000637 


43 


326 


00000638 


1206 


327 


0000063B 


0000 0000 


328 






329 


0000063E 


OB 


329 


0000063F 


4D 


329 


00000640 


49 


329 


00000641 


4E 


329 


00000642 


49 


329 


00000643 


SF 


329 


00000644 


49 


329 


00000645 


4F 


329 


00000646 


52 


329 


00000647 


56 


329 


00000648 


41 


329 


00000649 


4C 


330 


0000064B 


1206 


331 


0000064C 


0000 0000 


332 






333 


00000650 


09 


333 


00000651 


4D 


333 


00000652 


49 


333 


00000653 


4E 


333 


00000654 


49 


333 


00000655 


SF 


333 


00000656 


4D 


333 


00000657 


49 


333 


00000658 


4E 


333 


00000659 


49 


334 


0000065B 


1206 


335 


000006SC 


0000 0000 


336 






337 


00000660 


OB 


337 


00000661 


40 


337 


00000662 


49 


337 


00000663 


4E 


337 


00000664 


49 


337 


00000665 


5F 


337 


00000666 


4D 


337 


00000667 


49 


337 


00000638 


4E 


337 


00000669 


49 


337 


0000066B 


49 


337 


C000066B 


4F 


338 


0000066C 


1206 


339 


0000066E 


0000 0000 


340 







DC.U GVR 

DC.L MINI IORESC 

REFR MINI IORVBL 

DC.B 11, 'RlNI_IORVBl' 



DC.UI GVR 

DC.L MINI IORVBL 

REFR MINI MINI 

DC.B 9,'MTNI MINI' 



DC.U GVR 

DC.L MINI MINI 

REFR MINI MINIIO 

DC.B 11,'RINI MINIIO' 



DC.UI GVR 

DC.L MINI_MINIIO 

REFR MINI BBSE 
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341 


00000672 


OR 


DC.B 


10,'MINI_BASE' 


341 


00000673 


4D 






341 


00000674 


49 






341 


00000675 


4E 






341 


00000676 


49 






341 


00000677 


SF 






341 


00000678 


SF 






341 


00000679 


42 






341 


0000067A 


41 






341 


0000067B 


53 






341 


0000067C 


45 






34 2 


0000067E 


1206 


DC.W 


GVR 


343 


00000680 


0000 0000 


DC.L 


MINI BASE 


344 






REFR 


RELOCATE 


345 


00000684 


08 


DC.B 


8, 'RELOCATE' 


345 


00000685 


52 






345 


00000686 


45 






345 


00000687 


4C 






345 


00000688 


4F 






34 5 


00000689 


43 






345 


0000068R 


41 






345 


0000068B 


54 






34 5 


0000068C 


45 






346 


0000068E 


1206 


DC.UI 


GVR 


34 7 


00000690 


0000 0000 


DC.L 


RELOCATE 


348 






REFR 


STACKFUDGE 


34 9 


00000694 


OR 


DC.B 


10, 'STACKFUDGE' 


349 


00000695 


S3 






349 


00000696 


54 






349 


00000697 


41 






349 


00000698 


43 






349 


00000699 


4B 






349 


0000069fl 


46 






349 


0000069B 


55 






349 


0000069C 


44 






349 


0000069D 


47 






349 


0000069E 


45 






350 


000006RO 


1206 


DC.U 


GVR 


351 


000006R2 


0000 0000 


DC.L 


STACKFUDGE 


352 






REFR 


SYSGLOBALS 


353 


000006R6 


OR 


DC.B 


10, 'SYSGLOBALS' 


353 


000006A7 


53 






353 


000006R8 


S9 






353 


000006R9 


53 






353 


000006RPI 


47 






353 


000006RB 


4C 






353 


000006RC 


4F 






353 


000006RD 


42 






353 


000006RE 


41 






353 


000006RF 


4C 






353 


000006BO 


S3 






354 


000006B2 


1206 


DC.U 


GVR 


355 


000006B4 


0000 0000 


DC.L 


SYSGLOBALS 


356 






REFR 


SYSGLOBALS FSIDC 


357 


000006B8 


10 


DC.B 


16,'SYSGLOBflLS FSIDC 


357 


000006B9 


53 






357 


0000068ft 


59 
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357 


000006BB 


S3 




357 


000006BC 


47 




3S7 


000006BD 


4C 




357 


000006BE 


4F 




357 


000006BF 


42 




357 


000006CO 


41 




357 


000006C1 


4C 




357 


000006C2 


S3 




357 


000006C3 


SF 




357 


000006C4 


46 




357 


000006C5 


S3 




357 


000006C6 


49 




357 


000006C7 


44 




357 


000006C8 


43 




358 


000006CA 


1206 


DC.U 


359 


000006CC 


OODO 0000 


DC.L 


360 






REFR 


361 


000006DO 


IS 


DC.B 


361 


000006D1 


S3 




361 


000006D2 


59 




361 


000006D3 


S3 




361 


000006D4 


47 




361 


000006D5 


4C 




361 


000006D6 


4F 




361 


00000607 


42 




361 


00000608 


41 




361 


000006D9 


4C 




361 


000006DA 


53 




361 


000006DB 


5F 




361 


000006DC 


S3 




361 


000006DD 


59 




361 


000006DE 


S3 




361 


000006DF 


47 




361 


000006EO 


4C 




361 


000006E1 


4F 




361 


000006E2 


42 




361 


000006E3 


41 




361 


000006E4 


4C 




361 


000006ES 


S3 




362 


000006E6 


1206 


DC.U 


363 


000006E8 


0000 0000 


DC.L 


364 






REFR 


365 


000006EC 


10 


DC.B 


365 


000006ED 


53 




365 


000006EE 


59 




365 


000006EF 


S3 




365 


000006FO 


47 




365 


000006F1 


4C 




365 


00O006F2 


4F 




365 


000006F3 


42 




365 


000006F4 


41 




36S 


000006F5 


4C 




365 


000006F6 


S3 




365 


000006F7 


5F 




365 


000006F8 


5F 




36S 


000006F9 


42 




365 


000006FA 


41 





GVR 

SYSGLOBALS FSIDC 
SYSGLOBALS SYSGLOBALS 
DC.B 21, 'SYSGLOB~BLS_SYSGLOBALS' 



GVR 

SYSGLOBALS_SYSGLOBALS 
SYSGLOBALS BASE 
16,'SYSGLOBTlLS BASE' 
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_BOSE 



36S 


000006FB 


S3 




36S 


000006FC 


45 




366 


000006FE 


1206 


OC.W GVR 


367 


00000700 


0000 0000 


OC.L SYSGLOBALS 


368 








369 




0000 0704 


endd equ * 


370 








371 






end 


PASS 1 


ERRORS: 






PASS 2 


ERRORS: 
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*** 68000 ASSEMBLER SYMBOL TABLE DUMP *** 
EXTERNAL SYMBOLS 



SYMBOL 


TYPE 


DEF 


VALUE 


ALPHBLIST 


REL 


20 


00000002 


ASM ASM 


REL 


24 


00000005 


ASM ASSIGN 


REL 


28 


00000007 


ASM CI SWITCH 


REL 


32 


OOOOOOOA 


ASM CPYMSG 


REL 


36 


OOOOOOOE 


ASM DIFFERENCE 


REL 


40 


00000011 


ASM DIV 


REL 


44 


00000015 


ASrTEQUAL 


REL 


48 


00000017 


ASM ERRMSG 


REL 


52 


0000001A 


ASM FASTMOVE 


REL 


5$ 


0000001D 


ASM FINDROMS 


REL 


60 


00000021 


ASM FLPYINIT 


REL 


$4 


00000025 


ASM""FLPYMREAD 


REL 


68 


00000029 


ASM FLPYMURITE 


REL 


72 


0000002D 


ASM FLPYREAO 


REL 


76 


00000031 


ASM _ FLPY URT 


REL 


80 


00000035 


ASM F PUR" ON 


REL 


84 


00000039 


ASM Ifl 


REL 


88 


0000003D 


ASM~INCLUSION 


REL 


92 


0000003F 


ASM~INTERSECT 


REL 


96 


00000043 


ASM _ MEMAVAIL 


REL 


100 


00000047 


ASM MOD 


REL 


104 


0000004B 


ASM MOVEL 


REL 


108 


0000004D 


ASM~MOVELEFT 


REL 


112 


00000050 


ASM MOVER 


REL 


116 


00000054 


ASM MOVER IGHT 


REL 


120 


00000057 


ASM~MPY 


REL 


124 


0000005B 


ASM NEQUAL 


REL 


128 


0000005D 


ftSM~"N£UBYTES 


REL 


132 


00000060 


ASM NEUUOROS 


REL 


136 


00000064 


ASM POS 


REL 


140 


00000068 


ASM~POUERUP 


REL 


144 


0000006A 


ASM RMOVEL 


REL 


148 


0000006D 


ASM RMOVER 


REL 


152 


00000070 


ASM UNION 


REL 


156 


00000073 


ASM USERPROGRAM REL 


160 


00000076 


BOOTDAMMODULE 


REL 


164 


0000007B 


BOOTDBMMODULE 


BOOTDAM 


REL 


168 0000007E 


BOOTDAMMODULE" 


BOOTDAMMODULE REL 172 00000084 


BOOTDAMMODULE" 


BOOTNODE REL 


176 0000008B 


BOOTDAMMODULE" 


BOOTTM REL 


180 00000091 


BOOTDAMMODULE" 


INITBOOTDAM REL 


184 00000097 


BOOTDAMMODULE" 


SRMNODE 


REL 


188 0000009E 


BOOTDAMMODULE 


BASE REL 


192 000000B4 


BOOT FINDFILE" 


~ REL 


196 


O00O00A9 


BOOT~LIFHEBD 


REL 


200 


OOOOOOAD 


BOOT MFCLOSE 


REL 


204 


000000B1 


BOOT MFOPEN 


REL 


208 


000000B5 


BOOT MINIT 


REL 


212 


O00O00B8 


BOOT MREAD 


REL 


216 


OOOOOOBB 


EVALGVR 


REL 


220 


OOOOOOBE 
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FS FURITESTRINT REL 
G COLLAR REL 

IRITLOAD REL 

INITLOAD_INITLOAD REL 

INITLOAD SYSPREFIX REL 
INITLOAD BASE REL 
LOADER REL 

LOADER_CHECKREV REL 
LOADER_CLOSEFILES REL 
LOADER COUNTCODE REL 
LOADER GETBYTES REL 
LOADERlINITLOADER REL 
LOADER LOADER REL 
LOADER_LOADINFO REL 
LOADER_LOADQ REL 

L0ADER_L0ADTEXT REL 
L0ADERJ1ARKUSER REL 
L0ADERJ1ATCHFILE REL 
L0ADERJ10VEDEFS REL 
LOADER OPENLINKF REL 
LOADER_RELEBSEUSER REL 
LOADER_ZEROMEM REL 



LOADER BASE 


REL 


MATCHDETEXT 


REL 


MINI 


REL 


MINI IORESC 


REL 


MINI IORVAL 


REL 


MINI MINI 


REL 


MINI MINIIO 


REL 


MINI BASE 


REL 


RELOCHTE 


REL 


STACKFUDGE 


REL 


SYSGLOBALS 


REL 



SYSGLOBALS_FSIDC REL 

SYSGL0BALS_SYSGLOBALS 

SYSGLOBALS BASE REL 



224 OOOOOOCO 

228 O0O0O0C4 

232 OOO0OOC7 
236 OOOOOOCA 
240 OOOOOOCF 

244 O0O000D4 

248 O0OO00D8 

252 OOOOOODA 
2S6 OOOOOODE 

260 OOO00OE3 

264 000000E8 

268 OOOOOOEC 

272 OOO000F1 

276 000000 FS 

280 000000F9 

284 OOOOOOFD 

288 00000101 

292 00000105 

296 0000010A 

300 0000010E 
304 00000113 

308 00000118 

312 0000011C 

316 00000120 

320 00000123 

324 0000012S 

328 00000128 

332 0000012B 

336 0000012E 

340 00000131 

344 00000134 

348 00000137 

352 0000013A 

356 00000130 
L 360 00000142 

364 00000148 



INTERNAL SYMBOLS 



AO 

Al 

A2 

A3 

A4 

AS 

A6 

A7 

CCR 

DO 

Dl 

D2 

D3 

D4 

D5 

06 

D7 



SYMBOL 



TYPE 

AREG 

AREG 

AREG 

AREG 

AREG 

AREG 

AREG 

AREG 

STREG 

DREG 

DREG 

DREG 

DREG 

DREG 

DREG 

DREG 

DREG 



VALUE 
00000000 
O00O0OO1 
00000002 
00000003 
00000004 
00000005 
00000006 
00000007 
00000005 
00000000 
00000001 
00000002 
00000003 
00000004 
00000005 
00000006 
00000007 
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00000028 
00000704 
00001206 
00000007 
00000006 

oooooooo 

00000007 
00000025 



DEFADDR 


REL 


17 


ENOD 


REL 


369 


GVR 


ABS 


IS 


SP 


AREG 





SR 


STREG 





SYSDEFTPBLE 


REL 


5 


USP 


STREG 





X 


REL 


13 
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